Discussion :

[ippo_master]

Bonjour,

Je rencontre un problème particulièrement bloquant que je ne parviens pas à résoudre moi-même.
A la fermeture d'un fichier Excel, je prévois de faire des opérations de manière générique (de type inscrire une valeur, cacher des lignes, etc.) puis d'offrir le choix à l'utilisateur d'enregistrer ou non les modifications apportées (dans l’événement ThisWorkbook_BeforeClose)
Si celui-ci répond NON, je fais croire à Excel que la propriété .saved du classeur est vraie puis Exit Sub.
Si celui-ci répond OUI, je prévois de faire un certain nombre d'opérations (de type inscrire une valeur, cacher des lignes, etc.) et d'enregistrer, puis Exit Sub.

Si en manipulation, je ferme via la croix rouge d'Excel, le code s'exécute parfaitement bien (ThisWorkbook_beforeclose).
Si je passe par le UserForm, pour lequel j'ai créé un bouton "Quitter" avec l'instruction ThisWorkbook.Close, le code s'exécute (notamment le ThisWorkbook.save) mais n'enregistre pas le fichier (en répondant "oui" à la msgbox)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'1er type d'opération générique
Sheets("Feuil1").Cells(1, 1) = "toto"
Message = MsgBox("Je quitte. Enregistrer oui ou non ?", vbExclamation + vbYesNo)
If Message = vbNo Then
    ThisWorkbook.Saved = True 'Il n'enregistrera pas mon "toto" mais j'en m'en fiche
    Exit Sub
End If
If Message = vbYes Then
    Sheets("Feuil1").Cells(1, 2) = "fin"
    ThisWorkbook.Save
    ThisWorkbook.Saved = True
End If

Des pistes ?

[CaptainMeta]

Salut,

Je ne comprends pas très bien cette phrase : "le code s'exécute (notamment le ThisWorkbook.save) mais n'enregistre pas le fichier (en répondant "oui" à la msgbox)".. Si le thisworkbook.save s'éxecute sans problème c'est qu'il t'a enregistré le document quelque part. Est ce que tu as enregistré le classeur ("enregistrer sous") avant de lancer ton code?

A+

Captain

[ippo_master]

Oui et non.
Oui en cas de fermeture par la croix rouge classique d'Excel - Exécution sans problème + sauvegarde effective
Non en cas de fermeture demander via le bouton "Quitter" de la Userform - Exécution sans problème mais pas de sauvegarde effective

L'instruction du bouton "Quitter" de ma UserForm

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
Unload UserForm1
ThisWorkbook.Close
End Sub

[CaptainMeta]

Si tu mets un point d'arrêt sur la ligne thisworkbook.save, est ce que le programme y passe?

Parce que si il y passe, ton classeur va bien être enregistré..

[ippo_master]

Il passe mais il n'enregistre pas, c'est bien le problème.
Après de longues recherches, j'ai trouvé ceci : https://support.microsoft.com/fr-fr/...r-fr/kb/898511