Enregistrement

camarchepas

XLDnaute Barbatruc

• 14 Juin 2010

• #2

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 > *************************************************************

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 14 Juin 2010

• #3

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

 

Vote positif 0 Vote négatif

A

analyseaux

XLDnaute Occasionnel

• 14 Juin 2010

• #4

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 14 Juin 2010

• #5

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 >

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

analyseaux

XLDnaute Occasionnel

• 14 Juin 2010

• #6

Re : Enregistrement

Enregistrer dans disque d

Le code ci dessus je le mets dans un module?

 

Dernière édition: 14 Juin 2010

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 14 Juin 2010

• #7

Re : Enregistrement

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

 

Vote positif 0 Vote négatif

A

analyseaux

XLDnaute Occasionnel

• 14 Juin 2010

• #8

Re : Enregistrement

Lors de l'enregistrement.

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 14 Juin 2010

• #9

Re : Enregistrement

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

 

Vote positif 0 Vote négatif

A

analyseaux

XLDnaute Occasionnel

• 14 Juin 2010

• #10

Re : Enregistrement

Tout simplement sur LE Disque local (D🙂

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 14 Juin 2010

• #11

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 .

 

Pièces jointes

• Testsauve.xls

  24 KB · Affichages: 42
• Testsauve.xls

  24 KB · Affichages: 47
• Testsauve.xls

  24 KB · Affichages: 48

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Juin 2010

• #12

Re : Enregistrement

Bonsoir à tous


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

Code:

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

Code:

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.

 

Dernière édition: 15 Juin 2010

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 15 Juin 2010

• #13

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)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 15 Juin 2010

• #14

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

 

Vote positif 0 Vote négatif

A

analyseaux

XLDnaute Occasionnel

• 15 Juin 2010

• #15

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

 

Dernière édition: 15 Juin 2010

Vote positif 0 Vote négatif