Enregistrement dans macro

Bonjour,

Vois si cela te convient : Enregistrement à la fermeture avec ajout de la date au nom du classeur su http://gerard.g.pagesperso-orange.fr/logexl_09.htm#enregdate.

Bonne journée.

bonjour et merci de ta reponse sinon j'ai mis ce code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
NomFichier = "outilsV1.2_" & Format(Now, "dd-mm-yyyy")
ChDir "O:\General\sirif\ARCHIVE Macro"
ActiveWorkbook.SaveAs Filename:=NomFichier, CreateBackup:=False
End Sub

apres ma macro qui enregistre les evenement et ça marche pas et je sais pas pkoi pourtant ça me donne pas d'erreur

Bonjour,

Comme l'enregistrement se fait sur un lecteur externe ajoute la ligne en gras et si le fichier ne s'enregistre pas avec l'extension modifie la ligne 3 (gras):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
NomFichier = "outilsV1.2_" & Format(Now, "dd-mm-yyyy") & ".xls"
ChDrive "O"
ChDir "O:\General\sirif\ARCHIVE Macro"
ActiveWorkbook.SaveAs Filename:=NomFichier, CreateBackup:=False
End Sub

Bonne journée.

bonjour,
j'ai essayer le code mais l'enregistrement ne se fait pas je sais pas si je dois metre le code tout au debut ou a la fin car moi je l'ai mis en bas et hors du code de ma macro....merci de m'eclairer la dessus

Re,

Comme indiqué sur la page web, le code doit être copié dans le module de ThisWorkbook afin que l'enregistrement se fasse à chaque fermeture du fichier.

Maintenant si ce n'est pas cette procédure qui te convient il n'est pas possible de te renseigner sans connaitre le code auquel tu fais allusion.

Bonne suite.

je precise voici le code de ma macro et je veu quant il fini traiter les donnée il enregistre le resultat :Sub Mise_a_jour_donnee2()
'
' Mise_a_jour_donnee2 Macro
'

'

Range("A2:A1200").Select
ActiveWindow.ScrollRow = 2154
ActiveWindow.ScrollRow = 1
Sheets("Base de Donnée").Select
Application.CutCopyMode = False
ActiveWorkbook.RefreshAll
Sheets("Réponse").Select
Range("G2").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G3").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G4").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G5").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G6").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G7").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("G8").Select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT((exemple_essai!R2C1:R1000C1=Réponse!RC[-6])*(exemple_essai!R2C4:R1000C4))"
Range("E2").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R2C4>Réponse!R2C7,""OF à placer"",""RAS"")"
Range("E3").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R3C4>Réponse!R3C7,""OF à placer"",""RAS"")"
Range("E4").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R4C4>Réponse!R4C7,""OF à placer"",""RAS"")"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R5C4>Réponse!R5C7,""OF à placer"",""RAS"")"
Range("E6").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R6C4>Réponse!R6C7,""OF à placer"",""RAS"")"
Range("E7").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R7C4>Réponse!R7C7,""OF à placer"",""RAS"")"
Range("E8").Select
ActiveCell.FormulaR1C1 = _
"=IF('Base de Donnée'!R8C4>Réponse!R8C7,""OF à placer"",""RAS"")"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D7").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("D8").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!RC[1])"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R2C6)"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R3C6)"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R4C6)"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R5C6)"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R6C6)"
Range("C7").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R7C6)"
Range("C8").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(TODAY(),'Base de Donnée'!R8C6)"
Range("C9").Select

End Sub

Désolé, mais je ne comprends pas la finalité.

Bon courage.