Donnée en cache dans Excel

Bonjour à tous,


Je dispose d'un fichier Excel qui dispose de 4 macros:

1- Se connecter à une base SQLSERVER et récupéré les données et les insert dans une feuille excel (rapport)
2- Celle-ci execute plusieurs requête SQL dans la feuille Excel rapport et donne le resultat dans une autre feuille.
3- creation PDF
4-Envoi de mail.

J'ai un problème avec la macro N*2. Comme indiqué ci dessus la macro N*2 réalise des requête SQL sur la feuille rapport (qui à été réalisé par la 1er macro)

Le problème si je ré exécute la macro 1 (donc une 2ème fois) avec des résultats différents et que je réexecute la macro 2 on dirait qu'il prend pas les (nouvelles) données présentent dans la feuille rapport mais des données en cache.


J'ai fait un test, j'ai complétement vidé le contenu de la feuille "rapport" et j'ai ré-execute la macro N*2. Normalement cela devrait me retourner RIEN et bien non il me ressort les anciens résultat.

Comment faire pour "vider" se cache de données présent dans ce fichier excel.


merci d'avance pour votre aide

guigui69

Bonsoir,
Je crois que tu ferais mieux d'illustrer ton probléme avec des rudiments de code ou bien un attachement, parce que là sans une boule de cristal personne ne saurait t'aider.
De tas de questions s'en suivent:
Quelle version d'Excel tu utilises?
Quelle téchnologie d'accés aux BD SQL tu utilises (ADO ou DAO)?
La qualité du code en lui même, en fin de tas de choses quoi.... :weird:

Alors plus de détails n'en feraient pas mal.

Cordialement.

Bonjour,

avec mon total accord avec XLRATOR quand aux infos qui nous sont nécessaires .... n'oublie pas de nous présenter la portée de tes variables.

Car si elles sont publiques .... mon avis s'orienterait sur ce point ?

Oui pardon :)

Voici ma 1er macro qui va se connecter à une base mssqlserver (2008r2), elle remplit différente feuille excel et surtout la feuille "Rapport-activite"

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 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 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260

Sub Ecars21() Application.Calculation = xlManual Dim valce1 As String Dim valce2 As String Dim utilisateur As String   valce1 = Excel.Range("RECAP!F3").Value valce2 = CDate(Excel.Range("RECAP!H3").Value) + 1 valce1n = DateAdd("m", -12, valce1) valce2n = DateAdd("m", -12, valce2) 'valce3 = Excel.Range("Informations!B5").Value 'a = Split(valce3, "|") 'id_societe = a(0) 'id_atelier = a(1) 'MsgBox (">>>>>" & valce1 & "<<<<>>>>" & valce2 & "<<<<>>>>" & valce1n & "<<<<" & valce2n & "<<<<") chemin = ActiveWorkbook.Path   Set fso = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2 Worksheets("magasin").Range("A2:N3000").ClearContents Worksheets("vente-vo").Range("A2:N3000").ClearContents Worksheets("vente-vn").Range("A2:N3000").ClearContents Worksheets("rapport-activite").Range("A2:ao15000").ClearContents Worksheets("nb-or").Range("A2:ao3000").ClearContents Worksheets("apv-vente-mo").Range("A2:N3000").ClearContents Worksheets("RESULT").Range("a3:aj500").ClearContents '------------   Dim cnBat2 As ADODB.Connection Set cnBat2 = New ADODB.Connection Dim strConn2 As String strConn2 = "PROVIDER=SQLOLEDB;" strConn2 = strConn2 & "DATA SOURCE=10.11.7.77;UID=usr-ecars;PWD=Ecars21;DATABASE=Cars108783" cnBat2.Open strConn2 cnBat2.CommandTimeout = 380 valce3 = Format(Excel.Range("RECAP!F3").Value, "YYYYMMDD") valce4 = Format(CDate(Excel.Range("RECAP!H3").Value) + 1, "YYYYMMDD") valce3n = Format(DateAdd("m", -12, Excel.Range("RECAP!F3").Value), "YYYYMMDD") valce4n = Format(DateAdd("m", -12, CDate(Excel.Range("RECAP!H3").Value) + 1), "YYYYMMDD")   'MsgBox (">>>>" & valce1 & ">>>>" & valce2 & ">>>>" & valce1n & ">>>" & valce2n) Set f21 = fso.OpenTextFile(chemin & "\Sql\vente-pr-cars21.sql", ForReading) une_variable21 = Replace(f21.ReadAll, "datedebut", valce3) une_variable21 = Replace(une_variable21, "datefin", valce4) une_variable21 = Replace(une_variable21, "dbn1", valce3n) une_variable21 = Replace(une_variable21, "dfn1", valce4n) ' une_variable = Replace(une_variable, "societe", rsBat0("emp")) ' une_variable = Replace(une_variable, "atelier", rsBat0("taller")) f21.Close ' Set f1 = fso.OpenTextFile(chemin & "\" & "vente-pr-cars21.txt", 2, True) ' f1.write (une_variable21) ' f1.Close ' MsgBox (une_variable) Dim rsBat21 As ADODB.Recordset Set rsBat21 = New ADODB.Recordset With rsBat21 .ActiveConnection = cnBat2 .Open une_variable21 DerniereLigne = Worksheets("magasin").Range("A3000").End(xlUp).Row + 1   'MsgBox (DerniereLigne) Worksheets("magasin").Range("A" & DerniereLigne).CopyFromRecordset rsBat21 .Close End With         '---------     'MsgBox (">>>>" & valce1 & ">>>>" & valce2 & ">>>>" & valce1n & ">>>" & valce2n) Set f22 = fso.OpenTextFile(chemin & "\Sql\vente-vn-cars21.sql", ForReading) une_variable22 = Replace(f22.ReadAll, "datedebut", valce1) une_variable22 = Replace(une_variable22, "datefin", valce2) 'une_variable21 = Replace(une_variable21, "dbn1", valce1n) 'une_variable21 = Replace(une_variable21, "dfn1", valce2n) ' une_variable = Replace(une_variable, "societe", rsBat0("emp")) ' une_variable = Replace(une_variable, "atelier", rsBat0("taller")) f22.Close ' Set f1 = fso.OpenTextFile(chemin & "\" & "vente-pr-cars21.txt", 2, True) ' f1.write (une_variable21) ' f1.Close ' MsgBox (une_variable) Dim rsBat22 As ADODB.Recordset Set rsBat22 = New ADODB.Recordset With rsBat22 .ActiveConnection = cnBat2 .Open une_variable22 DerniereLigne = Worksheets("vente-vn").Range("A3000").End(xlUp).Row + 1   'MsgBox (DerniereLigne) Worksheets("vente-vn").Range("A" & DerniereLigne).CopyFromRecordset rsBat22 .Close End With       '---------     'MsgBox (">>>>" & valce1 & ">>>>" & valce2 & ">>>>" & valce1n & ">>>" & valce2n) Set f23 = fso.OpenTextFile(chemin & "\Sql\vente-vo-cars21.sql", ForReading) une_variable23 = Replace(f23.ReadAll, "datedebut", valce1) une_variable23 = Replace(une_variable23, "datefin", valce2) 'une_variable21 = Replace(une_variable21, "dbn1", valce1n) 'une_variable21 = Replace(une_variable21, "dfn1", valce2n) ' une_variable = Replace(une_variable, "societe", rsBat0("emp")) ' une_variable = Replace(une_variable, "atelier", rsBat0("taller")) f23.Close ' Set f1 = fso.OpenTextFile(chemin & "\" & "vente-pr-cars21.txt", 2, True) ' f1.write (une_variable21) ' f1.Close ' MsgBox (une_variable) Dim rsBat23 As ADODB.Recordset Set rsBat23 = New ADODB.Recordset With rsBat23 .ActiveConnection = cnBat2 .Open une_variable23 DerniereLigne = Worksheets("vente-vo").Range("A3000").End(xlUp).Row + 1   'MsgBox (DerniereLigne) Worksheets("vente-vo").Range("A" & DerniereLigne).CopyFromRecordset rsBat23 .Close End With       '-------------------------     '---------     'MsgBox (">>>>" & valce1 & ">>>>" & valce2 & ">>>>" & valce1n & ">>>" & valce2n) Set f24 = fso.OpenTextFile(chemin & "\Sql\tps-cars21.sql", ForReading) une_variable24 = Replace(f24.ReadAll, "datedebut", valce1) une_variable24 = Replace(une_variable24, "datefin", valce2) 'une_variable21 = Replace(une_variable21, "dbn1", valce1n) 'une_variable21 = Replace(une_variable21, "dfn1", valce2n) ' une_variable = Replace(une_variable, "societe", rsBat0("emp")) ' une_variable = Replace(une_variable, "atelier", rsBat0("taller")) f24.Close ' Set f1 = fso.OpenTextFile(chemin & "\" & "vente-pr-cars21.txt", 2, True) ' f1.write (une_variable21) ' f1.Close ' MsgBox (une_variable) Dim rsBat24 As ADODB.Recordset Set rsBat24 = New ADODB.Recordset With rsBat24 .ActiveConnection = cnBat2 .Open une_variable24 DerniereLigne = Worksheets("Rapport-activite").Range("A3000").End(xlUp).Row + 1   'MsgBox (DerniereLigne) Worksheets("Rapport-activite").Range("A" & DerniereLigne).CopyFromRecordset rsBat24 .Close End With         'MsgBox (">>>>" & valce1 & ">>>>" & valce2 & ">>>>" & valce1n & ">>>" & valce2n) Set f26 = fso.OpenTextFile(chemin & "\Sql\nb-or.sql", ForReading) une_variable26 = Replace(f26.ReadAll, "datedebut", valce1) une_variable26 = Replace(une_variable26, "datefin", valce2) une_variable26 = Replace(une_variable26, "societe", "1")   f26.Close ' Set f1 = fso.OpenTextFile(chemin & "\" & "vente-pr-cars21.txt", 2, True) ' f1.write (une_variable21) ' f1.Close ' MsgBox (une_variable) Dim rsBat26 As ADODB.Recordset Set rsBat26 = New ADODB.Recordset With rsBat26 .ActiveConnection = cnBat2 .Open une_variable26 DerniereLigne = Worksheets("nb-or").Range("A30").End(xlUp).Row + 1   'MsgBox (DerniereLigne) Worksheets("nb-or").Range("A" & DerniereLigne).CopyFromRecordset rsBat26 .Close End With       '------------------------- '---------   ' 'MsgBox (">>>>" & valce1 & ">>>>" & valce2 & ">>>>" & valce1n & ">>>" & valce2n) Set f27 = fso.OpenTextFile(chemin & "\Sql\nb-or.sql", ForReading) une_variable27 = Replace(f27.ReadAll, "datedebut", valce1) une_variable27 = Replace(une_variable27, "datefin", valce2) une_variable27 = Replace(une_variable27, "societe", "2")   f27.Close ' Set f1 = fso.OpenTextFile(chemin & "\" & "vente-pr-cars21.txt", 2, True) ' f1.write (une_variable21) ' f1.Close ' MsgBox (une_variable) Dim rsBat27 As ADODB.Recordset Set rsBat27 = New ADODB.Recordset With rsBat27 .ActiveConnection = cnBat2 .Open une_variable27 DerniereLigne = Worksheets("nb-or").Range("A30").End(xlUp).Row + 1   'MsgBox (DerniereLigne) Worksheets("nb-or").Range("A" & DerniereLigne).CopyFromRecordset rsBat27 .Close End With       '------------------------- '---------   ' 'MsgBox (">>>>" & valce1 & ">>>>" & valce2 & ">>>>" & valce1n & ">>>" & valce2n) Set f28 = fso.OpenTextFile(chemin & "\Sql\nb-or.sql", ForReading) une_variable28 = Replace(f28.ReadAll, "datedebut", valce1) une_variable28 = Replace(une_variable28, "datefin", valce2) une_variable28 = Replace(une_variable28, "societe", "3")   f28.Close ' Set f1 = fso.OpenTextFile(chemin & "\" & "vente-pr-cars21.txt", 2, True) ' f1.write (une_variable21) ' f1.Close ' MsgBox (une_variable) Dim rsBat28 As ADODB.Recordset Set rsBat28 = New ADODB.Recordset With rsBat28 .ActiveConnection = cnBat2 .Open une_variable28 DerniereLigne = Worksheets("nb-or").Range("A30").End(xlUp).Row + 1   'MsgBox (DerniereLigne) Worksheets("nb-or").Range("A" & DerniereLigne).CopyFromRecordset rsBat28 .Close End With       '-------------------------   cnBat2.Close Set rsBat2 = Nothing Set cnBat2 = Nothing             Application.Calculate Application.Calculation = xlAutomatic End Sub

---

Voici la 2eme macro qui elle s'occupe de réaliser des requete SQL sur la feuille "rapport-activité"

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 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 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347

Sub rapportactivite()     '----------------------------------         'Définit le classeur servant de base de données Fichier = ActiveWorkbook.FullName   Set Cn = New ADODB.Connection   '--- Connexion --- With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   '... la requête ... texte_SQL = "SELECT Departement, Worker, SUM(spenttime) as TOTAL FROM ( [Rapport-activite$]) " texte_SQL = texte_SQL + " WHERE id_rubric NOT IN ('25','61','63','72','73','76') and trav_inperiod='YES' " texte_SQL = texte_SQL + " GROUP BY Departement, Worker"   Set Rst = Cn.Execute(texte_SQL)   'Copy des données Sheets("RESULT").Select Sheets("RESULT").[E3].CopyFromRecordset Rst   'Entêtes de colonne Dim liCount As Integer For liCount = 0 To Rst.Fields.Count - 1 Sheets("RESULT").Cells(1, liCount + 1) = Rst.Fields(liCount).Name Next     '--- Fermeture connexion --- Rst.Close Cn.Close Set Cn = Nothing       '------------------------------------     'Définit le classeur servant de base de données Fichier = ActiveWorkbook.FullName   Set Cn = New ADODB.Connection   '--- Connexion --- With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   '... la requête ... texte_SQL = "SELECT Departement,Worker, SUM(invtime)as TOTAL ,SUM(net) as TOTAL2 FROM ( [Rapport-activite$]) " texte_SQL = texte_SQL + " WHERE id_rubric IN ('??','01','02','04','05','06','09','27','31','32','33','34','38','41') and doc_inperiod='YES' " texte_SQL = texte_SQL + " GROUP BY Departement, Worker"   Set Rst = Cn.Execute(texte_SQL)   'Copy des données Sheets("RESULT").Select Sheets("RESULT").[A3].CopyFromRecordset Rst   'Entêtes de colonne   For liCount = 0 To Rst.Fields.Count - 1 Sheets("RESULT").Cells(1, liCount + 1) = Rst.Fields(liCount).Name Next     '--- Fermeture connexion --- Rst.Close Cn.Close Set Cn = Nothing     '---------------------------------------     'Définit le classeur servant de base de données Fichier = ActiveWorkbook.FullName   Set Cn = New ADODB.Connection   '--- Connexion --- With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   '... la requête ... texte_SQL = "SELECT Departement,SUM(cost) as TOTAL FROM ( [Rapport-activite$]) " texte_SQL = texte_SQL + " WHERE trav_inperiod='YES' " texte_SQL = texte_SQL + " GROUP BY Departement"   Set Rst = Cn.Execute(texte_SQL)   'Copy des données Sheets("RESULT").Select Sheets("RESULT").[H3].CopyFromRecordset Rst   'Entêtes de colonne   For liCount = 0 To Rst.Fields.Count - 1 Sheets("RESULT").Cells(1, liCount + 1) = Rst.Fields(liCount).Name Next     '--- Fermeture connexion --- Rst.Close Cn.Close Set Cn = Nothing   '---------------------------------                   'Définit le classeur servant de base de données Fichier = ActiveWorkbook.FullName   Set Cn = New ADODB.Connection   '--- Connexion --- With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   '... la requête ... texte_SQL = "SELECT Service, count(tt) as total FROM (SELECT DISTINCT dossier as tt, Service FROM ( [APV-Vente-MO$]) " texte_SQL = texte_SQL + " WHERE type IN ('0 -Client','3 -Assurance')) as requete1 " texte_SQL = texte_SQL + " GROUP BY Service "   Set Rst = Cn.Execute(texte_SQL)   'Copy des données Sheets("RESULT").Select Sheets("RESULT").[K3].CopyFromRecordset Rst   'Entêtes de colonne   For liCount = 0 To Rst.Fields.Count - 1 Sheets("RESULT").Cells(1, liCount + 1) = Rst.Fields(liCount).Name Next     '--- Fermeture connexion --- Rst.Close Cn.Close Set Cn = Nothing     '---------------------------------------------       '-----------------------------------------------             'Définit le classeur servant de base de données Fichier = ActiveWorkbook.FullName   Set Cn = New ADODB.Connection   '--- Connexion --- With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   '... la requête ... texte_SQL = "SELECT Departement, Worker, SUM(invtime) as TOTAL, Type FROM ( [Rapport-activite$]) " texte_SQL = texte_SQL + " WHERE id_rubric IN ('??','01','02','04','05','06','09','27','31','32','33','34','38','41') and trav_inperiod='YES' " texte_SQL = texte_SQL + " GROUP BY Departement, Worker, Type"   Set Rst = Cn.Execute(texte_SQL)   'Copy des données Sheets("RESULT").Select Sheets("RESULT").[o3].CopyFromRecordset Rst   'Entêtes de colonne   For liCount = 0 To Rst.Fields.Count - 1 Sheets("RESULT").Cells(1, liCount + 1) = Rst.Fields(liCount).Name Next     '--- Fermeture connexion --- Rst.Close Cn.Close Set Cn = Nothing     '-------------------------------               'Définit le classeur servant de base de données Fichier = ActiveWorkbook.FullName   Set Cn = New ADODB.Connection   '--- Connexion --- With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   '... la requête ... texte_SQL = "SELECT Departement,Worker, SUM(spenttime)as TOTAL FROM ( [Rapport-activite$]) " texte_SQL = texte_SQL + " WHERE trav_inperiod='YES' AND id_rubric NOT IN ('63') " texte_SQL = texte_SQL + " GROUP BY Departement, Worker"   Set Rst = Cn.Execute(texte_SQL)   'Copy des données Sheets("RESULT").Select Sheets("RESULT").[U3].CopyFromRecordset Rst   'Entêtes de colonne   For liCount = 0 To Rst.Fields.Count - 1 Sheets("RESULT").Cells(1, liCount + 1) = Rst.Fields(liCount).Name Next     '--- Fermeture connexion --- Rst.Close Cn.Close Set Cn = Nothing     '---------------------------------------             'Définit le classeur servant de base de données Fichier = ActiveWorkbook.FullName   Set Cn = New ADODB.Connection   '--- Connexion --- With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   '... la requête ... texte_SQL = "SELECT Departement,Worker, SUM(spenttime)as TOTAL ,SUM(net) as TOTAL2 FROM ( [Rapport-activite$]) " texte_SQL = texte_SQL + " WHERE id_rubric IN ('??','01','02','04','05','06','09','27','31','32','33','34','38','41') and trav_inperiod='YES' " texte_SQL = texte_SQL + " GROUP BY Departement, Worker"   Set Rst = Cn.Execute(texte_SQL)   'Copy des données Sheets("RESULT").Select Sheets("RESULT").[AA3].CopyFromRecordset Rst   'Entêtes de colonne   For liCount = 0 To Rst.Fields.Count - 1 Sheets("RESULT").Cells(1, liCount + 1) = Rst.Fields(liCount).Name Next     '--- Fermeture connexion --- Rst.Close Cn.Close Set Cn = Nothing     '--------------------------------------               'Définit le classeur servant de base de données Fichier = ActiveWorkbook.FullName   Set Cn = New ADODB.Connection   '--- Connexion --- With Cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;""" .Open End With   '... la requête ... texte_SQL = "SELECT Departement,type, SUM(invtime)as TOTAL ,SUM(net) as TOTAL2 FROM ( [Rapport-activite$]) " texte_SQL = texte_SQL + " WHERE id_rubric IN ('??','01','02','04','05','06','09','27','31','32','33','34','38','41') and doc_inperiod='YES' " texte_SQL = texte_SQL + " GROUP BY Departement, type"   Set Rst = Cn.Execute(texte_SQL)   'Copy des données Sheets("RESULT").Select Sheets("RESULT").[AF3].CopyFromRecordset Rst   'Entêtes de colonne   For liCount = 0 To Rst.Fields.Count - 1 Sheets("RESULT").Cells(1, liCount + 1) = Rst.Fields(liCount).Name Next     '--- Fermeture connexion --- Rst.Close Cn.Close Set Cn = Nothing   End Sub

---

merci d'avance pour vos explications

guigui69