copier coller vba

[gg77]

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

 

[gg77]

je voulais vous joindre mon dossier mais apparemment on peut plus.

Merci pour vos conseils.

 

[porcinet82]

Salut gg77,

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

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

@+

 

[gg77]

je vais essayer
Merci Porcinet82

 

[gg77]

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'

 

[porcinet82]

re,

Je vien de tester, essaye de cette manière :

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.

@+