[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=NAVY]Dim[/COLOR] FileToOpen [COLOR=NAVY]As Variant[/COLOR]
FileToOpen = Application.GetOpenFilename("Fichiers Word (*.doc), *.doc")
[COLOR=NAVY]If[/COLOR] FileToOpen = [COLOR=NAVY]False Then Exit Sub[/COLOR]
MsgBox "Chemin à considérer : " & FileToOpen
[COLOR=NAVY]End Sub[/COLOR]
Sub Traitement()
Dim FileToOpen As Variant
FileToOpen = Application.GetOpenFilename("Fichiers Word (*.doc), *.doc")
If FileToOpen = False Then Exit Sub
MsgBox "Chemin à considérer : " & FileToOpen
End Sub