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