macro de sauvegarde

[Evelynetfrancois]

Bonjour le forum !!!
j ai un petit truc que je ne m explique pas
j ai fait cette macro (si-dessous)pour faire une sauvegarde du classeur concerné sur C:
la sauvegarde fonctionne parfaitement
mais , je lui demande egalement de m ecrire la date de cette sauvegarde en
Sheets('accueil').Range('J19').Value = Now
la date s inscrit bien
mais malgres des enregistrements successifs
a chaque reouverture de ce classeur la date en J19 , disparait !!???
elle est cependant presante sur la sauvegarde !!!!!!
auriez vous une idée !!
je dois probablement faire une erreur !!


merci pour tout !!!!!!!
E et F

Sub sauvegarde()
retour = MsgBox('Créé une copie de sauvegarde de la totalité du classeur ! ', 4 + vbDefaultButton2 + vbExclamation, ' Sauvegarde sorties journalieres - CPN Laxou')
If retour = vbYes Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
'C:\\Sorties Cycle HiverJM.xls', FileFormat _
:=xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:= _
False, CreateBackup:=True
Application.DisplayAlerts = True
MsgBox ' Sauvegarde d'une copie du classeur effectuée avec succés !'' ' & vbCrLf & ' ' & vbCrLf & 'Emplacement: C:\\Sorties Cycle HiverJM.xls''', vbInformation, ' Sauvegarde sorties journalieres - CPN Laxou'
Sheets('accueil').Range('J19').Value = Now
ActiveWorkbook.Save
GoTo fin:
End If
MsgBox 'Aucune sauvegarde n'a etait effectuée ! ', vbCritical, ' Sauvegarde sorties journalières - CPN Laxou'
fin:
End Sub

 

[Philippe²]

La date ne disparait pas, elle est placé uniquement dans le classeur sauvegardé, puisque faite après saveas . Après cette commande le classeur actif est celui sauvegadé
Solution
Il suffit de placer le chargement de la date avant saveas !
Philippe

 

[evelynetfrancois]

merci philippe²
j avais bien pensais a ça et je pensais que mon
'ActiveWorkbook.Save 'en fin de macro sauverait les meubles
je corrige tout ca de suite !!!!!!
et je te tiens au courant

bonne journée a plus
E et F

 

[evelynetfrancois]

voici ma correction philippe²

If retour = vbYes Then
Sheets('accueil').Range('J19').Value = Now
ActiveWorkbook.Save
puis sauvegarde ....
et tout est ok !!!!!!!!!
merci beaucoup et bonne journée
(vous etes trop simpa )
Eet F