breizhoneg
XLDnaute Nouveau
Bonjour le Forum,
Une fois de plus, je me retrouve coincé et j'espére que l'un d'entre aura la solution a mon (petit??) problème.
Pour faire simple, je souhaite faire une extraction de données d'une base SQL et obtenir le résultat dans un onglet excel.
Quand j'exécute mon code, il me renvoi un message d'erreur : 3 Erreur d'exécution 5 Argument ou appel de procédure incorrect". J'ai beau cherché, je ne trouve pas. (j'ai regardé si une question a peut prés identique fut déjà demandé, mais je n'ai rien trouvé. Dans le cas ou je n'aurais pas bien cherché, je m'en excuse d'avance).
Ci dessous un morceau de mon code :
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=BaseDonnees;", Destination:=Range("$A$2")).QueryTable
.CommandText = Array( _
"ma requête" )
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = _
"onglet 1"
.Refresh BackgroundQuery:=False
End With
J'ai le message d'erreur sur la ligne en rouge.
Je vous remercie par avance pour votre aide.
BzH
Une fois de plus, je me retrouve coincé et j'espére que l'un d'entre aura la solution a mon (petit??) problème.
Pour faire simple, je souhaite faire une extraction de données d'une base SQL et obtenir le résultat dans un onglet excel.
Quand j'exécute mon code, il me renvoi un message d'erreur : 3 Erreur d'exécution 5 Argument ou appel de procédure incorrect". J'ai beau cherché, je ne trouve pas. (j'ai regardé si une question a peut prés identique fut déjà demandé, mais je n'ai rien trouvé. Dans le cas ou je n'aurais pas bien cherché, je m'en excuse d'avance).
Ci dessous un morceau de mon code :
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=BaseDonnees;", Destination:=Range("$A$2")).QueryTable
.CommandText = Array( _
"ma requête" )
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = _
"onglet 1"
.Refresh BackgroundQuery:=False
End With
J'ai le message d'erreur sur la ligne en rouge.
Je vous remercie par avance pour votre aide.
BzH