Sub Sauvegarde_Sur_LecteurAmovible()
Dim FSO As Object
Dim Drv As Object
Dim reponse As Long
Dim trouvé As Boolean
'Correspond au nom que vous avez préalablement attribué à votre clé.
Const Cible As String = "Nom donnée à la clé USB"
Set FSO = CreateObject("Scripting.FileSystemObject")
re:
On Error Resume Next
For Each Drv In FSO.Drives
If Drv.DriveType = 1 Then
If Drv.VolumeName = UCase(Cible) And Drv.IsReady Then
ThisWorkbook.SaveCopyAs Drv.DriveLetter & ":\GardenManager\GardenManager v2.7.xlsm"
trouvé = True
Exit For 'pas la peine de tourner plus longtemps si trouvé
End If
End If
Next
If Not trouvé Then
reponse = MsgBox("GardenManager n'a pas pu effectuer de sauvegarde." & vbCrLf & _
"Le lecteur amovible '" & Cible & "' n'a pas été trouvé." _
& Chr(13) & Chr(10) & Chr(13) & Chr(10) & Chr(13) & Chr(10) _
& "Veuillez insérer la clé et cliquer sur 'Recommencer' ", vbRetryCancel, "INFORMATION GardenManager")
If reponse = vbRetry Then GoTo re:
End If
If ThisWorkbook.Path <> "" Then
ThisWorkbook.Save
Else
ThisWorkbook.SaveAs "C:\Users\Desktop\Bureau\MONFICHIERS.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If
End Sub