sauvegarde Fermé

Question

Bonjour, ayant acquis une simple formation sur Excell , je vous remercie d'avance pour me conseiller si c'est possible de sauvegarder un fichier sur deux supports différents ( lecteurs ) 



Configuration: Windows 7 / Chrome 48.0.2564.97

PHILOU10120 · Answer

Bonjour

Oui cela est possible
Sous Excel 2010

Fichier
Enregistrer sous
choisir le DD (exemple disque E:/)
Dossier (exemple votre prénom)
Sous dossier (exemple budget )
donner un nom (Mes comptes )
Choisir le type de fichier (xlsx, xslm, xls ...)
Cliquer sur enregistrer

Puis refaite l'opération

Fichier
Enregistrer sous
choisir le DD (exemple disque J:/)
Dossier (exemple votre prénom)
Sous dossier (exemple budget )
donner un nom (Mes comptes )
Choisir le type de fichier (xlsx, xslm, xls ...)
Cliquer sur enregistrer

Voilà le fichier est enregistré sur les disques
 
E:/prénom/budget/mes comptes.xlsx
et aussi sûr
J:/prénom/budget/mes comptes.xlsx

PHILOU10120 · Answer

Bonjour

Avec l’enregistreur de macro
Mettre l'enregistrement en route voir onglet Développeur
 
Si vous n'avez pas l'onglet développeur
Fichier
Options
Personnaliser le ruban
Rechercher Développeur et ajouter au ruban

faire la manipulation avec la souris et une fois la procédure effectuée arrêter l'enregistrement
Allez dans le VBA en faisant Alt F11
là vous devez voir le code qui s'est écrit lors de l'enregistrement
Il faut le nettoyer des lignes parasites et aprés enregistrer le fichier
Créer un bouton sur la feuille et clique droit pour affecter la macro au bouton 
 

Cela doit ressembler à ça

Sub sauvegarde()
'
' sauvegarde Macro
'

'
     ChDir "F:\xxxxxx\budget\2016"
    ActiveWorkbook.SaveAs Filename:= _
        "F:\xxxxxx\budget\2016\balance budget 2016.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "E:\xxxxxx\budget\2016"
    ActiveWorkbook.SaveAs Filename:= _
        "E:\xxxxxx\budget\2016\balance budget 2016.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    ChDir "P:\xxxxxx\budget\2016"
    ActiveWorkbook.SaveAs Filename:= _
        "P:\xxxxxx\budget\2016\balance budget 2016.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

remplacer le dossier xxxxxx par votre nom de dossier
Ma sauvegarde est réalisé sur trois chemin différents F:/, E:/, P:/

et comme je change DD j'ai pris soin de mettre cette ligne

ChDir "F:\xxxxxx\budget\2016" 

C'est en forgeant que l'on devient forgeron. -  C'est au pied du mur que l'on voit le maçon - on apprend toujours de ses erreurs

cs_Le Pivert · Answer

Bonjour,

Faire Alt F11 por acceder à l'éditeur, ensuite cliquer sur ThisWorkbook en haut à gauche et mettre ce code:

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 ActiveWorkbook.SaveAs Filename:="C:\Users\....\Documents\Classeur1.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ' adapter le chemin
    ActiveWorkbook.SaveAs Filename:="C:\Users\....\Documents\Nouveau dossier\Classeur1.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ' adapter le chemin
End Sub

A chaque fermeture les 2 enregistrements seront automatiques

Sauvegarde

3 réponses

Discussions similaires