enregistrement à la date du jour

[306255]

Bonjour a tous,

je cherche a réaliser une macro me permettant de nommé mon document a la date du jour et remplacer par une macro :
fichier, enregistrer sous, nom :"la date du jour"

merci d avance

 

[Pierrot93]

Re : enregistrement à la date du jour

Bonjour,

pas ouvert ton fichier, pas 2007 sous le coude, mais essye peut être ceci :

ActiveWorkbook.SaveAs "monfichier" & Format(Date, "ddmmyyyy")

attention les fichiers xlsx, ne prennent pas en charge les macros...

bonne journée
@+

 

[DoubleZero]

Re : enregistrement à la date du jour

Bonjour, 306255, le Forum,

A placer dans ThisWorkbook et tester :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveAs ThisWorkbook.Path & "\Toto, le " & Format(Date, "dddd dd mmmm yyyy")
End Sub

A bientôt 🙂.

Bonjour, Pierrot 🙂.

 

[306255]

Re : enregistrement à la date du jour

Bonjour,

pas ouvert ton fichier, pas 2007 sous le coude, mais essye peut être ceci :

ActiveWorkbook.SaveAs "monfichier" & Format(Date, "ddmmyyyy")

attention les fichiers xlsx, ne prennent pas en charge les macros...

bonne journée
@+

en fait je mets le code sur vbe mais comment l'active par un bouton?

 

[306255]

Re : enregistrement à la date du jour

est il possible de lier ce code à un bouton?

Bonjour, 306255, le Forum,

A placer dans ThisWorkbook et tester :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.SaveAs ThisWorkbook.Path & "\Toto, le " & Format(Date, "dddd dd mmmm yyyy")
End Sub

A bientôt 🙂.

Bonjour, Pierrot 🙂.

 

[Pierrot93]

Re : enregistrement à la date du jour

Re, bonjour 00🙂

tout dépend du type de bouton... un bouton de la barre d'outils formulaire => click droit sur le bouton => affecter une macro, àprès avoir placé ce code dans une "sub" dans un module standard..
un bouton de la boite à outils controle, en mode création, douclick sur le bouton et tu colles..

 

[Paritec]

Re : enregistrement à la date du jour

bonjour Pierrot🙂 00, 306255 le forum
le plus simple c'est de mettre ton fichier on te mettra le bouton
a+
papou🙂

 

[306255]

Re : enregistrement à la date du jour

Voici mon exemple

 

[DoubleZero]

Re : enregistrement à la date du jour

Re-bonjour, bonjour, Papou 🙂,

Voici les fichiers avec un bouton.

 

[Paritec]

Re : enregistrement à la date du jour

Re bonjour à tous, 00🙂 le forum
tu as mangé du cheval 00 deux fichiers en 2 minutes!!
a+
Papou🙂

 

[DoubleZero]

Re : enregistrement à la date du jour

Re-bonjour,

Re bonjour à tous, 00🙂 le forum
tu as mangé du cheval 00 deux fichiers en 2 minutes!!
a+
Papou🙂

Avec le nouveau fichier transmis par 306255... et de trois 😀😀😀 !

 

[306255]

Re : enregistrement à la date du jour

Super merci pour ton aide... puis je encore abuser de toi en te demandant si il est possible en plus du bouton "dateur" de cocher la case rouge une fois cette operation effectuée

 

[DoubleZero]

Re : enregistrement à la date du jour

Re-bonjour,

Il suffit de remplacer le code, placé dans le Module 1, par celui-ci

Sub Enregistrer()
[R1] = True
ThisWorkbook.SaveAs ThisWorkbook.Path & "\Toto, le " & Format(Date, "dddd dd mmmm yyyy")
End Sub

Bon courage et à bientôt 🙂.

 

[Paritec]

Re : enregistrement à la date du jour

Bonjour 00🙂 306255, Pierrot🙂 le forum
moi perso j'aurais fait

Sub enregister()
    Dim chemin$
    chemin = ThisWorkbook.Path
    Sheets("Recap").Copy
    ActiveWorkbook.SaveAs chemin & "\" & Format(Date, "yyyy mm dd") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    ActiveWorkbook.Close 0
    sheets("Recap").checkbox1 = 1
End Sub

car 306255 demande une copie de feuille et non du classeur, ou alors j'ai pas compris.
a+
papou🙂

 

[306255]

Re : enregistrement à la date du jour

merci pour pour votre aide tres precieuse....

j ai encore une question hier j ai demande comment on pouvait avec 2007 mettre une priorite sur une image par rapport a un bouton car l option mettre en avant ne marche pas sur 2007