Sub Test() Dim Chemin As String, sFic As String
Dim sDebut As String, FlgOK As Boolean
' Récupérer le chemin
Chemin = ThisWorkbook.Sheets("MENU").Range("F9").Value
' Initialiser le FLAG du fichier trouvé
FlgOK = False
' Vérifier l'antislash de fin
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
' Vérifier le chemin
If Dir(Chemin, vbDirectory) = "" Then
MsgBox "Le chemin d'accès n'existe pas !"
Exit Sub
End If
' Vérifier si fichier existe
sFic = Dir(Chemin)
Do While sFic <> ""
sDebut = Left(sFic, 8)
If sDebut = "toto.t00" Then
FlgOK = True ' Fichier trouvé
Workbooks.Open (Chemin & sFic)
Cells.SpecialCells(xlCellTypeConstants, 23).Select
Selection.Copy
End If
' Ne pas oublier ceci, sinon on reste sur le même fichier
sFic = Dir()
Loop
If FlgOK = False Then
MsgBox "Aucun fichier trouvé dans le dossier"
End If
End Sub