date et heure dans un fichier

[adrimax]

Bonjour,

Nouveau sur le forum,nul en VB,"pas mauvais" en excel
Je cherche a sauver l'heure et la date de sauvegarde dans un fichier Excel
Pas nouveau comme question,j'ai trouve sur ce forum des tas de reponses tel que

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("ton_onglet").Range("ta_cellule").Value = Now
ActiveWorkbook.Save
End Sub


Dans mon cas cela fonctionne tres bien tant que je ne ferme pas le fichier
Quand je souhaite le sauver il me dit "the following feature cannot be saved in a macro free file"
Je ne souhaite pas changer l'extension de mon fichier

Pourriez vous me dire pourquoi cette macro ne fonctionne plus lorsque je reouvre le fichier?

Merci

Adrimax

 

[saya]

Re : date et heure dans un fichier

Bonjour adrimax, le forum,

Probablement parce que le format de ton fichier semble être un format qui ne prend pas en charge les macros ("macro free file"). A moins de changer l'extension, je ne vois pas, pour ma part, comment faire ...

Bonne fin d'après-midi,
Saya

 

[PrinceCorwin]

Re : date et heure dans un fichier

Bonjour,

Peut être ceci peut t'aider :

Sub auto_close()
'
'
' Autosauvegarde du fichier
Application.DisplayAlerts = False
sheets("maFeuille").range("laCellule") = now()
ActiveWorkbook.Save
Application.DisplayAlerts = True

End Sub

En cas de fermeture du fichier, note le moment dans laCellule, Sauvegarde le fichier, ferme le fichier...

Salutations