Bonjour!
Voila, je cherche à écrire une requete et à la lancée depuis VBA Excel.. j'ai deja fait ce code pour des requetes tappant dans des bases Oracle, mais la, je voudrais tapper dans une base Access, et la méthode ne marche plus..
Voila le code que j'utilisais pour Orcale et serveur:
Est ce la connexion qui n'est plus une ADODB?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 Dim Conn As New ADODB.Connection Dim RsReq As New ADODB.Recordset Sheets("Extraction").Select 'lancement de la requête With Conn .ConnectionString = ("DSN=Gestion perso;UID=Gestion perso;PWD=luisa") .CommandTimeout = 180 .Open End With REQ = "SELECT personnel.code_perso from Personnel" Set RsReq = Conn.Execute(REQ) 'Alimentation de la feuille Requete avec le resultat de la requête i = 6 While Not RsReq.EOF Cells(i, 1).Value = RsReq!code_perso RsReq.MoveNext i = i + 1 Wend Conn.Close
Je ne connais pas tres bien tt ca et je ne vois vraiment pas comment faire...
Merci d'avance!!
Partager