XL 2010 quelle lettre de Lecteur de sauvegarde

[Philo]

Bonsoir le forum
j'ai de nombreux lecteur de disque et la lettre du lecteur change au grès des interventions.

je souhaite en VBA retrouver la lettre de mon lecteur USB qui est nommé (Philo) dans Périphériques utilisant des supports de stockage amovibles

cette clé USB nommé Philo parfois peu disposer de la lettre de lecteur D à M

Merci de me venir en aide

Philippe

 

[Staple1600]

Bonjour le fil, le forum

@Philo
Pour information, le moteur de recherche du forum est toujours fonctionnel
https://www.excel-downloads.com/threads/enregistrement-sur-clé-usb.20004047/#post-20030489

 

[eriiic]

Bonjour,

pour compléter la réponse de Staple tu as également la propriété .VolumeName plus proche de ton besoin.
eric

 

[Philo]

bonjour
Merci Staple et eriiiic pour c'est début de réponse et la direction a prendre, avec l'aide de Youky (BJ) j'ai résolu mon problème

 

[Staple1600]

Bonsoir le fil, le forum

[avis personnel]
La moindre des courtoisie eut été de poster la solution dans la discussion afin qu'elle profite à toute la communauté xldienne...

Si maintenant XLD devient une mise en relation en peer to peer, à quoi peut bien servir ce forum ???
[/avis personnel]

 

[Philo]

Bonjour le forum

Désolé Staple1600 voila ma macro pour la sauvegarde d'un fichier sur un support USB

Sub SauvegardeUSB()
Dim Fso As Object
Dim Drv As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each Drv In Fso.drives
If Drv.DriveType = 1 Then
If Drv.VolumeName = "Clé USB" Then
chemin = Drv & "\Dossier du fichier\"
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs chemin & Replace(ThisWorkbook.Name, ".xlsm", "") & Format(Date, " - dd-mm-yyyy") & ".xlsm"
Application.DisplayAlerts = True
MsgBox chemin & ThisWorkbook.Name & Format(Date, " - dd-mm-yyyy") & ".xlsm"
Exit Sub
End If
End If
Next
End Sub

I If Drv.VolumeName = "mettre le nom du support USB" Then
chemin = Drv & "\Dossier du fichier sur le support USB\"

il y a peut être mieux

Amicalement