Discussion :

[rd1971]

Bonjour j'ai une macro qu ise lance correctement mais qu ine fonctionne plus au deuxième lancement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DoCmd.OutputTo acOutputQuery, "stat_etab_1_Analyse croisée", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("transf.xlsx")
Set x1sheet = ActiveSheet
For i = 1 To 12
For j = 1 To 7
tab1(i, j) = x1sheet.Range(x1sheet.Cells(i, j), x1sheet.Cells(i, j))
Next j
Next i
xlApp.Workbooks("transf.xlsx").Close
Kill ("transf.xlsx")

Avez vous des solutions ?
Merci d'avance

[tee_grandbois]

bonjour,

xlApp.Workbooks("transf.xlsx").Close
Kill ("transf.xlsx")

ce n'est pas la bonne méthode pour fermer proprement une instance Excel, surtout en Late Binding (liaison tardive en français) car si les objets ne sont pas correctement fermés, ils restent en mémoire et peuvent provoquer des problèmes. Il vaut mieux (dans l'ordre) fermer les objets et l'application et désallouer les variables:

Code :

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

1
2
3
4
5
xlbook.Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set x1sheet = Nothing    ' désalloue la variable feuille
Set xlBook = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel

[rd1971]

Bonjour,
Merci pour votre retour,
il ne reconnaissait pas x1book j'ai alors fait :

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
'imports de données tab1
'imports de données tab1
 
DoCmd.OutputTo acOutputQuery, "stat_etab_1_Analyse croisée", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("transf.xlsx")
Set x1Sheet = ActiveSheet
For i = 1 To 12
For j = 1 To 7
tab1(i, j) = x1Sheet.Range(x1Sheet.Cells(i, j), x1Sheet.Cells(i, j))
Next j
Next i
Workbooks("transf.xlsx").Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set x1Sheet = Nothing    ' désalloue la variable feuille
Set x1Book = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel
 
'import données tab 2
 
DoCmd.OutputTo acOutputQuery, "stat_etab_1_Analyse croisée_bis", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set x1app = CreateObject("Excel.Application")
Set x1Book = x1app.Workbooks.Open("transf.xlsx")
Set x1Sheet = ActiveSheet
For i = 1 To 2
For j = 1 To 7
tab2(i, j) = x1Sheet.Range(x1Sheet.Cells(i, j), x1Sheet.Cells(i, j))
Next j
Next i
Workbooks("transf.xlsx").Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set x1Sheet = Nothing    ' désalloue la variable feuille
Set x1Book = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel

Maintenant il ne reconnait pas tab2 (variable objet non définie)
j'ai en fait 6 imports à la suite
Merci d'avance

[tee_grandbois]

il ne reconnaissait pas x1book

normal c'est xlbook avec la lettre l, pas le chiffre 1, c'est la variable déclarée ici:

Code :

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

Set xlBook = xlApp.Workbooks.Open("transf.xlsx")

Maintenant il ne reconnait pas tab2 (variable objet non définie)
j'ai en fait 6 imports à la suite

je comprend mal la démarche pour "importer" :
tu fais un export vers Excel d'une requête:

Code :

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

DoCmd.OutputTo acOutputQuery, "stat_etab_1_Analyse croisée", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint

que tu ouvres, une fois le fichier obtenu:

Code :

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

Set xlBook = xlApp.Workbooks.Open("transf.xlsx")

pour remplir un tableau dans Access !:

Code :

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

tab1(i, j) = x1Sheet.Range(x1Sheet.Cells(i, j), x1Sheet.Cells(i, j))

tu te compliques vraiment la vie...

Commence par expliquer ce que tu souhaites faire, puis montre tout le code en utilisant les balises de code cette fois (icône # dans le menu création de message du forum)

[rd1971]

Bonjour,
Merci pour vos conseils, je me forme
J'ai corrigé les x1 et xl des copier coller et des lignes tapées, je n'avais pas fait la difference entre les deux, quelle truffe...

Pour ce qu iest du code j'exporte des requetes croisées dynamique que je recompile dans un fichier excel global

Sion j'ai maintenant un echec sur la methode global pour l'objet cell en tab 2 qui fait erreur :

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
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
Private Sub Commande14_Click()
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim ligne As Integer
Dim tab1(12, 7)
Dim tab2(2, 7)
Dim tab3(11, 7)
Dim tab4(2, 7)
Dim tab5(7, 7)
Dim tab6(2, 7)
 
'initialisation
If Len(Dir("transf.xlsx")) > 0 Then Kill ("transf.xlsx")
If Len(Dir("Synthese etablissement.xlsx")) > 0 Then Kill ("Synthese etablissement.xlsx")
 
'imports de données tab1
 
DoCmd.OutputTo acOutputQuery, "stat_etab_1_Analyse croisée", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("transf.xlsx")
Set xlSheet = ActiveSheet
For i = 1 To 12
For j = 1 To 7
tab1(i, j) = xlSheet.Range(Cells(i, j), Cells(i, j))
Next j
Next i
xlBook.Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set xlSheet = Nothing    ' désalloue la variable feuille
Set xlBook = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel
 
'import données tab 2
 
DoCmd.OutputTo acOutputQuery, "stat_etab_1_Analyse croisée_bis", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("transf.xlsx")
Set xlSheet = ActiveSheet
For i = 1 To 2
For j = 1 To 7
tab2(i, j) = xlSheet.Range(Cells(i, j), Cells(i, j))
Next j
Next i
xlBook.Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set xlSheet = Nothing    ' désalloue la variable feuille
Set xlBook = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel
 
'import tab3
 
DoCmd.OutputTo acOutputQuery, "stat_etab_2_Analyse croisée", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("transf.xlsx")
Set xlSheet = ActiveSheet
For i = 1 To 11
For j = 1 To 7
tab3(i, j) = xlSheet.Cells(i, j)
Next j
Next i
xlBook.Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set xlSheet = Nothing    ' désalloue la variable feuille
Set xlBook = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel
 
'import tab4
 
DoCmd.OutputTo acOutputQuery, "stat_etab_2_Analyse croisée_bis", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("transf.xlsx")
Set xlSheet = ActiveSheet
For i = 1 To 2
For j = 1 To 7
tab4(i, j) = xlSheet.Range(Cells(i, j), Cells(i, j))
Next j
Next i
xlBook.Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set xlSheet = Nothing    ' désalloue la variable feuille
Set xlBook = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel
 
'import tab5
 
DoCmd.OutputTo acOutputQuery, "stat_etab_2_R&P_Analyse croisée", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("transf.xlsx")
Set xlSheet = ActiveSheet
For i = 1 To 7
For j = 1 To 7
tab5(i, j) = xlSheet.Range(Cells(i, j), Cells(i, j))
Next j
Next i
xlBook.Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set xlSheet = Nothing    ' désalloue la variable feuille
Set xlBook = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel
 
'import tab6
 
DoCmd.OutputTo acOutputQuery, "stat_etab_2_R&P_Analyse croisée_bis", "ExcelWorkbook(*.xlsx)", "transf.xlsx", False, "", , acExportQualityPrint
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("transf.xlsx")
Set xlSheet = ActiveSheet
For i = 1 To 2
For j = 1 To 7
tab6(i, j) = xlSheet.Range(Cells(i, j), Cells(i, j))
Next j
Next i
xlBook.Close False    ' ferme le classeur sans sauvegarder
xlApp.Quit  ' ferme l'application Excel
Set xlSheet = Nothing    ' désalloue la variable feuille
Set xlBook = Nothing    ' désalloue la variable classeur
Set xlApp = Nothing    ' désalloue la variable Application Excel
 
'transfert données
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
xlBook.SaveAs ("Synthese etablissement.xlsx")
Set xlBook = xlApp.Workbooks.Open("Synthese etablissement.xlsx")
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "rapport"
xlSheet.Cells(1, 1) = "Rapport de synthèse etablissement"
xlSheet.Cells(1, 1).Font.Size = 14
xlSheet.Columns(1).ColumnWidth = 45
xlSheet.Cells(2, 1) = "Péridoe d'observation du " & Me.dte_deb & " au " & Me.dte_fin
 
'copie de transfert tab1
xlSheet.Cells(4, 1) = "Nombre de contrat par statut et organisme de gestion"
For i = 1 To 12
If tab1(i, 1) = "" Then
ligne = 5 + i
Exit For
End If
For j = 1 To 7
If tab1(1, j) = "" Then Exit For Else
xlSheet.Cells(i + 5, j) = tab1(i, j)
xlSheet.Cells(i + 5, j).Borders.Value = 1
xlSheet.Cells(i + 5, j).HorizontalAlignment = xlHAlignCenter
xlSheet.Cells(i + 5, j).WrapText = True
If xlSheet.Cells(i + 5, j) = "" Or xlSheet.Cells(i + 5, j) = 0 Then xlSheet.Cells(i + 5, j) = "-"
Next j
If i = 12 Then ligne = 5 + i
Next i
 
'copie de transfert tab 2
xlSheet.Cells(ligne + 1, 1) = "Total"
xlSheet.Cells(ligne + 1, 1).Borders.Value = 1
xlSheet.Cells(ligne + 1, 1).HorizontalAlignment = xlHAlignCenter
xlSheet.Cells(ligne + 1, 1).WrapText = True
For j = 1 To 7
xlSheet.Cells(ligne + 1, j + 1) = tab2(2, j)
If tab2(1, j) = "" Then Exit For Else
xlSheet.Cells(ligne + 1, j + 1).Borders.Value = 1
xlSheet.Cells(ligne + 1, j + 1).HorizontalAlignment = xlHAlignCenter
If xlSheet.Cells(ligne + 1, j + 1) = "" Or xlSheet.Cells(ligne + 1, j + 1) = 0 Then xlSheet.Cells(ligne + 1, j + 1) = "-"
Next j
ligne = ligne + 2
'copie de transfert tab 3
ligne = ligne + 1
xlSheet.Cells(ligne, 1) = "Montant des contrats signés par famille et organisme de gestion"
For i = 1 To 11
If i > 1 And tab3(i, 1) = "" Then
ligne = ligne + 2 + i
Exit For
End If
For j = 1 To 7
If tab3(1, j) = "" Then Exit For Else
xlSheet.Cells(ligne + 1 + i, j) = tab3(i, j)
xlSheet.Cells(ligne + 1 + i, j).Borders.Value = 1
xlSheet.Cells(ligne + 1 + i, j).HorizontalAlignment = xlHAlignCenter
xlSheet.Cells(ligne + 1 + i, j).WrapText = True
If j <> 1 Then xlSheet.Cells(ligne + 2 + i, j).NumberFormat = "#,##0.00 €"
If xlSheet.Cells(ligne + 1 + i, j) = "" Or xlSheet.Cells(ligne + 1 + i, j) = 0 Then xlSheet.Cells(ligne + 1 + i, j) = "- €"
Next j
If i = 11 Then ligne = ligne + 2 + i
Next i
'copie de transfer tab 4
xlSheet.Cells(ligne, 1) = "Total"
xlSheet.Cells(ligne, 1).Borders.Value = 1
xlSheet.Cells(ligne, 1).HorizontalAlignment = xlHAlignCenter
xlSheet.Cells(ligne, 1).WrapText = True
For j = 1 To 6
If tab4(1, j + 1) = "" Then Exit For Else
xlSheet.Cells(ligne, j + 1).Borders.Value = 1
xlSheet.Cells(ligne, j + 1).HorizontalAlignment = xlHAlignCenter
xlSheet.Cells(ligne, j + 1).WrapText = True
xlSheet.Cells(ligne, j + 1) = tab4(2, j + 1)
If j <> 1 Then xlSheet.Cells(ligne, j + 1).NumberFormat = "#,##0.00 €"
If xlSheet.Cells(ligne, j + 1) = "" Or xlSheet.Cells(ligne, j + 1) = 0 Then xlSheet.Cells(ligne, j + 1) = "- €"
Next j
ligne = ligne + 2
'copie de transfert tab 5
xlSheet.Cells(ligne, 1) = "Nombre de contrat signé par famille et organisme de gestion - Prestation et Recherche"
For i = 1 To 7
If tab5(i, 1) = "" Then
ligne = ligne + 1 + i
Exit For
End If
For j = 1 To 6
If tab5(1, j) = "" Then Exit For Else
xlSheet.Cells(ligne + 1 + i, j) = tab5(i, j)
xlSheet.Cells(ligne + 1 + i, j).Borders.Value = 1
xlSheet.Cells(ligne + 1 + i, j).HorizontalAlignment = xlHAlignCenter
xlSheet.Cells(ligne + 1 + i, j).WrapText = True
If j <> 1 Then xlSheet.Cells(ligne + 1 + i, j).NumberFormat = "#,##0.00 €"
If xlSheet.Cells(ligne + 1 + i, j) = "" Or xlSheet.Cells(ligne + 1 + i, j) = 0 Then xlSheet.Cells(ligne + 1 + i, j) = "- €"
Next j
If i = 7 Then ligne = ligne + 1 + i
Next i
'copie de transfer tab 6
ligne = ligne + 1
xlSheet.Cells(ligne, 1) = "Total"
xlSheet.Cells(ligne, 1).Borders.Value = 1
xlSheet.Cells(ligne, 1).HorizontalAlignment = xlHAlignCenter
xlSheet.Cells(ligne, 1).WrapText = True
For j = 1 To 6
If tab6(1, j + 1) = "" Then Exit For Else
xlSheet.Cells(ligne, j + 1) = tab6(2, j + 1)
xlSheet.Cells(ligne, j + 1).Borders.Value = 1
xlSheet.Cells(ligne, j + 1).HorizontalAlignment = xlHAlignCenter
xlSheet.Cells(ligne, j + 1).WrapText = True
xlSheet.Cells(ligne, j + 1).NumberFormat = "#,##0.00 €"
If xlSheet.Cells(ligne, j + 1) = "" Or xlSheet.Cells(ligne, j + 1) = 0 Then xlSheet.Cells(ligne, j + 1) = "- €"
Next j
ligne = ligne + 1
 
 
' code de fermeture et libération des objets
xlBook.Save
xlApp.Visible = True

Merci d'avance

[rd1971]

Ca y est ca marche des xlsheet étaient mal définies.
Merci beaucoup pour votre aide !!!
Bonne journée