E
Evelynetfrancois
Guest
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
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