Réaliser une copie automatique

FRANSIS33 Messages postés 356 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Avant chaque fermeture de mon fichier Excel sur mon PC, je voudrai réaliser une copie automatique sur un périphe externe relié à mon PC.(Clé USB).

Je n' y arrive pas avec "Enregistrer sous" et "Outils, Options".

Pouvez-vous m' aider ? MERCI.
A voir également:

5 réponses

Raymond PENTIER Messages postés 71867 Date d'inscription   Statut Contributeur Dernière intervention   17 397
 
Bonjour, et bienvenue au nouveau membre !

Moi non plus, je ne sais pas "réaliser une copie avant chaque fermeture".
Et il est dangereux de paramétrer l'option de sauvegarde automatique vers la clé, car tu n'auras plus d'exemplaire dans l'ordinateur ; or la clé est beaucoup plus fragile et moins fiable que le disque dur !

Il faut toujours :
1) Faire Enregistrer (pour un nouveau fichier) ou Enregistrer sous (pour un fichier modifié).
2) Faire une copie du fichier vers la clé : il suffit de faire glisser l'icône du fichier !

Cordialement.
0
FRANSIS33
 
Merci Raymond, mais ce que tu décris c ' est ce que je fais habituellement. Enregistré sur le DD et copier/coller sur clé USB. Je souhaite juste que la 2ème opération soit automatique.
Bonne soirée.
0
Raymond PENTIER Messages postés 71867 Date d'inscription   Statut Contributeur Dernière intervention   17 397
 
1) Je ne sais pas faire de manipulation automatique, car ne pratiquant pas VBA.
2) C'est si facile et rapide de faire glisser une icône entre 2 fenêtres que je ne vois pas l'intérêt de créer une macro juste pour ça ! C'est utiliser un rouleau-compresseur pour écraser un cafard ...
0
FRANSIS33
 
Facile lorsqu' on ne traite qu' un seul fichier. Quand on a 25 dossiers sensibles à modifier par semaine on a toujours le doute d' avoir fait ou pas une copie de sauvegarde.
0
Raymond PENTIER Messages postés 71867 Date d'inscription   Statut Contributeur Dernière intervention   17 397
 
25 dossiers sensibles par semaine !
à ta place ce n'est pas une fragile et peu fiable clé USB que je choisirais ...
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
voir ici
0
Heliotte Messages postés 1561 Statut Membre 92
 
Bonjour FRANSIS33,

Clique droit sur un onglet et choisir "Visualiser le code",
Panneau de gauche, double-clique sur "ThisWorkbook",
écrire ce code :

Option Explicit 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    ChDir "X:\ClefUsb\" 
    ActiveWorkbook.SaveAs Filename:="X:\ClefUsb\test.xls", FileFormat:= _ 
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ 
        , CreateBackup:=False 
End Sub

X:\ClefUsb\ est le nom du lecteur (X), le dossier où enregistrer le classeur (ClefUsb) et le nom du fichier (test.xls)
0
FRANSIS33
 
Merci Heliotte. Seul hic clique droit sur quel onglet dans quelle fenêtre ?
Merci pour la réponse.
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Hé, tu aurais pu essayer... N'importe laquelle ou Alt+F11
Puis Panneau de gauche, double-clique sur "ThisWorkbook",

eric
0
Heliotte Messages postés 1561 Statut Membre 92
 
Bonsoir à tous,

On peut sauvegarder le fichier à l'endroit habituel et aussi sur la cléf usb .. le seul hic, c'est que la lettre de la cléf usb peut changer, et donc, n'est pas fiable comme le dit Raymond.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
FRANSIS33
 
Oui Eric, j' ai bien essayé mais rien ne se produit même Alt/F11.
Pour le périphe aucun risque il est dédié.
Autrefois, dans un ex-boulot dès que j' enregistrais mon fichier Excel sur le DD du PC, une copie de sauvegarde s' enregistrait automatiquement sur le périphe dédié. Voilà ce que je voudrai reproduire. Bonne soirée.
0
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Alt+F11 c'est pour ouvrir vbe, l'éditeur de vba.
Dans vbe tu double-cliques sur le module ThisWorkbook pour ouvrir la feuille de code, et tu y colles le code fourni.
Il s'exécutera automatiquement à la fermeture du classeur
eric
0