Billard
XLDnaute Nouveau
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
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
