Fonction volatile +/- Applcation.Display.Alert

Bonjour,

2 MsgBox à l'ouverture d'un classeur dans lequel se trouvent des fonctions volatiles (dont AUJOURDHUI() ).

Si on ferme le classeur sans aucune modification (de la part de l'utilisateur), le message suivant apparaît néanmoins :

Code:

---

"Souhaitez-vous enregistrer le classeur... ?"

---

Y a-t-il un moyen d'éviter ce message afin de ne pas perturber l'utilisateur ?

J'ai essayé en vain avec :

Code:

---

Application.Display.Alert = False

---

dans :

Code:

---

ThisWorkbook/Private Sub Workbook_Open ()

---

Peut-être que cette dernière ligne n'est "tout simplement" pas à sa place ?! Ou qu'elle n'est pas la solution ?!

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

Bonjour,

Citation:

---

2 MsgBox à l'ouverture d'un classeur dans lequel se trouvent des fonctions volatiles (dont AUJOURDHUI() ).

---

Je crains ne pas comprends cette phrase.
Une fonction volatile ne réagit que si l'on modifie la valeur d'une cellule de n'importe quel classeur ouvert et cette fonction volatile doit être placée dans une cellule quelconquer d'un classeur or MsgBox est une fonction VBA. Je ne vois pas le rapport

Bonjour,

Je reformule,

L'utilisateur ouvre un classeur (xlsm) et un Msgbox affiche un message d'accueil (donc pas d'intervention particulière de l'utilisateur).

Dans ce classeur, certaines cellules sont liées à la fonction AUJOURDHUI() et autres fonctions volatiles.

Si l'utilisateur ferme le classeur sans y avoir apporté de modifications (outre d'avoir validé le Msgbox), une fenêtre s'ouvre et lui demande s'il veut enregistrer ou pas le classeur.

J'imagine que le changement d'état du classeur est lié à la fonction volatile ?!

Mais comme l'utilisateur (encore plus novice que moi sur Excel) pense n'avoir rien fait, il se demande légitimement pourquoi on lui demande d'enregistrer un classeur qu'il n'a pas modifié. D'où mon souhait de lui éviter de se poser cette question.

En espérant avoir été plus clair,

Cordialement,
jp

Bonjour,
C'est effectivement plus clair
Une solution est de sauver le classeur lors de son l'ouverture

Code:

---

1 2 3

Private Sub Workbook_Open() Me.Saved = True End Sub

---

Bonjour,

Merci pour cette proposition.

Je l'ai mis là et ça ne change (manifestement rien) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit Private Sub Workbook_Open() Dim NomClasseur As String Dim Racine As String Dim date_péremption As Date Dim échéance As Integer   Me.Saved = True   Application.WindowState = xlMaximized .../...

---

Et si j'exécute Sub Workbook-Open pas à pas, je ne constate pas d'effet au passage de Me.Saved = True
J'ai dû rater quelque chose.

jp

Bonjour,
Je teste toutes les procédures que je publie mais lors du test j'avais utilisé =SOMME(INDIRECT(A7)) et =AUJOURDHUI() et évidemment la date du jour n'ayant pas changé lors de mes tests, cela fonctionnait


J'ai donc ajouté la formule =TEXTE(MAINTENANT();"hh:mm:ss") incluant la fonction volatile MAINTENANT pour que la valeur change à chaque ouverture du classeur et suite à ces tests, il y a lieu de placer le code dans la procédure événementielle Workbook_Activate

Code:

---

1 2 3

Private Sub Workbook_Activate() Me.Saved = True End Sub

---

Citation:

---

si j'exécute Sub Workbook-Open pas à pas, je ne constate pas d'effet au passage de Me.Saved = True

---

La méthode Saved ne fait que sauver.
Avez-vous remarqué un effet particulier lorsque vous sauver manuellement votre classeur ?

Bonjour,

J'ai donc ajouté :

Code:

---

1 2 3

Private Sub Workbook_Activate() Me.Saved = True End Sub

---

... dans ThisWorkbook, et si je ferme le classeur sans l'avoir modifié, j'ai toujours le message :

Pièce jointe 574875

J'ai vraisemblablement dû oublier quelque chose.

Cordialement,
jp

Bonjour,
N'y aurait-il pas une procédure après la méthode Saved qui écrirait dans une cellule ou la modification de valeur d'une propriété d'objet comme par exemple la propriété Visible de l'objet Worksheet ce qui évidemment est une modification du classeur.

Citation:

---

Envoyé par Philippe Tulliez

Une solution est de sauver le classeur lors de son l'ouverture

Code:

---

1 2 3

Private Sub Workbook_Open() Me.Saved = True End Sub

---

---

Il serait préférable de mettre ça dans un Workbook_BeforeClose.
Lire ça : https://docs.microsoft.com/fr-FR/off...ok.beforeclose

Bonjour,

Citation:

---

N'y aurait-il pas une procédure après la méthode Saved qui écrirait dans une cellule ou la modification de valeur d'une propriété d'objet comme par exemple la propriété Visible de l'objet Worksheet ce qui évidemment est une modification du classeur.

---

Citation:

---

la propriété Visible de l'objet Worksheet ce qui évidemment est une modification du classeur

---

Je crois que c'est effectivement là que réside la problème. Avec un peu de recul, je me dis que j'aurais dû y penser plus tôt...

Merci pour votre patience.
Cordialement,
jp