Sub test()
With CreateObject("AdoDb.connection")
.Open "Provider=SQLOLEDB.1;Password=" & Password & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
.Close
End With
End Sub
Bonjour,
Il est possible de se passer de vba pour se connecter à une base sql, en passant par Power Query.
Bav
Merci beaucoupVB:Sub test() With CreateObject("AdoDb.connection") .Open "Provider=SQLOLEDB.1;Password=" & Password & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server .Close End With End Sub
Bonjour,Bonjour,
Il est possible de se passer de vba pour se connecter à une base sql, en passant par Power Query.
Bav