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
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 .
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 ?
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
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.
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.
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 ?
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.
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.
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.
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?
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
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 ????
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
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 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
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 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 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 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.
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
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é
@@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 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
@@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
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
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
Bonjour, Merci pour votre aide et surtout la précision dans vos explications!
Merci
Vidéo Très pratique et excellente pédagogie
Merci Beaucoup
Cela nous aide
Bonjour,
Merci pour vos vidéos sur le VBA. Avec vous je parviens à mieux comprendre le vba.
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
la methode qui m'a eviter des copies coller a n'en finir. merci Professor
Je vous remercie beaucoup pour cette démonstration;Certes avec vous on peut acquérir une petite base en VBA.
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.
Bonjour Jean-Paul, toujours efficace, leçon à mettre en pratique.
Merci pour vos vidéo pour comprendre les VBA
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 .
Merci et bonne année
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?
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 ?
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
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.
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.
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
Passer pas Power Query
Ce sera beaucoup plus facile
@@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
Et votre code correspond en tous points et fonctionne sur mon fichier. Mais je ne veux que certaines colonnes
@@deborahouf5790
Quelle version d’excel avez vous ?
Power Query est dans Excel depuis 2013
Onglet Données / Obtenir des données
@@Learnaccess j'ai le 2007 🙁
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 ?
Juste deverouiller la feuille
Activesheet.Unprotect
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.
super boulot :) excellent
bonjour, est ce que ça doit fonctionner si la liste est coupée par des lignes vides?
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.
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.
C'est normal.
Il faudra préciser le nom de la feuille si vous laisser votre code dans le Personnal
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?
Utilisez Power Query
C’est la solution la plus simple
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
La seule solution est de mettre votre chemin dans dossier partagé par d’autres personnes
Vous ne pourrez pas faire autrement
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 ????
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
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
Je n'ai plus le fichier. Mais si vous suivez pas à pas la vidéo, vous serez le reconstituer
@@Learnaccess Merci à vous; c'est surtout la façon de faire que j'aurais aimé connaitre.
@@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
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..
Normal
Si utilisation de Sheets
Vous devez mettre le nom de la feuille dans les parenthèses et entre des guillemets
@@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
Oui j’ai utiliser son numéro d’index mais pas son nom
Feuil1 au lieu de sheets(« feuille1 »)
@@Learnaccess Merci beaucoup et au plaisir pour moi de vous revoir
merci pour le tutoriel, puis je avoir ce fichier? merci
Je n’ai plus le fichier mais vous pouvez le reproduire facilement
Le code n’est long
@@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
@@christianmubenga7033
Cela n'est pas possible.
Un segment ne peut être fait qu'à partir d'une seule source...
@@Learnaccess merci beaucoup
@@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.
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
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é
@@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
Jean Francois Pasquier
La solution devrait être le filtre avance
@@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
Bonsoir stp Comment faire sans supprimer les anciennes donner
Utilisez power query
Ce code ne fonctionne sur mon classeur pourriez-vous m'aider ?
Daniel COILLE
Vous avez bien activé les compléments Active
Sinon, c’est un pb de syntaxe
Vérifiez le code
@@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
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
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
Le mec il est sous drogue xD