Macro de double enregistrement Excel 2007
BenoitCOL
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
WeaponEDGE Messages postés 113 Date d'inscription Statut Membre Dernière intervention -
WeaponEDGE Messages postés 113 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Macro de double enregistrement Excel 2007
- Double ecran - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Whatsapp double sim - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
3 réponses
bonjour,
Essaye le code suivant :
Si ça ne marche pas, contrôle que la variable Chemin contient bien l'addresse du fichier.
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.
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
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
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 :
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.
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.