Re bonjour à tous,

Je bûche sur l'erreur citée dans l'en-tête :
Erreur automation, erreur non spécifiée

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim connexion As ADODB.Connection
            Dim fichier As String
 
            fichier = ThisWorkbook.Path & maListe(Compteur)
            MsgBox fichier
            Set connexion = New ADODB.Connection
 
            'Connexion
            With connexion
                .Provider = "Microsoft.Jet.OLEDB.4.0"
                .ConnectionString = "Data Source=" & fichier
                .Open
            End With
Le message erreur apparaît à la fin du With...
(et fichier indique bien une adresse de fichier correcte!)

Merci d'avance.