Sub OuvertureWord()
Dim FSO As Object, D As Object, Usb As String, WordApp As Object
' Trouver la lettre du lecteur de la clé USB
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each D In FSO.Drives
If D.DriveType = 1 Then
If D.IsReady Then Usb = D.DriveLetter
End If
Next D
Set WordApp = GetObject(Usb & ":\Facturation MagZoneX 2011\Ne pas suprimer\doc1.docx")
WordApp.Application.Visible = True
End Sub