Nom de Feuille et de classeur comme variable VBA
Bonjour à tous,
ça fait deux jours je cherche une solution à mon problème mais rien. En effet je suis entrain de faire une automatisation de reporting qui vise des comparaisons entre des fichiers extraits quotidiennement. le nom des fichiers est fonction de la date d'extration genre fichier130042014.xls fichier230042014.xls ..... chaque classeur comporte une feuille avec comme nom le numero de la semaine d'extraction. Le but est de faire des comparaison entre des dates.
Mon pb est le suivant:
je declare les variables donnees1 donnees2 et num_semaine1 num_semaine2 pour pouvoir les utiliser comme valeur des fichiers et feuilles déclarés comme tel mais le probleme est que vba ne prends pas dans l'ecriture suivante [donnees1], donnes1 comme non de feuille mais comme caractere et donc pas de reponse. Quelqu'un aurait une solution? Voici mon code
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
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
| Sub ouv_donnes()
Dim date1 As String
Dim date2 As String
Dim donnees1 As String
Dim donnees2 As String
Dim num_semaine1 As String
Dim num_semaine2 As String
date1 = Workbooks("Projet_GRDF_TEST2").Sheets("Accueil").Range("B3").Value
date2 = Workbooks("Projet_GRDF_TEST2").Sheets("Accueil").Range("C3").Value
'
ChDir "D:\Users\ggnamey\Documents\affaire_os\affaire\dezip"
Workbooks.Open Filename:= _
"D:\Users\ggnamey\Documents\affaire_os\affaire\dezip\" & "recap_affaire" & date1 & ".xls"
' Ouverture des données à la semaine S-1
'
ChDir "D:\Users\ggnamey\Documents\affaire_os\affaire\dezip"
Workbooks.Open Filename:= _
"D:\Users\ggnamey\Documents\affaire_os\affaire\dezip\" & "recap_affaire" & date2 & ".xls"
' Ouverture des données à la semaine S
donnees1 = "recap_affaire" & date1 & ".xls"
donnees2 = "recap_affaire" & date2 & ".xls"
num_semaine1 = Workbooks(donnees1).Sheets(1).Name
num_semaine2 = Workbooks(donnees2).Sheets(1).Name
Range("A1").Select ' se positionne sur la cellule A1 de la semaine S
Range("FJ2").Select
ActiveCell.FormulaR1C1 = _
"Hypothèse0"
Range("FK2").Select
ActiveCell.FormulaR1C1 = _
"Condition A "
Range("FL2").Select
ActiveCell.FormulaR1C1 = _
"Condition B "
Range("FM2").Select
ActiveCell.FormulaR1C1 = _
"Condition C "
Range("FN2").Select
ActiveCell.FormulaR1C1 = _
"Condition D "
Cells.EntireColumn.AutoFit
Range("FJ2:FN2").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("FJ3").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND([donnees1]" & "num_semaine1!RC[-88]=""""," & "num_semaine2!RC[-88]<>"""",OR(" & "num_semaine2!RC[-79]<>""""," & "num_semaine2!RC[-78]<>""""," & "num_semaine2!RC[-77]<>"""")),MAX(" & "num_semaine2!RC[-79]," & "num_semaine2!RC[-78]," & "num_semaine2!RC[-77]),"""")"
End
Range("FJ3").Select
Columns("FJ:FJ").Select
Selection.NumberFormat = "dd/mm/yyyy"
Lr = Range("BZ" & Rows.Count).End(xlUp).Row
Range("FJ3").Copy Destination:=Range("FJ4:FJ" & Lr)
Application.CutCopyMode = False
Range("FK3").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(RC[-1]<>"""",RC[-18]<>""""),""envoi_mail1"","""")"
Range("FK3").Select
Lr2 = Range("FJ" & Rows.Count).End(xlUp).Row
Range("FK3").Copy Destination:=Range("FK4:FK" & Lr2)
Application.CutCopyMode = False
Range("FL3").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND([donnees1]num_semaine1!RC[-74]<>"""",num_semaine2!RC[-75]<>""""),""mail2 avec variable Y94 "","""")"
Range("FL3").Select
Lr3 = Range("CO" & Rows.Count).End(xlUp).Row
Range("FL3").Copy Destination:=Range("FL4:FL" & Lr3)
Application.CutCopyMode = False
Range("FM3").Select
ActiveCell.FormulaR1C1 = _
"=IF([donnees1]num_semaine1!RC[-56]<>"""",""mail3 avec piece jointe"","""")"
Range("FM3").Select
Lr4 = Range("DI" & Rows.Count).End(xlUp).Row
Range("FM3").Copy Destination:=Range("FM4:FM" & Lr4)
Application.CutCopyMode = False
Range("FN3").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND([donnees1]num_semaine1!RC[-59]<>"""",num_semaine2!RC[-59]<>"""",[donnees1]num_semaine1!RC[-59]<>num_semaine2!RC[-59]),""selection de la ligne et mail avec Y106 date realisation refection"","""")"
Range("FN3").Select
Lr5 = Range("DG" & Rows.Count).End(xlUp).Row
Range("FN3").Copy Destination:=Range("FN4:FN" & Lr5)
Application.CutCopyMode = False
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "selection_suspect"
Range("A1").Select
Sheets(num_semaine2).Select
Cells.Select
Range("FM1").Activate
Selection.AutoFilter
ActiveSheet.Range("A1: FH65536").AutoFilter Field:=170, Criteria1:= _
"selection de la ligne et mail avec Y106 date realisation refection"
Selection.Copy
Sheets("selection_suspect").Select
ActiveSheet.Paste
Sheets(num_semaine2).Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("selection_suspect").Select
Range("A1").Select
Sheets(num_semaine2).Select
Range("A2:FH2").Select
Selection.Copy
Sheets("selection_suspect").Select
Range("A1").Select
ActiveSheet.Paste
Sheets(num_semaine2).Select
Range("A1").Select
End Sub |
