Nom de Feuille et de classeur comme variable VBA

**guigui77** · 30/04/2014, 18h31

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

**parmi** · 30/04/2014, 20h51

Bonjour,

J'ai de la difficulté à comprendre ton problème.
Est-ce que c'est au niveau des formules que ça ne passe pas ?

Par exemple, ici

"=IF(AND([donnees1]num_semaine1!RC[-74]<>"""",num_semaine2!RC[-75]<>""""),""mail2 avec variable Y94 "","""")"

essaie comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=IF(AND([" & donnees1 & "]" & num_semaine1 & "!RC[-74]<>""""," & num_semaine2 & "!RC[-75]<>""""),""mail2 avec variable Y94 "","""")"

Tes variables ne doivent pas être incluses entre les guillemets, sinon leurs noms font partie de la chaîne de caractères de la formule tels quels

Aussi, évite les Select qui ne servent à rien

Range("FL3").Select
ActiveCell.FormulaR1C1 = _

devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("FL3").FormulaR1C1 = _

S'il n'y a pas de formule, mais seulement du texte, alors n'utilise pas FormulaR1C1

Range("FJ2").Select
ActiveCell.FormulaR1C1 = _
"Hypothèse0"

équivaut à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("FJ2") = "Hypothèse0"

**guigui77** · 30/04/2014, 21h09

Bonjour parmi,
Merci pour ta promptitude.
mon probleme c'est que vba , ne reconnais pas les variables que je mets entre guillemets. par exemple mon classeur a pour nom fichier28042014 et le nom de la feuille est feuille280414
vu que je dois me balancer d'une feuille à l'autre, car je veux comparer des données dans les deux fichiers qui presente la meme structure mais de date différent. Au lieur de trainer tout le temps
[fichier28042014]!feuille28042014 j'ai fais une declaration de variable comme dans SAS en donnant a fichier28042014, donnes1 et num_semaine1. Le probleme est que excel ne le prend pa en compte . donc das le code c'est les expressions genre [donnees1] ou ["&" donnees1] .....qui marche. Depuis 2j je me casse la tete. Par contre si je ne fais ce change de variable la macro tourne bien

Merci beaucoup a ts ceux qui voudrait contribuer à ça.

**parmi** · 30/04/2014, 21h49

Donne un exemple d'une ligne de code qui ne passe pas.
Ce sera plus simple d'y voir clair.

**guigui77** · 30/04/2014, 22h13

la macro s'execute juska ce niveau ou xa ne le fais pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=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]),"""")"

**parmi** · 30/04/2014, 22h39

Remplace donnees1
par " & donnees1 & "
avec les guillemets, tel quel
Tu peux sélectionner ta ou tes formules et utiliser Ctrl-H

Même chose pour num_semaine1 et num_semaine2 par
" & num_semaine1 & "
" & num_semaine2 & "

Nom de Feuille et de classeur comme variable VBA

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager