Sauvegarde

Fermé
claudel - 3 févr. 2016 à 07:31
 claudel - 4 févr. 2016 à 17:07
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 )



A voir également:

3 réponses

PHILOU10120 Messages postés 6371 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 5 mai 2024 797
3 févr. 2016 à 09:46
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
0
Bonjour PHILOU et merci de ta réponse , en faite je souhaitais pouvoir enregistrer
mon dossier sous les deux ( 2 ) entités simultanément sans avoir à répéter :
enregistrer-sous enregistrer sous] plusieurs fois .
Bonne Journée et merci encore .
0
Fahora Messages postés 814 Date d'inscription jeudi 24 septembre 2015 Statut Membre Dernière intervention 2 janvier 2023 68
3 févr. 2016 à 11:39
Pourquoi ne pas créer un raccourci ?
0
PHILOU10120 Messages postés 6371 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 5 mai 2024 797
Modifié par PHILOU10120 le 3/02/2016 à 12:17
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
0
Bonjour et merci de te pencher sur ma recherche d'une solution pour mes sauvegardes,
mais hélas comme je l'avais signalé, je n'ai pas eu de formation sur Excel et donc en ce qui concerne les " macros " je n'y comprends rien .
Je vais essayer de trouver quelqu'un peut être dans une association pour avancer dans ma recherche , en tout cas , merci pour ton temps consacré à essayer de me faire avancer .
Bonne continuation .
Salutations
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
3 févr. 2016 à 15:34
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
0