VBA workbook.saved

[pascal_bidouille]

Bonjour,

J'ai un petit problème entre la propriété saved et la modification de boutons.

J'ai la macro suivante hors de mon fichier "modele base 6.xlsm" (dans un add-in) :

Sub modifier()
    Dim wndf As Workbook
    Set wndf = Workbooks("modele base 6.xlsm")
   
              wndf.Sheets(fndf).Envoi.Caption = "Validation"
              wndf.Sheets(fndf).check.Caption = "Rejeter"
   
    wndf.Saved = True
End Sub

(note : Envoi et check sont les noms de 2 boutons sur ma feuille excel "modele base 6.xlsm")

Si après l'exécution de cette macro j’exécute ceci (dans le fichier "modele base 6.xlsm) :

Sub test_saved()
    MsgBox (ThisWorkbook.Saved)
End Sub

J'ai bien le résultat "vrai"

Par contre si je tente de fermer le fichier "modele base 6.xlsm" je vois dans la macro suivante que ThisWorkbook.Saved est faux !

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim check As Boolean
    check = ThisWorkbook.Saved
end sub

Note : j'ai fait le test : si je modifie une cellule et non pas les captions des bouton, je n'ai pas de pb.

Des idées ?

Merci

 

[herve62]

Re : VBA workbook.saved

Je ressent un truc de propriété de la fonction ?
Essaye d'ajouter :
Dim Cancel as boolean
Cancel= true
Mais rien de sûr

 

[pascal_bidouille]

Re : VBA workbook.saved

Tu ajouterais cela à quelle sub ?

 

[herve62]

Re : VBA workbook.saved

Bsr
Dsl j'étais absent
Bin ... ca se met dans la sub qui traite la sauvegarde non ???

 

[pascal_bidouille]

Re : VBA workbook.saved

Salut,

J'avais essayé mais cela ne fonctionnait pas.
Si quelqu'un connait la sol je suis toujours intéressé. En attendant j'ai du m'arranger pour ne pas avoir à modifier les "caption" des boutons ...