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 : 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
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