2 pièce(s) jointe(s)
[VBA-E] Récupérer des données dans différents classeurs
Bonjour à toutes et à tous,
je suis nouvelle sur ce forum et ainsi que sur les macros et vba excel.
voici mon pb.
Dans mon répetoire 2007 qui correspond à l'année en cours, j'ai deux fichiers de bases original cadences et original graphique.
J'ai une macro sur original graphique afin de pouvoir avoir un nouveau fichier nommé graphique
Et original cadences est un modèle car ensuite par le biais d'un macro je crée un fichier par semaine qui se nomme cadences sxx dont xx est le n° de la semaine.
ex : cadences s01, cadences s02, cadences s03, etc ... jusqu'à cadences 52
A savoir que mes 52 fichiers cadences sxx ne sont pas crée en meme temps. on les crée qu'au fur et à mesure.
ex : cadences s12 sera crée que la semaine 11 ou 12.
mon but est de pouvoir récupérer des données de la colonne T de mes fichiers cadences sxx pour les mettre dans le fichier graphique.
j'ai trouvé la solution pour pouvoir récupérer les données quand le fichier existe mais par contre qd le fichier n'est pas encore existant excel me demande le chemin pour trouver ce dossier et me mets #REF dans ma cellule.
voici un début de code que j'ai trouvé et qui a l'aire de fonctionner :
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub recupdonnees_Click()
Dim chemin As String
chemin = ThisWorkbook.Path
Range("E10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R344C20")
Range("E11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R344C20")
Range("E12") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s03.xls]Samedi'!R344C20")
Range("E14") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s05.xls]Samedi'!R344C20")
Range("F10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R345C20")
Range("F11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R345C20")
Range("F12") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s03.xls]Samedi'!R345C20")
End Sub |
En espérant que j'ai été assez explicite.
Voici aussi deux fichiers qui peuvent vous éclairer. n'hésitez pas si vous voulez plus d'info sur ma demande.
Merci d'avance pour votre aide.
cdt,
christellec20
un peu plus d'info sur le sujet
Bonjour
j'ai trouvé un code qui me récupère mes données des différents classeurs existants .
le voici ci dessous :
Code:
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
| Private Sub recupdonnees_Click()
Dim chemin As String
chemin = ThisWorkbook.Path
Range("B10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R341C20")
Range("C10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R342C20")
Range("D10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R343C20")
Range("E10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R344C20")
Range("F10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R345C20")
Range("G10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R331C20")
Range("H10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R332C20")
Range("I10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R333C20")
Range("J10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R334C20")
Range("K10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R335C19")
Range("L10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R336C19")
Range("M10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R337C19")
Range("N10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R349C20")
Range("O10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R350C20")
Range("P10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R351C20")
Range("Q10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R352C20")
Range("R10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R353C20")
Range("S10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R354C20")
Range("T10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R358C20")
Range("U10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R359C20")
Range("V10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R360C20")
Range("W10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R361C20")
Range("X10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R352C20")
Range("Y10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R363C20")
Range("Z10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R364C20")
Range("AA10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R365C20")
Range("AB10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R369C20")
Range("AC10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R370C20")
Range("AD10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R371C20")
Range("AE10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R372C20")
Range("AF10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R373C20")
Range("AG10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R374C20")
Range("AH10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R375C20")
Range("AI10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R379C20")
Range("AJ10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R380C20")
Range("AK10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R381C20")
Range("AL10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R382C20")
Range("AM10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R383C20")
Range("AN10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R384C20")
Range("AO10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R385C20")
Range("AP10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R386C20")
Range("AQ10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R387C20")
Range("AR10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R391C20")
Range("AS10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R392C20")
Range("AT10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R393C20")
Range("AU10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R397C20")
Range("AV10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R398C20")
Range("AW10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R399C20")
Range("AX10") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s01.xls]Samedi'!R400C20")
Range("B11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R341C20")
Range("C11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R342C20")
Range("D11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R343C20")
Range("E11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R344C20")
Range("F11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R345C20")
Range("G11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R331C20")
Range("H11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R332C20")
Range("I11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R333C20")
Range("J11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R334C20")
Range("K11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R335C19")
Range("L11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R336C19")
Range("M11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R337C19")
Range("N11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R349C20")
Range("O11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R350C20")
Range("P11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R351C20")
Range("Q11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R352C20")
Range("R11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R353C20")
Range("S11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R354C20")
Range("T11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R358C20")
Range("U11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R359C20")
Range("V11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R360C20")
Range("W11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R361C20")
Range("X11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R352C20")
Range("Y11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R363C20")
Range("Z11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R364C20")
Range("AA11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R365C20")
Range("AB11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R369C20")
Range("AC11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R370C20")
Range("AD11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R371C20")
Range("AE11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R372C20")
Range("AF11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R373C20")
Range("AG11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R374C20")
Range("AH11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R375C20")
Range("AI11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R379C20")
Range("AJ11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R380C20")
Range("AK11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R381C20")
Range("AL11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R382C20")
Range("AM11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R383C20")
Range("AN11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R384C20")
Range("AO11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R385C20")
Range("AP11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R386C20")
Range("AQ11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R387C20")
Range("AR11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R391C20")
Range("AS11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R392C20")
Range("AT11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R393C20")
Range("AU11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R397C20")
Range("AV11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R398C20")
Range("AW11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R399C20")
Range("AX11") = ExecuteExcel4Macro("'" & chemin & "\[Cadences s02.xls]Samedi'!R400C20")
End Sub |
Le pb est que à la fin de l'année j'aurais 52 fichiers "cadences sxx".
je voudrais savoir s'il y a un moyen d'alléger ce code.
et je voudrais tjs savoir comment faire pour des fichiers non existants a l'heure actuel. ex cadences s15.
merci d'avance,
cdt,
christellec20
Mon pb est résolu : Récupérer des données dans différents classeurs
Bonjour
je vous informe que mon pb est résolu par le biais d'un autre forum
cdt,
christellec20
