Dernier enregistrement (pour les pros)

[Maximus]

Bonjour à tous !

Qqun peut-il m'aider. Voici le pb :

J'ai inseré ce code dans une macro auto_open :
derdate = ActiveWorkbook.BuiltinDocumentProperties('Last Save Time')
Range('K3').Value = derdate
Il s'agit en fait d'un planning interactif.

Cela me permet donc d'afficher dans une cellule la date du dernier enregistrement du planning.
Le problème c'est que lorsque je suis en train de modifier le document et qu'un utilisateur l'ouvre en lecture seule ce code génére une erreur et le programme ne peut pas fonctionner.

Y a t'il une solution. Ai-je bien mis le bon code ?
Merci mille fois à celui, ou celle qui saura apporter une réponse.

Maximus

 

[PascalXLD]

Bonjour

En premier lieu déjà utilise la macro evenementielle

Private Sub Workbook_Open()

au lieu de auto open

et tu peux essayer

If thisWorkbook.ReadOnly=false Then
derdate = ActiveWorkbook.BuiltinDocumentProperties('Last Save Time')
Range('K3').Value = derdate
end if

 

[Maximus]

Merci beaucoup pour ta réponse. Cela devrait convenir.

Désolé pour le délai de réponse, j'étais absent.


Merci encore mille fois pour ton aide précieuse.

Maximus