ODBC SQL et Excel

Version imprimable

19/03/2010, 11h16
calamarz

ODBC SQL et Excel

Bonjour,

J'ai actuellement des fichiers excel avec des liaisons ODBC vers SQL serveur 2000 sur mon ancien serveur en windows 2000 ils fonctionnent tous en revanche sur le nouveau en windows 2003 certains fonctionnent et pas d'autres (avec le meme ODBC !!!).

Apres des tests je viens de comprendre en effet mes fichiers excel integrent les requetes et pour les fichiers recents qui fonctionnent le mode de connexion est "DBMSSOCN" (mode TCP/IP) et sur mes anciens fichiers "DBMSLPCN" (mode memoire partagée).

Ma question est la suivante comment puis-je modifier ce mode de connexion SQL directement dans le fichier Excel ou comment puis-je l'ajouter sur mon 2003.

Merci d'avance,

Précision j'ai extrait la requête SQL puis modifié le mode de connexion et apres le test sur le 2003 cela fonctionne mais ayant hérité de 60 fichiers excel avec 3/4 liaisons ODBC sur chacun je souhaite trouver une solution globale et comprendre !!! :)

Bonjour à tous,

J'ai donc avance sur mon probleme en effet cela vient des parametres odbc enregistre dans mes fichiers excel.

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

Bon et bien j'ai résolu mon problème !!! La solution quand même car vu comment j'ai galère !!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Attribute VB_Name = "Module6"
Sub Change_ODBC()
 
Dim sh As Worksheet
Dim qt As QueryTable
 
For Each sh In ActiveWorkbook.Worksheets
For Each qt In sh.QueryTables
qt.Connection = Replace(qt.Connection, "Network=DBMSLPCN", "Network=DBMSSOCN")
Next qt
Next sh
End Sub