Problème d'enregistrement

[M.D]

Bonjour à tous les membres de ce forum,

J’ai trois boutons qui déclenchent des macros. Ça fonctionne bien.

Mais pour le fun ou la perfection.

En ce qui concerne le bouton, « enregistrement et fermeture« du fichier, existe-t-il une procédure qui donnerait automatiquement la date du jour pour le nom du fichier.
Merci d’avance pour votre attention et de votre aide

M.D

 

[nounbxl76]

Re : Problème d'enregistrement

Bonsoir,

Je ne suis pas sûr d'avoir compris mais peut-être voir la fonction DernièreSauvegarde() + la gestion des évènements de M. Boisgontier.

Gestion des événements

Fonction à mettre dans une cellule bien entendu.

Bonne soirée.

 

[nounbxl76]

Re : Problème d'enregistrement

Sinon voici un code qui donne le nom du classeur en A1 et puis la date + l'heure en A2

Sub nomclasseur()
Dim nom As String
nom = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
Range("A1") = nom
With Format(Date, "dd/mm/yyyy")
Range("A2") = "Le " & Date & " à " & Time
End With
End Sub

Avec quelques lignes des gestion des évènements en +, ça devrait le faire !

 

[JCGL]

Re : Problème d'enregistrement

Bonjour à tous,

Peux-tu essayer avec :

Sub Sauve()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "dd-mm-yyyy") & ".xls"
End Sub

A+ à tous

 

[nounbxl76]

Re : Problème d'enregistrement

Ah oui ! je comprends maintenant... on voit la différence entre moi qui, après avoir gracieusement sollicité de l'aide, tente d'aider les autres et un vrai connaisseur 😀

 

[JCGL]

Re : Problème d'enregistrement

Bonjour à tous,
Salut Noun,

Désolé pas rafraîchi...

Intervient quand tu veux, c'est un Forum d'Entraide.

A++
A+ à tous

 

[M.D]

Re : Problème d'enregistrement

Bonsoir,

Merci à vous pour ces différentes solutions

Bonne soirée

M.D