N
neurone
Guest
Bonjour,
J ai creer un petit code Excel qui a partir de quatres cellules (nommee DB, Userid, Password et Querie) me permet de lancer une querie sur une de mes bases ODCB et de copier le resultat dans la feuille Results.
Cela marche, mais pas pout tout les login (je penses un probleme de majuscule par exemple pose probleme) alors que ceux ci se connecte bien dans Data Sources (ODCB)
Voici le code :
Pouvez vous m aider, SVP
J ai creer un petit code Excel qui a partir de quatres cellules (nommee DB, Userid, Password et Querie) me permet de lancer une querie sur une de mes bases ODCB et de copier le resultat dans la feuille Results.
Cela marche, mais pas pout tout les login (je penses un probleme de majuscule par exemple pose probleme) alors que ceux ci se connecte bien dans Data Sources (ODCB)
Voici le code :
Private Sub CommandButton1_Click()
With Worksheets("Results").QueryTables(1)
.Connection = "ODBC;DSN=" & Range("DB").Cells & ";UID=" & Range("Userid").Cells & ";PWD=" & Range("Password").Cells & ";MODE=SHARE;DBALIAS=" & Range("DBALI").Cells & ";"
.CommandText = Range("Querie").Cells
.Refresh BackgroundQuery:=False
.RefreshOnFileOpen = False
End With
Worksheets("Results").Activate
End Sub
Pouvez vous m aider, SVP
Dernière modification par un modérateur: