MyPath = "C:\dossier\"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then ' Ignore le répertoire courant
'regarde si répertoire
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
If Left(MyName, 7) = "facture" Then
MyFic = MyPath & MyName "\tva.xls":exit do
end if
loop
On Error Resume Next
workbook.open(MyFic)
If Err <> 0 Then msgbox "TVA.xls Non trouvé !":exit sub