Re : Problème de rafraichissement requete
Chris,
J'ai ajouté tes lignes de commande mais la macro bloque toujours.
Je te mets la macro. Ce n'est pas moi qui l'ai écrite et j'avoue que je ne sais pas d'où vient le problème.
Voici la macro :
'Requète SQL appelé à chaque rapprochement
Sub LancerRequete(xRequete As String, xBook As Workbook, xDBQ As String, xCheminDefault As String)
With xBook.ActiveSheet.QueryTables.Add(Connection:=Array(Array("ODBC;DSN=Fichiers Excel;DBQ=" & xDBQ & ";DefaultDir=" & xCheminDefault & ";DriverId=790;MaxBufferSize="), Array("2048;PageTimeout=5;")), Destination:=Range("A1"))
.CommandText = xRequete
.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery = False
End With
End Sub
Merci de ton aide