Bonjour,

Le but du programme est de créer un nouveau fichier excel, d'y copier une feuille d'un autre fichier, puis de prendre les valeurs des cellules d'un troisième fichier pour les mettre dans le nouveau.


J'ai parcouru des dizaines de liens pour réussir par moi-même mais rien n'y fait, j'ai toujours des erreurs dans les Set de mes variables.

Voici le 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
23
24
25
26
27
28
29
30
31
32
33
 
Sub copieinfosmachines()
 
Dim origine As Worksheets
Dim cible As Worksheets
 
'Je copie une page de garde personnalisable, je personnalise le titre de ce nouveau fichier avec les cellules du fichier machines("Table5") dans lequel je code
 
FileCopy "chemin\page de garde.xls", "chemin\" & Range("C3") & " " & Range("E3") & ".xls"
 
 
'Je veux maintenant personnaliser l'intérieur de ma page de garde mais j'ai erreur 1004
 
Set origine = Workbooks.Open("chemin\machines.xlsx")("Table 5")
 
Set cible = Workbooks.Open("chemin\" & Range("C3") & " " & Range("E3") & ".xls").Worksheets("Table de validation")
 
'La syntaxe est sûrement mauvaise mais je ne suis encore à cette étape de copie
 
cible("C5") = origine("C3")
cible("D6") = origine("E3")
cible("B7") = origine("G3")
cible("D8") = origine("F3")
cible("D9") = origine("H3")
 
cible("M5") = origine("I3")
cible("M6") = origine("D3")
cible("M7") = origine("A3")
cible("M8") = origine("B3")
cible("M9") = origine("J3")
 
 
End Sub
La création du nouveau fichier se passe niquel, mais je m'arrache les cheveux sur la suite.
Je termine bientôt ma journée donc je risque de ne répondre que demain matin.

Merci d'avance!