Sub Chercher_specif()
'Recherche fiche machine
'Par exemple : « E26 » doit ouvrir le fichier " 1845_4_50260110_MMAutriche_Jelen_do.xls "
'qui est dans le repertoire " N:\Diffusion\BE_vibrants\_Spécifs\Complètes\CVB-MV\CVB1845" .
'en colonne F : CVB1845-3
Dim Machine As String, Chemin_total as string
Dim Fichier As String, Chemin As String, Complément_Chemin As String
Machine = ActiveCell
Chemin = "N:\Diffusion\BE_vibrants\_Spécifs\Complètes\"
Complément_Chemin = Split(Range("F" & ActiveCell.Row), "-")(0)
chemin_total= Chemin & left(complément_chemin,2) & Complément_Chemin & "\" & "\
fichier = Dir(chemin_total & "*_" & machine & "_*.xls")
workbooks.open filename:= chemin_total & fichier
End Sub