Fermer l'application Excel avec la croix d'une userform

Question

Bonjour,

je me lance juste dans la programmation de macro, userbox ...... dans Excel. 
Gr&#226;ce &#224; l'aide et &#224; internet, j'ai r&#233;ussi pas mal de truc, mais l&#224;, je bloque .....


J'ai cr&#233;&#233; une Userform et je voudrais utiliser la croix pour fermer tout le fichier Excel.
Est-ce possible ?

sylvain09 · Answer

oui
Dans la userform

Private Sub Form_Terminate()
Application.Quit
End Sub

Cela marche avec powerpoint, word, excel

Sylvain09

sylvain09 · Answer

Tu peux me demander d'autres truc sur vba je suis au top !

Sylvain09

lere · Answer

Bonjour, 
je voudrais éffectuer la même fonction avec l'apparition d'une MsgBox afin de demander à l'utilisateur s'il souhaite enregistrer les modifications.
J'ai pensé à la fonction UserForm_QueryClose

Aussi je souhaite faire une fonction qui ferme uniquement le workbook de travaille car l'instruction Application.quit ferme Excel.

Pouvez-vous m'aider s'il vous plaît ?

Utilisateur anonyme · Answer

Bonjour,

ActiveWorbook.close


Voir dans l'aide pour les options, si tant est qu'il y ait des options.

grisan29 · Answer

bonjour a vous tous
voici un code que j'utilise pour sauvegarder en fermant par la croix


Private Sub Workbook_BeforeClose(Cancel As Boolean)
 On Error GoTo erreur
 varname = Sheets("Feuil1").Range("g17").Value
 fname = InputBox("enregistrer le fichier sous le nom", "Enregistrement", varname)
 ActiveWorkbook.SaveAs Filename:=fname
 Exit Sub
erreur:
  rep = MsgBox("Une erreur c'est produite, voulez vous quitter sans sauvegarder", vbYesNo)
  If rep 7 Then Cancel True
End Sub 

il y a un msgbox qui s'ouvre afin de demander s'il faut sauver sous le nom qui est en ("g17") ou sous un autre nom
avant il faut cocher enregistrer dans les option d'excel pour retrouver le fichier
cordialement si cela peut aider

Pascal

Fermer l'application Excel avec la croix d'une userform

5 réponses

Discussions similaires