Compléter un menu Excel d’une boite de dialogue

[gourdin]

Bonjour,

Est-il possible de compléter un menu Excel (2000) d’une boite de dialogue ?

Je souhaiterai que les utilisateurs d’un fichier en cliquant dans le menu Quitter d’Excel puisse voir apparaître auparavant un message du type :

« Si vous avez effectué des modifications, veuillez noter la date ci-après : … / … / » et que cette date s’inscrive sur la page dans une cellule.

Et qu’ensuite seulement la boite de dialogue traditionnelle du menu quitter apparaisse (« Voulez vous enregistrer etc..)

Merci

 

[gilbert_RGI]

Re : Compléter un menu Excel d’une boite de dialogue

Bonjour

Vous mettez ceci dans le Thisworkbook du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "Votre message"
End Sub

Salutations

RGI

 

[joss56]

Re : Compléter un menu Excel d’une boite de dialogue

bonjour à tous,

regarde le fichier joint et teste le en le fermant
A+
joss

 

[joss56]

Re : Compléter un menu Excel d’une boite de dialogue

bonjour Gilbert,

nos messages se sont croisés, désolé...
bon dimanche
joss

 

[gilbert_RGI]

Re : Compléter un menu Excel d’une boite de dialogue

bonjour Gilbert,

nos messages se sont croisés, désolé...
bon dimanche
joss

Bon Dimanche également
😎

 

[gourdin]

Re : Compléter un menu Excel d’une boite de dialogue

Exactement ce qu'il me fallait

Merci encore

Bon dimanche

 

[sebastien450]

Re : Compléter un menu Excel d’une boite de dialogue

Merci pour la solution! Comment modifier la cellule dans lequel la date sera mise ?

 

[Evelynetfrancois]

Re : Compléter un menu Excel d’une boite de dialogue

BONJOUR a tous !!
je vous envoye juste une petite idée , en passant par un USF
pour une saisie (presque lol ) automatique de la date........
bon dimanche a tous

E et F

 

[Evelynetfrancois]

Re : Compléter un menu Excel d’une boite de dialogue

evidemant j ai oublié le fichier .................oups

 

[joss56]

Re : Compléter un menu Excel d’une boite de dialogue

Sebastien,

Il suffit de changer Cells(1) par l'adresse de ta cellule: range("A2"), range("D4") etc...
A+
Joss

 

[Evelynetfrancois]

Re : Compléter un menu Excel d’une boite de dialogue

petite modif .dsl .pour avoir la date dans le bon sens , et non pas inverse (jour mois)
E et F

 

[sebastien450]

Re : Compléter un menu Excel d’une boite de dialogue

J'ai essayer ton fichier evelynet mais il me dit :"Objet requis" et me donne:UserForm1.Show

 

[Evelynetfrancois]

Re : Compléter un menu Excel d’une boite de dialogue

DSL sebastien450 là je ne sais pas pourquoi chez moi ca fonctionne
cependant je viens de rajouter un "ON ERROR RESUME NEXT"
pour eviter le bug si aucune date n'est saisie dans le combo et que l'on valide OK "malgres tout.........

Private Sub CommandButton1_Click()
On Error Resume Next
madate = TextBox1.Value
Cells(1) = CDate(Format(UCase(TextBox1.Value), "dd/mm/yyyy"))
Unload Me
End Sub

E et F

 

[sebastien450]

Re : Compléter un menu Excel d’une boite de dialogue

Merci pour la réponse.
Comment integrer également l'execution d'une macro sous une condition ( si "OUI" dans A3 par exemple)?????

 

[Evelynetfrancois]

Re : Compléter un menu Excel d’une boite de dialogue

RE
Sous reserve d'avoir bien saisi ta requete
oups le fichier une fois de plus