VBA - Comment Utiliset l'Objet GetOpenFileName afin d'importer des données d'un classeur

[@gaetansalles8316]

Bonjour, Merci pour votre aide et surtout la précision dans vos explications!

[@pdemba]

la methode qui m'a eviter des copies coller a n'en finir. merci Professor

[@sergeattia2866]

Merci Vidéo Très pratique et excellente pédagogie Merci Beaucoup Cela nous aide

[@sekanaIB]

Bonjour, Merci pour vos vidéos sur le VBA. Avec vous je parviens à mieux comprendre le vba.

[@j-jguitman3937]

Décidément excellente votre formation. Je m'en vais essayer ça pour faire une feuille de consolidation de fiches de gestion assez complexes et multi- plateformes. Je ne sais pas si c'est le mieux, mais je connais pas encore assez et me base sur vos demos. Merci pour le temps que vous nous accordez

[@hocinezahi751]

Je vous remercie beaucoup pour cette démonstration;Certes avec vous on peut acquérir une petite base en VBA.

[@pascalp9243]

Bonjour Jean-Paul, toujours efficace, leçon à mettre en pratique.

[@lalia5914]

Waouhhhhhh vous nous expliquez tellement bien ce qu’il faut merci infiniment je m’abonne direct 🥰 je m’en vais le tester sur mon fichier.

[@saidguennoun]

Merci beaucoup pour ce tuto formidable. il va certainement m'aider à faire mon exorcise de la même manière sauf que mon classeur d’où je veux importer mes données contient plusieurs feuilles dont je veux les importer l'une au dessous de l'autre sur la même feuille à garder seulement les entêtes de la première feuille .

[@danielcoille3650]

Merci pour vos vidéo pour comprendre les VBA

[@Greg-dn5rt]

Intéressant mais si l'on a une ligne matrice dans le classeur actuel et que l'on veut que les donnes de la feuille a importer sarrime a ma ligne matrice on ait comment ?

[@laurentjouron9988]

Bonjour et encore merci pour cette formation. Est ce qu'avec ce code on peut ramener le feu tricolore qui a été fait dans un autre classeur?

[@diuiyuyudbi729]

bonjour, est ce que ça doit fonctionner si la liste est coupée par des lignes vides?

[@bassisessaidexcel]

Merci et bonne année

[@deborahouf5790]

Bonjour, encore un grand merci pour cette formation au top J'ai le même cas sauf que je ne veux que les colonnes A,B et D Comment faire? Merci

[@Learnaccess]

Passer pas Power Query Ce sera beaucoup plus facile

[@deborahouf5790]

@@Learnaccess oui j'aimerais j'ai suivi plusieurs vidéos a ce sujet Mais je ne l'ai pas, ma seule solution c'est du vba

[@deborahouf5790]

Et votre code correspond en tous points et fonctionne sur mon fichier. Mais je ne veux que certaines colonnes

[@Learnaccess]

@@deborahouf5790 Quelle version d’excel avez vous ? Power Query est dans Excel depuis 2013 Onglet Données / Obtenir des données

[@deborahouf5790]

@@Learnaccess j'ai le 2007 🙁

[@mamined]

merci pour ce super tuto. Si je dois ouvrir un fichier csv pour y copier les données mais que je dois l'ouvrir avec un éditeur de texte quel serait la petite modification à effectuer ? Merci

[@dugomier63360]

Bonsoir , voila j'ai un fichier avec une macro qui m'enregistre le pdf directement sur mon repertoire , hors je cale sur un probleme , si je transfert mes fichiers sur un autre pc , il est clair que mon chemin ne fonctionne pas ce qui est normal , ma question est comment fait t'on pour un chemin automatique sur ma macro sans devoir changer la ligne du chemin je vous remerci de votre futur réponse bonne soirée

[@Learnaccess]

La seule solution est de mettre votre chemin dans dossier partagé par d’autres personnes Vous ne pourrez pas faire autrement

[@jonathand6039]

Merci pour ce tuto d'une grande qualité. J'ai néanmoins une question, est il possible de récupérer les données et de les coller dans un cadre à la place d'une cellule définie. Pour être plus clair, j'aimerais récupérer des données et les afficher dans un cadre en premier plan.merci d'avance.

[@Learnaccess]

Je ne sais pas ce que vous appeler un cadre (je suppose une forme). Pour moi : 1. Déposer les infos dans une cellule (ou plusieurs) 2. Récupérer les infos de ces cellules et les mettre dans le cadre via une formule.

[@axelleleufroy694]

merci beaucoup super vidéo, c'est très bien expliqué pour les débutants en vba. çafonctionne parfaitement chez moi. Sauf si les données sont dans un classeur ou la feuille a été verrouillée. Que faut-il ajouter au code pour éviter le bug ?

[@Learnaccess]

Juste deverouiller la feuille Activesheet.Unprotect

[@sanka1178]

Bonjour, Je n’arrive pas utiliser cette méthode. Pourriez-vous me dire comment l’utiliser ? J’ai essayé plusieurs choses mais rien à faire, le fichier source (qui nécessite d’ôter la protection à l’ouverture, sans mdp) ne s’importe pas. Tout fonctionne bien si je choisis un fichier qui n’est pas protégé. Merci d’avance pour votre aide.

[@christianmubenga7033]

merci pour le tutoriel, puis je avoir ce fichier? merci

[@Learnaccess]

Je n’ai plus le fichier mais vous pouvez le reproduire facilement Le code n’est long

[@christianmubenga7033]

@@Learnaccess merci beaucoup oui c'est fait si non pourriez vous m'aider avec un code qui permet de créer un segment qui prend en compte toute les feuilles du classeur ? merci

[@Learnaccess]

@@christianmubenga7033 Cela n'est pas possible. Un segment ne peut être fait qu'à partir d'une seule source...

[@christianmubenga7033]

@@Learnaccess merci beaucoup

[@christianmubenga7033]

@@Learnaccess je vous trouve trop pédagogique et vos tuto sont trop simple et explique, ça me permet de mieux comprendre VBA, si non je souhaite calculer la moyenne des plages d'autres feuilles sur une feuille dans un même classeur, mon code plante toujours, pourriez vous m'aider à m'en sortir please? merci beaucoup.

[@julesgallien6330]

Bonjour, Je rencontre un problème lorsque je dois coller les données de mon fichier CSV dans mon fichier excel. En effet, quand celles-ci se collent, elles se mettent toutes dans la même case/colonne ce qui rend la chose illisible. Avez-vous une solution ? Merci.

[@ouijdanezaouri3740]

Slvp comment faire sur le formulaire de recherche un autre bouton "imprimer" pour imprimer un bon de commande contient les informations que j'ai sur le formulaire ????

[@Learnaccess]

Ouijdane Zaouri Vous ne pourrez pas imprimer le formulaire Il vous faut envoyer les infos du formulaire sur votre de BC et ensuite vous pourrez imprimer le BC à partir de la feuille

[@zhangyong5397]

Bonjour, Merci pour votre code. Si j'ai un 10 fichiers excel, et je souhaite recopier les donnés dans un seul fichier, qu'est ce qu'on doit changer dans le code?

[@Learnaccess]

Utilisez Power Query C’est la solution la plus simple

[@daniellancelin1187]

Bonjour Comment fait-on pour récupérer le code que vous avez mis en lien de la vidéo? Je ne sais pas comment le trouver. Pouvez vous m'indiquer la façon de faire? Merci à vous. Cordialement

[@Learnaccess]

Je n'ai plus le fichier. Mais si vous suivez pas à pas la vidéo, vous serez le reconstituer

[@daniellancelin1187]

@@Learnaccess Merci à vous; c'est surtout la façon de faire que j'aurais aimé connaitre.

[@domguibert505]

@@Learnaccess Bonjour, Super votre description clairement dicté fonctionne en apportant qlqs modifs sur mon fichier spécific. ThisWorkbook.Worksheets("Annuaire").Range("a2").PasteSpecial xlPasteValues ' a revoir pour cellules colorées Pour importer les lignes et commentaires cette syntaxe "paste special" est elle possible. Merci pour vos conseils

[@motorrd9503]

Bonjour Coach J'ai un petit souci dans l'instruction 'Monclasseur.Sheets(1).Range("A10").CurrentRegion.Copy en l’état il refuse cette instruction en m'affichant le message "Propriété ou méthode non gérée par cet objet". pour que çà chez moi marche je doit préciser le nom du feuillet dans l'instruction MonClasseur.Sheets (1) en clair il refuse le numéro '1' du feuillet.. merci de votre Apport Coach..

[@Learnaccess]

Normal Si utilisation de Sheets Vous devez mettre le nom de la feuille dans les parenthèses et entre des guillemets

[@motorrd9503]

@@Learnaccess oui mais dans votre exemple tel présenté vous aviez utilisé un numéro de feuille et ainsi la procédure deviendrait standard quelque soit le classeur que l'on désire copier

[@Learnaccess]

Oui j’ai utiliser son numéro d’index mais pas son nom Feuil1 au lieu de sheets(« feuille1 »)

[@motorrd9503]

@@Learnaccess Merci beaucoup et au plaisir pour moi de vous revoir

[@PapyJF]

bonjour super le tuto je suis novice et je voudrais savoir comment importer uniquement certaine données en fonction d'une information dans une cellule ? merci

[@Learnaccess]

Bonsoir, Si je comprend bien : Vous souhaitez récupérer des données d'un fichier externe dans un autre fichier et en même temps faire un filtre par un critère pour en obtenir qu'une partie. POur : Le plus simple est d'importer toute la source et ensuite faire un filtre sur la cellule : Filtre avancé

[@PapyJF]

@@Learnaccess bonsoir oui c'est ça en gros j'ai un fichier excel pour faire des devis ensuite j'en utilise un autre pour la commande d'appro et je dois récupérer certaine ligne (pas complète) en fonction de ce que me commande le client merci

[@Learnaccess]

Jean Francois Pasquier La solution devrait être le filtre avance

[@PapyJF]

@@Learnaccess en fait non car ma feuille de destination est figée, une parie des cellules du fichier A doivent être copier dans le fichier B ... c'est pas simple à expliquer comme ça mais je pense que c'est possible je vais regarder vos tuto et voir comment combiner tout ça merci à vous

[@romlef526]

super boulot :) excellent

[@lapon77]

Bonjour, Vos vidéos sont très bien faites, intéressantes et pédagogiques . J'ai un petit soucis avec cette macro : Je l'ai enregistrer dans mon Personal.xlsb pour pouvoir m'en servir tout le temps avec un bouton dans le ruban. Le soucis vient du Paste il considère l' Activesheet comme pointant sur le Personal.xlsb au lieu de pointer sur la feuille 1 du fichier de destination ..... et rien ne se passe ... (Quand je ne passe pas par le module de la macro du Personal.xlsb mais par une macro liée au fichier destination tout marche parfaitement ....) Merci de votre aide bonne journée.

[@Learnaccess]

C'est normal. Il faudra préciser le nom de la feuille si vous laisser votre code dans le Personnal

[@abobiabibon6613]

Bonsoir stp Comment faire sans supprimer les anciennes donner

[@Learnaccess]

Utilisez power query

[@danielcoille3650]

Ce code ne fonctionne sur mon classeur pourriez-vous m'aider ?

[@Learnaccess]

Daniel COILLE Vous avez bien activé les compléments Active Sinon, c’est un pb de syntaxe Vérifiez le code

[@danielcoille3650]

@@Learnaccess merci de votre réponse ;Je crois avoir trouvé la solution /'j'ai remplacé dans l'instruction Range ("A1").curentRegion) :par Range("B3: J27).Copy . merci de votre collaboration. Vos vidéos sont supers et très bien expliquées Cordialement

[@ridwandisu1492]

Bonjour, Je suis parti de votre exemple pour modéliser le mien. Mon programme bloque lorsqu'il doit retourner sur la feuille active pour coller les données. Voici mon code. Votre aide me sera de beaucoup. Merci Option Explicit Sub Importation_Donnee() ' ' Importation_Donnee Macro 'Declaration des Variables Dim ListeFichier As Variant Dim MonClasseur As Workbook Dim RecupMiseEnForme As Variant 'on désactive le presse-papier Application.CutCopyMode = False Application.ScreenUpdating = False ' on récupere le fichier des données à copier ListeFichier = Application.GetOpenFilename(Title:="Sélectionner votre classeur", filefilter:="Fichiers Excel(*.xls*),*xls*") ' Prevoir le cas du bonton Annuler If ListeFichier False Then ' on affecte le fichier sélectionné Set MonClasseur = Application.Workbooks.Open(ListeFichier) 'on copie et colle les données de la feuille du classeur sélectionné dans la cellule active MonClasseur.Sheets(1).Range("R40:AC51").Copy RecupMiseEnForme = Range("B4:B18").Copy Worksheets("Flux collecté").Activate ActiveCell.Value = RecupMiseEnForme ActiveCell.Offset(rowOffset:=3, columnOffset:=2).Activate = MonClasseur ' décalage des données 'on désactive les messages d'alerte de Micrpsoft Application.DisplayAlerts = False 'on ferme le classeur source MonClasseur.Close End If 'on réactive le presse-papier et le raffraichissement de l'écran Application.CutCopyMode = True Application.ScreenUpdating = True End Sub

[@Learnaccess]

Je vous donne mon code : Sub ObtenirData() 'Déclaration des variables Dim ListeFichier As Variant Dim MonClasseur As Workbook 'On désactive le raffraichissement de l'écran et le Presse-Papier Application.ScreenUpdating = False Application.CutCopyMode = False 'On vide les données du classeur avant rechargement ActiveSheet.Range("A10").CurrentRegion.Clear 'Si l'on veut filtrer les types de fichiers - Ici uniquement les fichiers Excel ListeFichier = Application.GetOpenFilename(Title:="Sélectionnez votre classeur et importer vos données", _ FileFilter:="Fichiers Excel(*.xls*),*xls*", ButtonText:="Cliquez") 'Prévoir le cas du bouton Annuler si l'utilisateur annule la sélection If ListeFichier False Then 'On affecte le fichier sélectionné à la variable MonClasseur Set MonClasseur = Application.Workbooks.Open(ListeFichier) 'On copie les données MonClasseur.Sheets(1).Range("A1").CurrentRegion.Copy 'On colle les données dans notre feuille ThisWorkbook.ActiveSheet.Range("A10").PasteSpecial xlPasteValues 'On désactive les fenêtres Windows Application.DisplayAlerts = False 'On referme le classeur source MonClasseur.Close End If 'On reactive le raffraichissement de l'écran et le Presse-Papier Application.ScreenUpdating = True Application.CutCopyMode = False End Sub

[@anarkiamusicmovie7036]

Le mec il est sous drogue xD