Lettre d'une clé USB

Bonsoir,

Sachant que cette lettre peut changer d'un PC à un autre, peut on trouver la lettre d'un périphérique de stockage USB, ceci pour faire une sauvegarde sur demande d'un fichier Excel avec la même procédure pour tous.

Merci d'avance

Bonjour jean-michel,

Regarde ici si ça peut t'aider.

Bonjour,

Le code de jb renvoie la liste des fichiers mais pas la lettre du Drive :

Voici une adaptation ad hoc :

Sub test()
S = USBD
If Len(S) = 1 Then
  MsgBox S
Else
  MsgBox "Plusieurs Drivess détectés : " & S
End If

End Sub

Function USBD()
  Set fs = CreateObject("Scripting.FileSystemObject")
  Tmp = ""
  For Each d In fs.Drives
    If d.DriveType = 1 Then
      If d.IsReady Then Tmp = Tmp & d.DriveLetter
    End If
  Next
  USBD = Tmp
End Function

A+

Merci à tous les deux, je vais expérimenter ça,

Bonne soirée

une autre solution a tester :

Tu vas dans ton gestionnaire de disques, tu sélectionnes le disque concerné, et tu lui attribues une autre lettre plus loin dans l'alphabet ( Z ou ce que tu veux) de telle sorte qu'elle ne soit plus affectée par l'ajout de nouveau périphériques qui prendront les lettres précédentes.

Oui Bruno j'y ai pensé cet après midi, c'est le plus simple et imparable, néanmoins j'ai adapté le code de GalopinO, ça marche aussi.

Encore merci à tous

OK, je sais pas si c'est utilisable mais ont pourrais aussi lui donner un noms par ex : backup.