Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Dernier enregistrement (pour les pros)

  • Initiateur de la discussion Maximus
  • Date de début
M

Maximus

Guest
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

XLDnaute Barbatruc
Modérateur
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
 
M

Maximus

Guest
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…