pierrep56 J'ai utilisé ton code, j'ai l'erreur suivante :
Sub EXt()
Dim CLASSEURS()
Dim C As Long
Dim CLASSEUR_URL As String
Dim Cnx As ADODB.Connection
Set Cnx = CreateObject("ADODB.Connection")
CLASSEURS = Application.GetOpenFilename("Excel, *.CSV;*.CSV?", , "Exportation", , True)
For C = LBound(CLASSEURS) To UBound(CLASSEURS)
CLASSEUR_URL = CLASSEURS(C)
With Cnx
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=" & CLASSEUR_URL & ";Extensions=asc,csv,tab,txt;"
.Open
End With
Cnx.Close
Set Cnx = Nothing
Next C
End Sub