Complement sur lettre racine

Bonjour à tous,

Apres quelques recherches sur Internet, j'ai trouvé le code ci joint dans le fichier, pour trouver la lettre racine du disque amovible inséré (USB, disque dur ...).

Ce code marche tres bien, c'est chouette, maintenant je voudrais le pousser un peu plus loin en affectant la lettre trouvé par ce code à une cellule, pour qu'ensuite je puisse la ré utiliser dans un autre code.

En gros, si la macro me dit que la lettre racine est "E:..." je souhaite qu'elle apparaisse dans la cellule "G3" du fichier joint.

En vous remerciant par avance pour votre aide.

Bonne journée

Bonjour,

Range("G3").value = Drv.DriveLetter

Merci beaucoup,

dans mes essais j avais oublié de mettre le point apres Drv, du coup je comprends pourquoi cela me marchais pas.

une petite derniere pour toi (ou les autres) si en plus je veux faire apparaitre le nom de la Clé USB par exemple, parce que si je rajoute Drv?VolumeName cela ne marche pas.

Merci pour ton aide.

Range("H3").value = Drv.VolumeName

ou

Range("G3").value = Drv.DriveLetter & " (" & Drv.VolumeName & ")"

Oui c'est ce que j'écris mais il affiche dans la celulle "Windows" et non pas le nom de la clé

ca marche

c est bon