Bonjour .
J ai recupéré un macro VBA qui tourne sur NT4 et excel 97 et je veut la faire tourner sur XP excel 2002.
Sur NT la macro s'execute en 40 minutes
Sous Xp elle met plus de 5 heures
Le code qui ralenti l'exécution est le traitement de la requete SQL
l_s_Nombase = g_s_dossierTemp & "TM_PARAM.xls"
l_s_temp = ExtraitChemin(g_s_dossierTemp)
l_s_Connect = "ODBC;DSN=Excel Files;DBQ=" & l_s_Nombase & ";DefaultDir=" & l_s_temp & ";DriverId=22;MaxBufferSize=2048;PageTimeout=5;"
'-- Exécution de la requête Paquet TM et Point Mesure
With g_o_PWS("Relation1").QueryTables.Add(Connection:=l_s_Connect, _
Destination:=g_o_PWS("Relation1").Range("A1"), Sql:=l_s_Requete2)
.FieldNames = True
.Refresh BackgroundQuery:=False
End With
Est ce que les paramètres de connection sont adaptés ????????
J ai recupéré un macro VBA qui tourne sur NT4 et excel 97 et je veut la faire tourner sur XP excel 2002.
Sur NT la macro s'execute en 40 minutes
Sous Xp elle met plus de 5 heures
Le code qui ralenti l'exécution est le traitement de la requete SQL
l_s_Nombase = g_s_dossierTemp & "TM_PARAM.xls"
l_s_temp = ExtraitChemin(g_s_dossierTemp)
l_s_Connect = "ODBC;DSN=Excel Files;DBQ=" & l_s_Nombase & ";DefaultDir=" & l_s_temp & ";DriverId=22;MaxBufferSize=2048;PageTimeout=5;"
'-- Exécution de la requête Paquet TM et Point Mesure
With g_o_PWS("Relation1").QueryTables.Add(Connection:=l_s_Connect, _
Destination:=g_o_PWS("Relation1").Range("A1"), Sql:=l_s_Requete2)
.FieldNames = True
.Refresh BackgroundQuery:=False
End With
Est ce que les paramètres de connection sont adaptés ????????