Public Sub ExecutionRequete()
'Récup identifiant connexion
Dim serveur As String, login As String, mdp As String
recupAccesServeur accesFichier, ongAcces, numEnv, serveur, login, mdp
'Connexion
Dim cn As ADODB.Connection, Rec_set As ADODB.Recordset, err As ADODB.Error
Set cn = New ADODB.Connection
Set Rec_set = New ADODB.Recordset
cn.ConnectionTimeout = 0
cn.CommandTimeout = 0
Application.StatusBar = "Connexion à la base:.."
cn.Open "Driver={Teradata};" & "DBCName=" & serveur & ";" & "Uid=" & login & ";" & "Pwd=" & mdp & ""
Application.StatusBar = "Connexion à la base réussie"
Oui... bon... je bosse, quoi... enfin.. en théorie!