Bouton enregistrer oui non

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je voudrais avoir le code pour enregistrer mon classeur avec bouton enregistrement oui ou non
car celui que j'ai ne m'enregistre pas bien et je perds mes mises a jour
urgent svp
merci
a bientot

3 réponses

Mike-31 Messages postés 18407 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Salut,

Oui mais sur quelle application et quelle version ?

ensuite je pense que tu veux une boite de dialogue avec 2 boutons, enregistrer oui et non
Mais si c'est non que faut il faire fermer le fichier sans enregistrer ?
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
c'est avec excel 2010 oui c'est exactement ça
merci
0
Mike-31 Messages postés 18407 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Crée un bouton ActiveX sur ta feuille et colle ce code dans les propriétés du bouton

Private Sub CommandButton1_Click()
Select Case MsgBox("Enregistrer les modifications", vbYesNo, "Que voulez vous faire ?")
Case vbYes
ThisWorkbook.Save
Case vbNo
ActiveWorkbook.Close False
End Select
End Sub

Avec le bouton Oui on enregistre sans fermer le fichier, mais il est possible d'intégrer la fermeture du fichier ou d'Excel
avec le bouton Non on ferme sans enregistrer

https://www.cjoint.com/c/CABvhuMXIIC

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
Re
je voudrais enregistrer et fermer
le quel je modifie?
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonsoir
merci j'ai résolu mon problème
bonne soirée
a bientot
0
Mike-31 Messages postés 18407 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

Je te donne ce code qui ferme Excel après enregistrement et j'arrête la cette discussion

Private Sub CommandButton1_Click()
Select Case MsgBox("Enregistrer les modifications", vbYesNo, "Que voulez vous faire ?")
Case vbYes
ThisWorkbook.Save
Application.Quit
Case vbNo
ActiveWorkbook.Close Falseê
End Select
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
Re
merci
0