Sub Ouvre_Formation_wordpubli()
Dim QuelFichier
QuelFichier = Application.GetOpenFilename("Fichiersword/doc/docx/docm/dotm/dot,*.doc;*.docx;*.docm;*.dotm;*.dot", , "Sélectionnez votre source de données")
If QuelFichier <> False Then
MsgBox QuelFichier
Else
MsgBox "Vous n'avez pas sélectionné de fichier"
End If
End Sub