Dim MonRepertoire As String, fs As FileSearch, wb As Workbook, wb2 As Workbook, Fichier as String
Dim Cn As ADODB.Connection
MonRepertoire = "C:\MesDocs"
Set fs = Application.FileSearch
Fichier = ""
With fs
.NewSearch
.LookIn = MonRepertoire
.Filename = Range("B1").Value & "*" & ".xls"
If .Execute = 0 Then Exit Sub
Fichier = .FoundFiles(1)
End With
Set Cn = New ADODB.Connection
With Cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Fichier & _
";Extended Properties=Excel 8.0;"
.Open
End With
Cn.Close
Set Cn = Nothing