Enregistrement

[analyseaux]

Bonjour

Je souhaite à chaque enregistrement de mon classeur (C) pouvoir sauvegarder mon classeur à un autre endroit( dans D)


Comment puis-je réaliser ceci ?

 

[camarchepas]

Re : Enregistrement

Bonjour,
Voici un modéle

Sub GénérerSauvegarde() '======================>> Sous - Module :16 <<===
'------------ Génération d'une sauvegarde Horodatée et signée dans le serveur ---------------
'---------------------------- Déclaration des Variables et Objets -----------------------------
Dim Nom As String, MaDate As String, SauveSous As String, Chemin As String
Chemin = "c:" ' Mettre le dossier de destination ici
Nom = Mid(ActiveWorkbook.Name, 1, InStr(1, ActiveWorkbook.Name & ".", ".") - 1)
MaDate = Format(Date, "dd-mm-yyyy") & " " & Format(Time, "h.mm.ss")
SauveSous = Chemin & "\" & Environ("USERNAME") & " - " & Nom & " - " & MaDate & ".xls"
Workbooks(ActiveWorkbook.Name).SaveCopyAs Filename:=SauveSous
End Sub '** < GénérerSauvegarde > *************************************************************

 

[camarchepas]

Re : Enregistrement

RE moi ,

Bien sur à appeler via l'événementiel désiré en fonction que l'on veuille sauvegarder à l'ouverture du fichier , a la fermeture ou pourquoi pas à l'impression ou à l'enregistrement

 

[analyseaux]

Re : Enregistrement

le fichier existe sur C je souhaite que ce meme fichier pour sa sauvegarde s'enregistre automatiquement sur D. Il nous arrive souvent d'oublier de le sauvegarder dans D.
MERCI DE VOTRE ATTENTION

 

[camarchepas]

Re : Enregistrement

Bonsoir ,

Il suffit de modifier ici

Dim Nom As String, MaDate As String, SauveSous As String, Chemin As String
Chemin = "d:" ' Mettre le dossier de destination ici
Nom = Mid(ActiveWorkbook.Name, 1, InStr(1, ActiveWorkbook.Name & ".", ".") - 1)
MaDate = Format(Date, "dd-mm-yyyy") & " " & Format(Time, "h.mm.ss")
SauveSous = Chemin & "\" & Environ("USERNAME") & " - " & Nom & " - " & MaDate & ".xls"
Workbooks(ActiveWorkbook.Name).SaveCopyAs Filename:=SauveSous
End Sub '** < GénérerSauvegarde >

 

[analyseaux]

Re : Enregistrement

Enregistrer dans disque d

Le code ci dessus je le mets dans un module?

 

[camarchepas]

Re : Enregistrement

Tu veux sauvegarder lors de la fermeture, lors d'un enregistrent ou à l'ouverture du classeur?

 

[analyseaux]

Re : Enregistrement

Lors de l'enregistrement.

 

[camarchepas]

Re : Enregistrement

Encore une petite question et je te prépare le fichier .
Le chemin exacte sur le disque d:\

 

[analyseaux]

Re : Enregistrement

Tout simplement sur LE Disque local (D🙂

 

[camarchepas]

Re : Enregistrement

Voilà,

je test quand même la présence d'un disque d: au cas ou le poste n'en ai pas ,

et ne pas oublier d'effacer de temps en temps les sauvegardes .

 

[Staple1600]

Re : Enregistrement

Bonsoir à tous


Mon interprétation de la question (en partant de la proposition de camarchepas , bonsoir )

Private Sub svg_file(chemin$, dir_svg$)
Dim aw As Workbook: Set aw = ThisWorkbook
n_svg = Split(aw.Name, ".")(UBound(Split(aw.Name, ".")) - 1)
n_svg = n_svg & Format(Now(), "_dd-mm-yyyy h.mm.ss") & ".xls"
aw.Save
aw.SaveCopyAs chemin & "\" & dir_svg & "\" & n_svg
End Sub

Sub sauvegarde()
svg_file "c:", "Temp"
End Sub

PS: reste à implémenter une gestion d'erreur, un test d'existence du dossier ou sera faite la sauvegarde (et le créer s'il n'existe pas), je ferai cela plus tard car il est temps d'aller au dodo.

 

[camarchepas]

Re : Enregistrement

Bonjour Staple ,

Et oui , déjà en place sur ma solution avec le dir , et il manque aussi la libération du classeur objet :

set Aw = nothing . (Enfin , je chipotte)

 

[Staple1600]

Re : Enregistrement

Bonjour camarchepas, le fil, le forum

Je n'avais pas ouvert ta pj

J'étais parti sur ton code de 13h13

Et après le dodo, le temps du boulot

Allez gigot

Bonne journée à tous

 

[analyseaux]

Re : Enregistrement

Bonjour
C'est parfait CAMARCHEPAS cependant j'aurais souhaité que le fichier sauvegardé dans D soit remplacer systématiquement sans etre obligé de le supprimer .
J'exploite l'opportunité de ta presence sur le sujet pour savoir s'il etait possible de donner un nom au fichier à partir d'une cellule contenant un texte si oui comment?
Mon fichier contient plusieurs feuilles j'aurais aimé aussi qu'à l'ouverture du fichier il s'ouvre toujours sur la feuille nommée "menu" en me precisant ou je devrais placer le code esperant qu'il existe la solution.


MERCI D'AVANCE