florent255
XLDnaute Nouveau
Bonjour,
je rencontre un problème avec un poste récemment réinstallé.
Je ne connais vraiment pas grand chose en macro et en VB, ce qui ne me facilite pas la tâche.
Lors de l'exécution d'une macro, j'ai le message d'erreur suivant :
Microsoft Virtual Basic
Erreur d'exécution '1004':
Erreur générale ODBC
J'ai recherché un peu d'ou pouvait venir le problème...
=> au niveau de la sécurité, l'option "faire confiance au projet Visual Basic" est bien coché
Le débogage me renvoit à cette ligne ( qui pour moi est du chinois ^^) :
Selection.QueryTable.Refresh BackgroundQuery:=False
Cela fonctionne très bien à partir d'un autre poste !!??
Version complète :
Sub Actualisation()
'
' Actualisation Macro
' Macro enregistrée le 18/09/2008 par xxxx
'
'
Range("A2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("L3:M3").Select
Selection.AutoFill Destination:=Range("L3:M65000"), Type:=xlFillDefault
Range("L3:M1753").Select
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 3
Range("A3").Select
End Sub
Voilà, si quelqu'un pouvait m'aider ou me guider un peu, sa serait super simpa.
Merci d'avance.
je rencontre un problème avec un poste récemment réinstallé.
Je ne connais vraiment pas grand chose en macro et en VB, ce qui ne me facilite pas la tâche.
Lors de l'exécution d'une macro, j'ai le message d'erreur suivant :
Microsoft Virtual Basic
Erreur d'exécution '1004':
Erreur générale ODBC
J'ai recherché un peu d'ou pouvait venir le problème...
=> au niveau de la sécurité, l'option "faire confiance au projet Visual Basic" est bien coché
Le débogage me renvoit à cette ligne ( qui pour moi est du chinois ^^) :
Selection.QueryTable.Refresh BackgroundQuery:=False
Cela fonctionne très bien à partir d'un autre poste !!??
Version complète :
Sub Actualisation()
'
' Actualisation Macro
' Macro enregistrée le 18/09/2008 par xxxx
'
'
Range("A2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("L3:M3").Select
Selection.AutoFill Destination:=Range("L3:M65000"), Type:=xlFillDefault
Range("L3:M1753").Select
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 3
Range("A3").Select
End Sub
Voilà, si quelqu'un pouvait m'aider ou me guider un peu, sa serait super simpa.
Merci d'avance.