1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Dim Cnx_DB As New ADODB.Connection
Dim Rst_DB As New ADODB.Recordset
Dim s_SQL As String
Dim s_FichierINI As String
Sub Workbook_Open()
s_FichierINI = ActiveWorkbook.Path & "\Courbes_Pas.ini"
'---- Connexion à la base de donnée en utilisant le fichier UDL dont le nom est défini dans le fichier INI
Cnx_DB.ConnectionString = "FILE NAME=" + LireINI(s_FichierINI, "Config", "FichierUDL")
Cnx_DB.Open
etc....
End Sub
J'utilise un fichier UDL afin de pouvoir changer la source de données sans toucher à l'appli Excel. Lorsque je lance mon fichier UDL à la main, celui-ci se connecte correctement.
Pour info mon fichier Ini :
12 | [Config]
FichierUDL=Courbes_Pas.udl |
et mon fichier UDL :
123 | [oledb]
; Everything after this line is an OLE DB initstring
Provider=SQLOLEDB.1;Password=bic;Persist Security Info=True;User ID=User_Lames;Initial Catalog=Lames-Test;Data Source=VERSSQL01 |
|
Partager