Discussion :

[marcel3364]

Bonjour
Un bouton lance la tentative de fermeture du classeur : ActiveWorkbook.Close
Si le classeur a été modifié, une boîte de dialogue s'ouvre
- Enregistrer ? - Ne Pas enregistrer ? - Abandon
Comment puis-je récupérer, dans le code du bouton, l'information de ce qui a été choisi ?
Si ce sont les deux premiers, pas de problème, je sais que le classeur a été fermé, mais dans le cas Abandon, j'ai besoin de savoir, car le classeur est resté ouvert

Pour l'instant je suppose que l'on n'a pas abandonné ....
Merci
Windows 10, Office 2016

[unparia]

Bonjour

Si ce sont les deux premiers, pas de problème, je sais que le classeur a été fermé, mais dans le cas Abandon, j'ai besoin de savoir, car le classeur est resté ouvert

Je me suis une fois posé une drôle de question, à savoir :
Comment déterminer si je suis sorti de la salle dans laquelle je me trouvais ? Et une réponse s'est spontanément imposée : si je me trouvais encore dans cette salle, c'est que je n'en étais pas sorti --->> et donc --->>

Code :

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

1
2
3
Set toto = ActiveWorkbook
  toto.Close
  If ActiveWorkbook Is toto Then MsgBox "il est toujours là, mon classeur actif"

[patricktoulon]

heu je me trompe peut etre
mais la chose est simple
a suposer que ton bouton soit dans la feuil1!!!!!!!
dans le thisworkbook tu met

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Feuil1.cancel_After_dialog = Cancel
End Sub

dans la Feuil1 ou se trouve l'evenement du bouton

Code :

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

1
2
3
4
5
6
[Public cancel_After_dialog 
Private Sub CommandButton1_Click()
ActiveWorkbook.Close
 
MsgBox cancel_After_dialog
End Sub

j'ai volontairement non typé la variable pour etre sur

celat dit comme ceci tu a une variable déterminée en cas d'annulation dans le dialog pour une eventuelle utilisation dans une eventuelle macro ou a la suite du code cet evenement

et puis de toute facon la macro s'arrete a close si tu n'abandonne pas et le fichier est fermé pour (enregistrer,enregistrer sous ) sans abandon
donc si tu abandonne tu peux eventuellement coder en dessous la ligne du close qui s'executera tout simplement
attention tout de meme si le classeur est tout seul dans l'instance l'application reste active et donc doit etre fermée manuellement (double manoeuvre)

[marcel3364]

heu je me trompe peut etre
mais la chose est simple
a suposer que ton bouton soit dans la feuil1!!!!!!!
dans le thisworkbook tu met

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Feuil1.cancel_After_dialog = Cancel
End Sub

dans la Feuil1 ou se trouve l'evenement du bouton

Code :

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

1
2
3
4
5
6
[Public cancel_After_dialog 
Private Sub CommandButton1_Click()
ActiveWorkbook.Close
 
MsgBox cancel_After_dialog
End Sub

j'ai volontairement non typé la variable pour etre sur

celat dit comme ceci tu a une variable déterminée en cas d'annulation dans le dialog pour une eventuelle utilisation dans une eventuelle macro ou a la suite du code cet evenement

et puis de toute facon la macro s'arrete a close si tu n'abandonne pas et le fichier est fermé pour (enregistrer,enregistrer sous ) sans abandon
donc si tu abandonne tu peux eventuellement coder en dessous la ligne du close qui s'executera tout simplement
attention tout de meme si le classeur est tout seul dans l'instance l'application reste active et donc doit etre fermée manuellement (double manoeuvre)

Elle ne s'applique pas à mon cas, car les classeurs que je manipule sont des classeurs de données, objets traités par mon application; donc je ne peux pas les modifier ...
Merci quand même

[patricktoulon]

re

objets traités par mon application

quelle application?

[marcel3364]

re

quelle application?

Bonjour
J'ai un classeur Excel qui est en réalité une application VBA qui gère des classeurs Excel de données : saisies, conversions, extractions, comparaisons, archivages .....
Le tout dans un contexte de généalogie .....
@+