Copier/Coller entre 2 classeurs VBA
Résolu/Fermé
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
-
Modifié par pijaku le 29/05/2015 à 10:16
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 mai 2015 à 11:08
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 29 mai 2015 à 11:08
A voir également:
- Copier coller vba excel entre 2 classeurs
- Liste déroulante excel - Guide
- Copier coller pdf - Guide
- Supercopier 2 - Télécharger - Gestion de fichiers
- Croix chretienne copier coller ✓ - Forum Bureautique
- Historique copier-coller android - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
Modifié par pijaku le 29/05/2015 à 10:21
Modifié par pijaku le 29/05/2015 à 10:21
Bonjour,
Essayez comme ceci :
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 :
Sans le Paste, sur une seule ligne de code :
🎼 Cordialement,
Franck 🎶
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 🎶
29 mai 2015 à 11:01
29 mai 2015 à 11:08
A++