Salut pour dans mon projet école j'ai besoin de connecter et importer des données d'une base Access vers Excel pour exécuter des macros.
Quand j'exécute le programme j'ai ce message d'erreur.
Sub import()
'creation de variable
Dim chemin, Connect, Source As String
Dim Connection As ADODB.Connection
Dim RecordSet As ADODB.RecordSet
Dim col As Integer
'definition du chemin
chemin = "S:\utilisateurs\METHODES\Projet FT\Database_FT.accdb"
'connection
Set Connection = New ADODB.Connection
Connect = "Microsoft.ACE.OLEDB.12.0"
Connect = Connect & "Data Source=" & chemin & ";"
Connection.Open ConnectionString:=Connect
'creation du record set
Set RecordSet = New ADODB.RecordSet
With RecordSet
'filtre et requet
Source = "SELECT * FROM Requête2"
.Open Source:=Source, ActiveConnection:=Connection
'populer excel
For col = 0 To RecordSet.Fields.Count - 1
Range("a1").Offset(0, col).Value = RecordSet.Fields(col).Name
Next
'dump data
Range("a2").Offset(1, 0).CopyFromRecordset RecorSet
End With
End Sub
Merci d'avance pour votre aide