VBA / enregistrer avec date et heure

Bonjour à tous et toutes,

j'espere que vous allez bien.

information importante, je suis "nul" en VBA ..désolé...

Cela étant, je sais à quoi la VBA peut servir et sais que cela peut-être tres utile.

voici ce que je cherche à faire :

j'aimerais trouver une macro qui enregistre mon fichier avec un nom [tjrs le même], la date et l'heure.

le nom qui reste serait "benji71" suivi de la date et de l'heure.

j'ai bien trouvé qq truc sur le net..Mais...rien qui puisse m'aider...

merci de votre aide...

tres bonne après-midi...

berni///

Bonjour

Code de Module

Sub Enreg()
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\"
valeur = "benji71_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xls"
ThisWorkbook.SaveAs Path & valeur
End Sub

ou, sous un autre format

Sub Enreg()
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\"
valeur = "benji71_" & Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm") & ".xls"
ThisWorkbook.SaveAs Path & valeur
End Sub

Cordialement

Bonjour amadeus,

un tt grand merci pour cette macro. elle est parfaite

juste deux questions :

1) est-il envisageable qu'elle s''éxécute sans devoir par le bouton ? (en cliquant sur la "disquette" enregistrer)

2) si j'ai d'autre macro dans le fichier, je dois juste mettre le code dans un nouveau module..correct ?

encore merci à vous,

berni///

Bonjour

Ce code dans ThisWorkBook enregistre le fichier à la date et l'heure courantes avant de le fermer. il suffit alors de fermer le fichier pour avoir un nouvel enregistrement.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Enreg
End Sub

en lançant la macro suivante (Code dans Module1)

Sub Enreg()
Dim Path As String, valeur As String
Path = ActiveWorkbook.Path & "\"
valeur = "benji71_" & Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm") & ".xls"
ThisWorkbook.SaveAs Path & valeur
End Sub

Un module peut contenir plusieurs macros, mais tu peux aussi en mettre dans plusieurs modules.

Cordialement

Bonsoir amadeus,

un tt,tt grand merci pour votre aide et proposotion qui focntionne parfaitement. merci à vous.

cdlmnt,

berni///