Modification ODBC avec .QueryTables
Bonjour à tous,
J'ai beaucoup de fichiers excel suite a une migration de serveur des fichiers ne fonctionnent plus, après des recherches cela vient du "Network" pour la connection au serveur sql 2000 en effet dans mes fichiers la connection est en memoire partagée (DBMSLPCN) et elle devrait etre en TCP/IP (DBMSSOCN).
J'ai reussi a lire la connection ODBC de mon excel avec le code suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Sub Lecture_ODBC()
With Worksheets("ODBC")
.Range("A1") = Worksheets("Marquage").QueryTables(1).Connection
End With
With Worksheets("ODBC")
.Range("A2") = Worksheets("Ctrl Valeur").QueryTables(1).Connection
End With
With Worksheets("ODBC")
.Range("A3") = Worksheets("Doublon facture").QueryTables(1).Connection
End With
With Worksheets("ODBC")
.Range("A4") = Worksheets("Marqué sans Relevé").QueryTables(1).Connection
End With
With Worksheets("ODBC")
.Range("A5") = Worksheets("Sans Relevé").QueryTables(1).Connection
End With
End Sub |
En revanche je souhaite maintenant modifier la connexion dans ma feuille ODBC et via la macro inscrire dans mon fichier les nouveaux paramètres mais le code suivant de fonctionne pas j'ai un bug sur le premier Worksheets
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub MAJ_ODBC()
With Worksheets("ODBC")
Worksheets("Marquage").QueryTables(1).Connection = .Range("A1")
.QueryTables(1).Refresh False
End With
With Worksheets("ODBC")
Worksheets("Ctrl Valeur").QueryTables(2).Connection = .Range("A2")
.QueryTables(2).Refresh False
End With
With Worksheets("ODBC")
Worksheets("Doublon facture").QueryTables(1).Connection = .Range("A3")
.QueryTables(1).Refresh False
End With
With Worksheets("ODBC")
Worksheets("Marqué sans Relevé").QueryTables(1).Connection = .Range("A4")
.QueryTables(1).Refresh False
End With
With Worksheets("ODBC")
Worksheets("Sans Relevé").QueryTables(1).Connection = .Range("A5")
.QueryTables(1).Refresh False
End With
End Sub |
Si vous pouviez m'aider
Merci d'avance
