Sauvegarde sur disque dur exterieur

Bonjour,

Est-ce qu'on pourrait voir à quoi ressemblent ces fichiers .bat?
Je pense qu'il suffirait de modifier quelques lignes de commandes. Par exemple
copy *.* a:
deviendrait
copy *.* h:

Bonjour acha

Verifie que tu as bien un disque sur le lecteur H: (avec l'explorateur de fichiers windows)
Si oui, fais un copier coller de n'importe quel fichier de ton disque D: vers le disque H: pour voir si la copie se passe bien.

A+

Bonjour,

J'ai fait le test chez moi, la macro marche bien.
Vérifies le nom complet de ton fichier d:\DépMalAs\DépMimi.xls

Par contre regarde aussi si le fichier existe déjà sur le DD externe (lecteur H:), s'il est protéjé en écriture. (Clic droit sur le fichier -> Propriétés -> décocher lecture seule.)
Si c'est le cas tu ne pourras pas le remplacer par la dernière version.

Essaies cette procédure, j'ai enlevé ce qui n'est pas utile, pour éviter de quitter excel.

Sub TestCopieClasseurXPMimi() 
'sauve sur disque extérieur H 
DEBUT: 
Rep = MsgBox("Veuillez monter le disque sur le lecteur H:", vbOKCancel + vbExclamation) 
If Rep = vbOK Then 
   On Error GoTo ERR1 
   FileCopy "d:\DépMalAs\DépMimi.xls", "h:\DépMimi.xls" 
   On Error GoTo 0 
   MsgBox "Sauvegarde effectuée avec succès" 
Else 
    MsgBox "Sauvegarde annulée" 
End If 
Exit Sub 

ERR1: 
MsgBox "Erreur d'écriture sur le lecteur H:", vbCritical 
Resume DEBUT 

End Sub

Fais cette manip

Menu démarrer -> Executer...
dans la fenêtre tapes cmd puis OK

la fenêtre de commande DOS doit s'ouvrir

tapes cette commande:
copy d:\DépMalAs\DépMimi.xls h:\DépMimi.xls

normalement tu dois voir: 1 fichier copié
Si c'est pas le cas c'est que:
1) le fichier d:\DépMalAs\DépMimi.xls n'existe pas
2) le lecteur H: n'existe pas ou en lecture seule (lecteur CD)
3) le lecteur H: est plein
4) dis-moi l'erreur retournée par la commande.

Alors ça doit marcher avec la macro parce que c'est exactement pareil.

Mets toi dans les même conditions. Fait d'abord le test avec la commande DOS
copy d:\DépMalAs\DépMimi.xls h:\DépMimi.xls
comme indiqué plus haut.
Si pas de problème, fais le test avec cette macro toute simple.

Sub test()
   FileCopy "d:\DépMalAs\DépMimi.xls", "h:\DépMimi.xls"
   Msgbox "Fin de Procédure"
End Sub

Exécute la macro. Si ça c'est bien passé tu auras seulement le message "Fin de Procédure" qui prouve qu'il n'y a pas eu d'erreur.

Sinon tu aurras un message d'erreur.

C'est important de faire les test dans les même conditions, avec le même DD externe, sans le débrancher puis rebrancher.

C'est à n'y rien comprendre. je cherche un autre moyen.

A+

Je crois avoir compris en tatonnant. La commande FileCopy ne marche pas si le fichier source est ouvert. Alors on va utiliser la commande Shell qui permet de lancer une commande DOS.

Voilà la procedure et dis moi si ça marche.

Sub CopieClasseurXPMimi()

'enregistre le classeur
Application.StatusBar = Space(15) & "ENREGISTREMENT CLASSEUR EN COURS"
Application.EnableEvents = False
ActiveWorbook.Save
Application.EnableEvents = True

'sauve sur disque extérieur H
DEBUT:
Rep = MsgBox("Sauvegarde du Fichier" & vbCrLf _
             & "Veuillez monter le disque sur le lecteur H:", vbOKCancel + vbExclamation)
If Rep = vbOK Then
   On Error GoTo ERR1
   'FileCopy "d:\DépMalAs\DépMimi.xls", "h:\DépMimi.xls"
   Shell ("cmd /c copy d:\DépMalAs\DépMimi.xls h:\DépMimi.xls")
   On Error GoTo 0
   MsgBox "Sauvegarde effectuée avec succès"
Else
    MsgBox "Sauvegarde annulée"
End If

Call Auto_Close
ActiveSheet.Protect
Application.Quit
Exit Sub

ERR1:
MsgBox "Erreur d'écriture sur le lecteur H:", vbCritical
Resume DEBUT

End Sub

GRRR...C'est une malédiction!

Je nabandonne pas, nouvel essai. J'ai rajouté un test d'accès au lecteur H:\, si celui-ci n'est pas valide, ça provoquera une erreur. Si c'est le cas vérifie que le disque est bien branché sur la lettre H:
La seule partie que tu peux éventuellement adapter sont les noms des fichiers Orig (origine) et Dest (destination). Dis moi si ça marche .

Sub CopieClasseurXPMimi()

'enregistre le classeur
Application.StatusBar = Space(15) & "ENREGISTREMENT CLASSEUR EN COURS"
Application.EnableEvents = False
ActiveWorbook.Save
Application.EnableEvents = True

'sauve sur disque extérieur H
DEBUT:
Rep = MsgBox("Sauvegarde du Fichier" & vbCrLf _
             & "Veuillez monter le disque sur le lecteur H:", vbOKCancel + vbExclamation)
If Rep = vbOK Then
   On Error GoTo ERR1
   
   'test si le lecteur H:\ est prêt
   ChDir ("H:\")
   'revenir au point de départ
   ChDir (ActiveWorkbook.Path)
   
   'Nom des fichiers origine et destination
   Orig = "D:\DépMalAs\DépMimi.xls"
   Dest = "H:\DépMimi.xls"
   
   'ne pas modifier ces 2 lignes
   commandeDOS = "cmd /c copy " & Chr(34) & Orig & Chr(34) & " " & Chr(34) & Dest & Chr(34)
   Shell (commandeDOS)
   
   On Error GoTo 0
   MsgBox "Sauvegarde effectuée avec succès"
Else
    MsgBox "Sauvegarde annulée"
End If

Call Auto_Close
ActiveSheet.Protect
Application.Quit
Exit Sub

ERR1:
MsgBox "Erreur: le lecteur H:\ n'est pas prêt", vbCritical
Resume DEBUT

End Sub

Enfin!!

La ligne ChDir (ActiveWorkbook.Path) tu peux l'enlever.
Mais n'enlève pas la ligne On Error GoTo ERR1, sinon tu ne sauras pas si le disque H: est prêt, et comme la commande Shell ne retourne pas d'erreur, ça passera inaperçu.

En effet, quand tu enlève un dique dur exterieur après utilisation, puis tu le rebranche à un autre moment, il n'est pas sur que Windows lui attritue la même lettre que la fois précédente. Encore plus vrai si c'est un deuxième disque exterieur. Comme la macro est faite pour une connexion au lecteur H: , si la lettre n'est plus la même, pas de suavegarde.
Alors il vaut nieux être au courant.
Moi je mettrais les sauvegardes dans un dossier spécial, et non directement sur la racine comme tu le fait.

Sinon pour ne pas écraser le fichier existant, il faut lui changer de nom en lui ajoutant la date et l'heure automatiquement.
Remplace le ligne Dest = "H:\DépMimi.xls" par

   Dest = "H:\DépMimi.xls_" & Format(Date, "yyyy-mm-dd") & "_" & Format(Time, "hh\Hmm")

Et remets On Error GoTo ERR1.

A+