pascal_bidouille
XLDnaute Junior
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) :
(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) :
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 !
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
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) :
Code:
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
Si après l'exécution de cette macro j’exécute ceci (dans le fichier "modele base 6.xlsm) :
HTML:
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 !
HTML:
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