[Résolu] UserForm avec 2 commandbutton insérée dans une macro beforeclose

[Sliverystic]

BrunoM45, Papou-net,

Je vous remercie pour votre aide.

Papou-net, ton code me permet d'obtenir la fonctionnalité que je souhaite, je te remercie vivement.

BrunoM45, j'ai souhaité mettre une usf pour insérer une image dans l'encart lors de la fermeture

En tous les cas, Papou-net, ta solution est très fonctionnelle, tu me permets d'atteindre le but souhaité.

Je vous remercie donc tous deux pour cette aide !
Cordialement,

PS : je n'ai pas trouvé comment mettre une balise "résolu"

 

[Compte Supprimé 979]

Re : Aide finale : UserForm avec 2 commandbutton insérée dans une macro beforeclose

Salut Sliverystic,

Pourquoi utiliser un USF pour répondre OUI/NON ?

Tu ne pourrais pas joindre ton fichier modèle ?

A+

 

[Papou-net]

Re : Aide finale : UserForm avec 2 commandbutton insérée dans une macro beforeclose

Bonsoir Sliverystic, BrunoM45, le Forum,

Pour rejoindre le raisonnement de Bruno, je te propose de remplacer ton formulaire par un MsgBox. Ton code deviendrait alors :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Rep = MsgBox("Pas de possibilité de sauvegarde, voulez vous fermer le fichier?", vbYesNo + vbQuestion, "FIN DU PROGRAMME")
If Rep = vbNo Then
  Cancel = True
  Else
  With Application.CommandBars("Standard")
    .Controls("Enre&gistrer").Enabled = True
  End With
  With Application.CommandBars("Worksheet Menu Bar")
    .Controls("Fichier").Enabled = True
  End With
End If
End Sub

J'ai testé, ça fonctionne.

Cordialement.

 

[Sliverystic]

Re : Aide finale : UserForm avec 2 commandbutton insérée dans une macro beforeclose

BrunoM45, Papou-net,

Je vous remercie pour votre aide.

Papou-net, ton code me permet d'obtenir la fonctionnalité que je souhaite, je te remercie vivement.

BrunoM45, j'ai souhaité mettre une usf pour insérer une image dans l'encart lors de la fermeture

En tous les cas, Papou-net, ta solution est très fonctionnelle, tu me permets d'atteindre le but souhaité.

Je vous remercie donc tous deux pour cette aide !
Cordialement,

PS : je n'ai pas trouvé comment mettre une balise "résolu"

 

[Pierrot93]

Re : Aide finale : UserForm avec 2 commandbutton insérée dans une macro beforeclose

Bonjour à tous,

PS : je n'ai pas trouvé comment mettre une balise "résolu"

tu édite ton premier messagge et modifie l'objet, mais cela n'est pas obligatoire sur ce forum...

bonne journée
@+

 

[Sliverystic]

Re : [Résolu] UserForm avec 2 commandbutton insérée dans une macro beforeclose

Merci Pierrot93