Menu

Enregistrement feuil excel [Résolu]

abdellah_tadjine 111 Messages postés jeudi 30 novembre 2006Date d'inscription 16 janvier 2018 Dernière intervention - 28 juil. 2017 à 23:25 - Dernière réponse : abdellah_tadjine 111 Messages postés jeudi 30 novembre 2006Date d'inscription 16 janvier 2018 Dernière intervention
- 19 août 2017 à 20:01
Bonjour,
j'ai crée une application de gestion de distribution de prise en charge. avec userfom
tout marche très bien ...l'ajout des données la suppression etc....mon problème c'est que je cherche a introduire un code vba dans un bouton-commande pour la sauvegarde de mon travail, car quand je quitte directement l'application a l'aide de bouton "quitter"
tout mon travail est effacé.....car il faut aller dans la page excel et enregistrer pour quitter. merci pour votre aide
Afficher la suite 

4 réponses

Répondre au sujet
0
Utile
3
Bonjour abdellah,

Essaye ceci :


' Si le nom de ton bouton Quitter est "CommandButton1" :

Private Sub CommandButton1_Click()
  ThisWorkbook.Save
End Sub

' Si le nom de ton bouton Quitter est "Quitter" :

Private Sub Quitter_Click()
  ThisWorkbook.Save
End Sub


Autre solution : pas de bouton Quitter, et dans ThisWorkbook :


Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ThisWorkbook.Save
End Sub


En quittant Excel par Fichier / Quitter, ou clic sur croix rouge,
ça sauvegardera ton classeur avant la fermeture de celui-ci.

⚠  Si tu n'as pas l'habitude d'une telle manipulation,
essaye-la d'abord sur un fichier-test.

Cordialement
 
abdellah_tadjine 111 Messages postés jeudi 30 novembre 2006Date d'inscription 16 janvier 2018 Dernière intervention - 29 juil. 2017 à 18:40
merci bcp steve ca marche tres bien.....merci encor
yg_be 4666 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 20 février 2018 Dernière intervention > abdellah_tadjine 111 Messages postés jeudi 30 novembre 2006Date d'inscription 16 janvier 2018 Dernière intervention - 13 août 2017 à 15:12
bonjour, peux-tu marquer le sujet comme résolu? (lien en dessous du titre)
abdellah_tadjine 111 Messages postés jeudi 30 novembre 2006Date d'inscription 16 janvier 2018 Dernière intervention > yg_be 4666 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 20 février 2018 Dernière intervention - 19 août 2017 à 20:01
ok c fait
Commenter la réponse de steve