Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier coller vba

  • Initiateur de la discussion Initiateur de la discussion gg77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

G

gg77

Guest
bonjour forum,

j'aimerais faire un copier coller en vba.
A partir de 3 classeurs:
-classeur1:feuille A, on appuie sur le bouton 'copier coller' et il va chercher les valeurs du classeur2 feuille1 pour les remettre dans le classeur1 feuille1 et il va chercher également les valeurs du classeur3 feuille1 pour les remettre dans le classeur1 feuille2.

j'ai fait une macro mais ca bloque.
voila mon début de code.


Option Explicit

Sub copier_coller()

Application.Goto Workbooks('classeur2.xls').Sheets('feuil1')

ActiveSheet.Range(Cells(9, 1), Cells(27, 8)).Select
Selection.Copy

Application.Goto Workbooks('classeur1.xls').Sheets('feuil1')

ActiveSheet.Range(Cells(9, 1), Cells(65536, 50)).ClearContents

Range('A9').PasteSpecial

End Sub
 
Salut gg77,

Un peu au pifomètre mais c'est t'on jamais, moi je modifierai comme ceci :
Code:
Sub copier_coller()

Application.Goto Workbooks('classeur2.xls').Sheets('feuil1')
ActiveSheet.Range('A9:H27').Select
Selection.Copy
Application.Goto Workbooks('classeur1.xls').Sheets('feuil1')
ActiveSheet.Range('A9:AX65536').ClearContents
Range('A9').PasteSpecial
End Sub

@+
 
ca coince toujours à la première ligne

Application.Goto Workbooks('classeur2.xls').Sheets('feuil1')

erreur d'execution '9'
'l'indice n'appartient pas à la selection'
 
re,

Je vien de tester, essaye de cette manière :
Code:
Application.Goto Workbooks('classeur2.xls').Sheets('feuil1').Range('A1')

Par contre, vérifie que le nom de ton fichier comporte bien l'extension (.xls), si ton fichier n'est pas enregistré, il ne l'a pas et c'est ca qui fait planter.

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
915
Réponses
6
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…