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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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