Discussion :

[jpma75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Display.Alert = False

dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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

[jpma75]

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

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
   Me.Saved = True
End Sub

[jpma75]

Bonjour,

Merci pour cette proposition.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Activate()
   Me.Saved = True
End Sub

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 ?

[jpma75]

Bonjour,

J'ai donc ajouté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :



J'ai vraisemblablement dû oublier quelque chose.

Cordialement,
jp

[Philippe Tulliez]

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.

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jpma75]

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.

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