[Résolu] Sauvegarde sur clé USB

[Billard]

bonjour

ne connaissant pas les instructions, j'ai trouvé ce code qui fonctionne
Sauvegarde sur usb avec un nom déterminé

Le problème est que lorsque j'ai fini ma sauvegarde, excel garde le lecteur Usb en mémoire, c'est à dire que si je sauvegarde le classeur il va cherche l'usb.
De plus la Msgbox, elle ne fonctionne pas.
merci et bonne soirée


Sub sauvegardeUsb()
'
' sauvegardeUsb Macro
'
Dim FSO As Object
Dim Drv As Object
'Correspond au nom que vous avez préalablement attribué à votre clé.
Const Cible As String = "savecpta"
Set FSO = CreateObject("Scripting.FileSystemObject")
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.SaveAs Drv.DriveLetter & ":\Compta.xlsm" ', xlWorkbook '(pour xl2007)
Exit Sub
End If
End If
Next
MsgBox "Enregistrement non effectué." & vbCrLf & _
"Le lecteur amovible '" & Cible & "' n'a pas été trouvé."
End Sub

 

[Billard]

Bonjour Tatiak

C'est nettement mieux, impeccable
Merci pour la correction
Au plaisir

Sujet Résolu