Cherche et ouvre fichier sur cle usb

Bonjour

je voudrais ouvrir un fichier excel en cliquant sur boutton

j'ai trouvé un petit programme qui cherche USB

mais je ne sais pas ouvrir le fichier

Merci de votre aide

Bonjour,

remplace la procédure test1 par celle-ci. (la macro ouvrira le premier fichier excel trouvé sur l'USB, en faisant l'hypothèse qu'elle se nomme ROBOT1ET2)

Sub test1()
    Dim r As String, nomLecteur  As String
    nomLecteur = "ROBOT1ET2"
    r = lettreLecteur(nomLecteur)
    If r <> "" Then

        MsgBox ("Lettre du lecteur '" & nomLecteur & "' = " & r) '
        fname = Dir(r & ":\*.xls*")
        If fname <> "" Then
        Workbooks.Open r & ":\" & fname
        Else
        MsgBox ("pas trouvé de fichier excel sur cette clé usb")
        End If
    Else
        MsgBox ("Lecteur '" & nomLecteur & "' non trouvé.")
    End If
End Sub

Bonjour

Quand tu branche ta clé USB tu la trouve sous quel nom dans l'explorateur de fichier?

Cordialement

Bonjour

sur l'explorateur sa me donne ROBOT1ET2 D:

Merci