Sauvegarde sur clé usb si insérée

[sb_guido]

Bonjour à tous,

je désire que mon fichier s'enregistre automatiquement sur un disque amovible (carte SD) dans le fichier Data.

Disque amovible F) sur mon ordinateur.

Si la clé n'est pas insérée, je veux qu'il sauvegarde sur le disque réseau où je travaille.

Il faut donc un code qui vérifie si la carte est insérée....

Présentement voici le code qui enregistre sur le réseau :

'
Sauvegarde les onglets en .CSV
Dim Onglet As Worksheet

For Each Wsh In Worksheets
Wsh.Activate
Wsh.SaveAs Filename:="R:\ARPENTEUR\Base de données (DB) Stations\Rapports par niveau\" & Wsh.Name & ".csv", FileFormat:=xlCSV
Next Wsh

 

[Dranreb]

Re : Sauvegarde sur clé usb si insérée

Bonjour
Une piste: l'instruction ChDrive peut provoquer une erreur 68: "Périphérique non disponible"
Cordialement.

 

[Hulk]

Re : Sauvegarde sur clé usb si insérée

Hello,

Une autre piste, une macro qui repère si une clé est connectée ou pas, si oui, elle affiche la lettre et le nom du volume en A1:B1.

Voici le lien.


Si ça peut t'aider.

 

[sb_guido]

Re : Sauvegarde sur clé usb si insérée

Merci à tous! ¨

J'ai utilisé le lien que Hulk a posté.

Si la carte "Arpentage" est présente alors la macro sauvegarde dessus,
dans le cas contraire, elle sauvegarde sur le réseau.


Merci encore