enregistrement à la date du jour

306255 · 31 Octobre 2011

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 · 31 Octobre 2011

Re : enregistrement à la date du jour

Bonjour,

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

Code:

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

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

bonne journée
@+

DoubleZero · 31 Octobre 2011

Re : enregistrement à la date du jour

Bonjour, 306255, le Forum,

A placer dans ThisWorkbook et tester :

Code:

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 · 31 Octobre 2011

Re : enregistrement à la date du jour

Pierrot93 à dit:
Bonjour,

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

Code:

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 · 31 Octobre 2011

Re : enregistrement à la date du jour

est il possible de lier ce code à un bouton?

DoubleZero à dit:
Bonjour, 306255, le Forum,

A placer dans ThisWorkbook et tester :

Code:

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 · 31 Octobre 2011

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 · 31 Octobre 2011

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 · 31 Octobre 2011

Re : enregistrement à la date du jour

Voici mon exemple

DoubleZero · 31 Octobre 2011

Re : enregistrement à la date du jour

Re-bonjour, bonjour, Papou 🙂,

Voici les fichiers avec un bouton.

Paritec · 31 Octobre 2011

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 · 31 Octobre 2011

Re : enregistrement à la date du jour

Re-bonjour,

Paritec à dit:
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 · 31 Octobre 2011

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 · 31 Octobre 2011

Re : enregistrement à la date du jour

Re-bonjour,

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

Code:

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

Bon courage et à bientôt 🙂.

Paritec · 31 Octobre 2011

Re : enregistrement à la date du jour

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

Code:

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 · 31 Octobre 2011

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

enregistrement à la date du jour

306255

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

306255

XLDnaute Occasionnel

306255

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Paritec

XLDnaute Barbatruc

306255

XLDnaute Occasionnel

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Paritec

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Pièces jointes

306255

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Paritec

XLDnaute Barbatruc

306255

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

enregistrement à la date du jour

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency