Copier/Coller entre 2 classeurs VBA [Résolu/Fermé]

Signaler
Messages postés
137
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
25 mai 2020
-
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
-
Bonjour,

Je suis novice en VBA et je cherche à développer une macro qui me permette de Copier/Coller les colonnes de la feuille "Listing des Projets" contenue dans le classeur "Base de données" sur la feuille "BDD" du classeur sur lequel je développe la macro.
Grâce à internet j'ai réussi à commencer l'écriture de la macro, mais elle ne marche pas, ça me met un message d'erreur au niveau de cette linge :
classeurSource.Sheets("Listing des Projets").Cells.Copy classeurDestination.Sheets("BDD").Range("A1").Paste

Voici ma macro en entier :
Sub CommandBouton1()
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
Chemin = ThisWorkbook.Path
Set classeurSource = Application.Workbooks.Open(Chemin & "\Base de données.xlsm")
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'copier les données de la feuille"Listing des Projets" du classeur source vers la feuille "BDD" du classeur destination
classeurSource.Sheets("Listing des Projets").Cells.Copy classeurDestination.Sheets("BDD").Range("A1").Paste
'fermer le classeur source
classeurSource.Close False
 
End Sub



Merci pour votre aide

1 réponse

Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 467
Bonjour,

Essayez comme ceci :

Sub CommandBouton1()
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
Chemin = ThisWorkbook.Path
'définir le classeur destination
Set classeurDestination = ThisWorkbook
Set classeurSource = Application.Workbooks.Open(Chemin & "\Base de données.xlsm")
'copier les données de la feuille"Listing des Projets" du classeur source vers la feuille "BDD" du classeur destination
classeurSource.Sheets("Listing des Projets").Cells.Copy classeurDestination.Sheets("BDD").Range("A1")
'fermer le classeur source
classeurSource.Close False
 
End Sub


EDIT : explications :
J'ai placé la définition du classeur destination avant, puisqu'on "était sur" le ThisWorkbook.
Ce qui bugguait c'était la syntaxe avec .Paste.
Si vous voulez utiliser .Paste, il faut le mettre sur deux lignes de code :
Workbooks("machin").Sheets("Chose").Range("truc").Copy
Workbooks("destin").Sheets("feuille").Range("A1").Paste


Sans le Paste, sur une seule ligne de code :
classeurSource.Sheets("Listing des Projets").Cells.Copy classeurDestination.Sheets("BDD").Range("A1")

🎼 Cordialement,
Franck 🎶
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 58167 internautes nous ont dit merci ce mois-ci

Messages postés
137
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
25 mai 2020

Parfait ça fonctionne très bien ! Un grand MERCI pour votre aide précieuse et votre rapidité de réponse.
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 467 >
Messages postés
137
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
25 mai 2020

de rien.
A++