Modifier une source MSQUERY

[pape]

J'ai un probléme depuis une semaine.
J'ai des fichiers excel qui marchent avec une base access que je veux migrer en base sql server.
Comment faire pour modifier la chaîne de connexion vers ma nouvelle base de données.

Cordialement.

PS : Voici le bout de code qu'une personne a fait, mais qui ne fonctionne pas..
-------------------------------------------------------------------------
Sub test()
MsgBox Worksheets("Feuil1").QueryTables.Count
With Worksheets("Feuil1") 'Nom Feuille à redéfinir
.Range("c2") = Worksheets("Feuil1").QueryTables(1).Connection
.Range("d2") = Worksheets("Feuil1").QueryTables(1).CommandText
End With

Dim OldName As String, NewName As String
Dim Sh As Worksheet, Qt As QueryTable

OldName = "c:\bd1.mdb"
NewName = "c:\bd2.mdb"

For Each Sh In Worksheets
For Each Qt In Sh.QueryTables
If InStr(Qt.Connection, OldName) > 0 Then
Qt.Connection = Replace(Qt.Connection, OldName, NewName)
Qt.CommandText = Replace(Qt.CommandText, Left(OldName, Len(OldName) -
4), Left(NewName, Len(NewName) - 4))
Qt.Refresh True
Else
End If
Next
Next

With Worksheets("Feuil1") 'Nom Feuille à redéfinir
.Range("c3") = Worksheets("Feuil1").QueryTables(1).Connection
.Range("d3") = Worksheets("Feuil1").QueryTables(1).CommandText
End With

End Sub

 

[Gael]

Re : Modifier une source MSQUERY

Bonjour Pape,

J'ai testé ta procédure qui fonctionne très bien si on reste dans le même type de base de données.

Si comme dans ton code tu changes bd1.mdb par bd2.mdb, il n'y a aucune raison que cela ne marche pas à condition que les 2 bases de données contiennent les mêmes champs et type d'informations.

Si par contre tu veux changer de SGBD en passant de mdb à Sql Server, il faut aussi changer dans le code
"DSN=MS Access Database" par
"DSN=MS SQL server"

N'ayant pas Sql server, je ne connait pas le nom exact à appliquer au DSN mais il suffit de créer une requête quelconque avec SQL server et de récupérer le nom associé au DSN.

@+

Gael