MsgBox " Selectionnez votre fichier Data"
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Doocument word", "*.xlsx", 1
.InitialFileName = Left(Cells(4, 5).Value, 11)
If .Show = 0 Then
erreurouverture:
CreateObject("Wscript.shell").Popup "Pas de fichier sélectionné", 2, "Fin de compilation", vbExclamation + vbOKOnly
GoTo fin2
Else
chemin = .SelectedItems(1)
End If
End With
Workbooks.Open (chemin)