macro de double enregistrement Excel 2007 Fermé

Question

Bonjour, 
Je souhaite réaliser une macro qui puisse :
 - enregistrer le fichier à l'endroit où il se trouve,
   et, par la même macro,
 - enregistrer le même fichier : nom + date et heure (pour préserver ce fichier "précieux" et partagé.

Voici mon début de macro (prélevée sur # forum).
Les heures passent et je n'y arrive pas !!

Sub Macro1()
Dim nom As String
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "H" & Minute(Time) & "Mn" & Second(Time) & "Sec" & "_" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
    rep = MsgBox("Le fichier est sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub

Merci d'avance pour votre aide.
Cordialement, Benoit

WeaponEDGE · Answer

bonjour,

Essaye le code suivant :

Sub Macro1()    Dim nom As String    Chemin = ActiveWorkbook.Path & "\"    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Hour(Time) & "H" & Minute(Time) & "Mn" & Second(Time) & "Sec" & "_" & ActiveWorkbook.Name    ActiveWorkbook.SaveAs Chemin & nom    rep = MsgBox("Le fichier est sauvegardé sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")End Sub

Si ça ne marche pas, contrôle que la variable Chemin contient bien l'addresse du fichier.

BenoitCOL · Answer

Bonjour,
Merci pour ton message.
L'utilisation d'une variable "chemin" est bonne.

Si cela est possible, j'aimerai quelques compléments :
 - pour faire 2 enregistrements grâce à la même macro,
 - pour pouvoir enregistrer le nom du chemin de l'enregistrement de sauvegarde dans une cellule, Ex : la cellule B6 du classeur contient : C:\MOAR\SAUVEGARDES

remarque :
La macro que tu m'as transmis intègre les dates et heures + les anciennes 
"30-10-2014_13H54Mn26Sec_30-10-2014_13H53Mn21Sec_30-10-2014_13H52Mn7Sec_Testenregistrementsmultiples4"
Est-ce volontaire ?
Merci bien d'avance, cordialement

WeaponEDGE · Answer

Bonjour,

Désolé pour la réponse tardive mais j'avais pas mal d e boulot.

Pour la seconde sauvegarde tu créer une seconde variable :

Chemin2 = "C:\MOAR\SAUVEGARDES\"

et tu duplique le code d'enregistrment en changeant la variable Chemin par Chemin2

Enfin pour le nom du fichier tu as dit que les personne ouvrais un fichier standard (donc avec un nom fixe) et que la macro enregistrait ce fichier directement en rajoutant la date et l'heure devant ce nom.

Donc si tu fait le test avec un fichier qui contient déjà une date et heure, ça gardera le nom complet et rajoutera la date actuelle et le temps actuel devant ce nom.

j'espère que ma réponse est clair. N'hesites pas à poser des questions sinon.

Macro de double enregistrement Excel 2007

3 réponses

Discussions similaires