Problème VBA + Procedure sql server Fermé

Question

Bonjour, 
j'essaye d’exécuter une procédure sql qerver à partir de excel VBA, j'ai inserer un bouton commande dans excel pour  exécuter  la procédure mais il m'affiche l'erreur suivante " erreur d’exécution '9' : l'indice n'appartient pas a la sélection. "
Pouvez vous m'aider c'est urgent.
ci dessous mon code VBA :

Private Sub Test_Click()
Dim requete As String

requete = "" _
& "execute FINAN.dbo.BUDVBA '" & 20160331 & "' "

connstring = "ODBC;DRIVER=SQL Server;SERVER=xx.xxxx.xx.xx\xxxxxxx;UID=xxxxxx;PWD=xxxxxxx"

ActiveSheet.QueryTables(1).Connection = connstring
ActiveSheet.QueryTables(1).CommandText = requete

ActiveSheet.QueryTables(1).Refresh BackgroundQuery:=False
End Sub



     EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.



Configuration: Windows 7 / Chrome 44.0.2403.89

jordane45 · Answer

Bonjour,

il te met l'erreur sur la/les lignes

ActiveSheet.QueryTables(1).Connection = connstring
ActiveSheet.QueryTables(1).CommandText = requete

Es-tu sûr d'avoir une QueryTable  dans la feuille active ?

Sinon tu n'as qu'a en créer une nouvelle via :

.QueryTables.Add(Connection:=connstring, Destination:=Range("A1"), Sql:=requete)



Ou sur la ligne :

requete = "" _
& "execute FINAN.dbo.BUDVBA '" & 20160331 & "' "

Et d'où vient cette serie de chiffres .... placée entre  &  & .....
Il  vaudrait mieux écrire :

requete =  "execute FINAN.dbo.BUDVBA '20160331' "

Problème VBA + Procedure sql server

1 réponse

Discussions similaires