Sauvegarde sur clé USB

Bonjour,

Je souhaiterais pouvoir sauvegarder mon fichier Excel sur clé USB, j'ai donc cherché sur le net de quoi faire!

J'ai trouver deux codes VBA, un pour voir si une clé USB était disponible et l'autre pour faire l’enregistrement.

Le premier fonctionne bien et me trouve ma clé USB:

Par contre le second me dit qu'il n'y a pas de clé USB pour enregistrer le fichier Excel:

Voilà les deux codes:

Sub ListeLecteursAmovible()
Dim FSO As Object
Dim Drv As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

For Each Drv In FSO.Drives
    If Drv.DriveType = 1 Then _
        MsgBox "le support " & Drv.DriveLetter & " (" & Drv.VolumeName & _
        ") est pret : " & Drv.IsReady & vbLf _
        & "espace libre : " & Format(Drv.FreeSpace, "#,##0") & " octets."
Next
End Sub

Sub Sauvegarde_Sur_LecteurAmovible()
    Dim FSO As Object
    Dim Drv As Object

    'Correspond au nom que vous avez préalablement attribué à votre clé.
    Const Cible As String = "Sauvegarde_AMCB"

    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 & ":\AMCB-2024.xlsm"
     Exit Sub
            End If
        End If
    Next

    MsgBox "Enregistrement non effectué." & vbCrLf & _
        "Le lecteur amovible '" & Cible & "' n'a pas été trouvé."
End Sub

C'est deux codes ont été mis dans un module!

Merci à vous!!!

Bonjour bayard,

Lisez bien le code, il doit trouver une clé nommée "Sauvegarde_AMCB"

Si ce n'est pas le cas, vous avez ce message

A+

Bonjour Bruno,

C'est bien le cas, il y a bien une clé nommée "Sauvegarde_AMCB"

Re,

Si j'essaye de renommer ma clé USB par ce nom, j'ai un message d'erreur

Ne serait-ce pas la source du problème ?

A+

Je teste un autre nom et je reviens

EDIT: Effectivement, avec uniquement AMCB ça fonctionne

merci à toi!!

Re,

Mais de rien, heureux d'avoir pu résoudre ton problème

A+

re

bonsoir

moi il y a autre chose qui me titille

je vois ça

Const Cible As String = "Sauvegarde_AMCB"

et ensuite ça

 If Drv.VolumeName = UCase(Cible) And Drv.IsReady Then

il n'y a rien qui te te titille à toi ?

1°pourquoi faire une constante en vbproper et tester le ucase

2° a première vu le nom de ta clé est bien en proper sur ta capture

3° au pire tu formate les deux

If Ucase(Drv.VolumeName) = UCase(Cible) And Drv.IsReady Then

ok je sors