merci de ta réponse cela fonction parfaitement maintenant il me faut l=juste trouver comment ouvrir une connexion à la base de donné pour cela j'ai trouvé le code :
Dim conn As ADODB.Connection, rst As ADODB.Recordset, fld As ADODB.Field
Set conn = New ADODB.Connection
With conn
.Provider = "SQLOLEDB.1;user ID=nomutilisateur;initial Catalog=nomdetabase;data source=nomdetasource"
.Open
End With
mais je ne sait pas trop si SQLOLEDB.1 doit rester ou si je dois mettre quelque chose d'autre, et pour le nom d'utilisateur apres il ne faudrait pas insérer un mdp ? du genre :
...... .Provider ="..........;userId=nomutilisateur;password=motdepasse;............"
merci de ton aide
Arthur
EDIT: ceci im Connect As Object, Recordset As Object
Set Connect = CreateObject("ADODB.Connection")
Set Recordset = CreateObject("ADODB.RecordSet")
Connect.Open "Driver={SQL Server};Server=A42APTECP02;Database=BDDChacal_TEST;Uid=" & identifiant & ";Pwd=" & mdp & ";"
With oRs
.Open Sql, Connect 'Create the recordset.
Set .ActiveConnection = Nothing 'Disconnect the recordset.
End With
me donne l'erreur 80040e4d
EDIT: comme c'est un autre probleme cette question a été déplacé dans ce topic : https://forum.excel-pratique.com/excel/erreur-80040e4d-t101526.html