Bonjour,

J'ai un document Excel (appelons le document1) qui contient 3 feuilles, avec sur chacunes différents boutons (donc Macro en VBA à chaque fois).

J'ai un document existant Vierge (document 2) qui ne se trouvera pas dans le même dossier, mais comme pour l'instant j'ai une erreur, je le mets dans le même dossier que mon document excel 1.

Mon but : copier la feuille 1 de mon document 1 en feuille 1 de mon document 2 et la feuille 3 de mon document 1 en feuille 2 de mon document 2, mais à chaque fois SANS les boutons (et donc sans macro).

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Bouton2_QuandClic()
'Cree document Excel sans Macro
 
Dim wbSource As Workbook
Dim wbCible As Workbook
Dim CelSource As Range
Dim CelCible As Range
Dim shSource As Worksheet
Dim shCible As Worksheet
 
Set wbSource = ThisWorkbook
Set wbCible = Workbooks("document2.xls")
 
Set shSource = wbSource.Worksheets(1)
Set shCible = wbCible.Worksheets(1)
 
Set CelSource = shSource.Range("a1")
Set CelCible = shCible.Range("a1")
 
CelSource.Copy Destination:=CelCible
 
End sub
Pour l'instant, je fais juste la case A1 de mon document 1,
mais à la ligne :
Set wbCible = Workbooks("document2.xls")
me fait : "Erreur d'éxecution 9 : L'indice n'appartient pas à la selection"

J'ai aussi essayé avec : Windows("document2").Activate

et j'ai essayé aussi en mettant le chemin complet ( C:\ ..etc) mais rien à faire, toujours là même erreur, j'ai même mis un document non existant et ça me mettait pas la meme erreur ! (alors qu'il aurait pu mettre "document non trouvé" ... )

Je sèche complètement,
j'espère que vous trouverez mon erreur...

Merci d'avance !

Si je trouve avant d'avoir une réponse ici, je vous en informe !