Sauvegarde sur clé usb si insérée

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

Cliquez pour agrandir...