Comment faire pour ouvrir un fichier situé sur une clef USB sachant que la lettre affectée à la clef dépend du PC sur lequel elle est insérée ?

Cette macro te permet de demander d'indiquer la lettre affectée à la clef.

sub macro1()
 Dim ss As SearchScope
 Dim sf As ScopeFolder
 rewind:
 Lecteur = UCase(InputBox("Entrer la letrre du lecteur."))
  With Application.FileSearch
    For Each ss In .SearchScopes
      Select Case ss.Type
        Case msoSearchInMyComputer
 
          For Each sf In ss.ScopeFolder.ScopeFolders
            If Left(sf.Path, 1) = Lecteur Then
            GoTo fin
            Else
            MsgBox "Ce lecteur n'existe pas"
            GoTo rewind
            End If
          Next sf
 
        Case Else
      End Select
    Next ss
  End With
 fin:
 'MsgBox "Lecteur existe" 'Test
 'Workbooks.OpenText Filename:="" & Lecteur & ":TonFichier.TXT", Origin:=xlWindows, _
 end sub