Enregistrement feuil excel

Résolu
abdellah_tadjine Messages postés 191 Date d'inscription   Statut Membre Dernière intervention   -  
abdellah_tadjine Messages postés 191 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
steve
 
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
 
0
abdellah_tadjine Messages postés 191 Date d'inscription   Statut Membre Dernière intervention   6
 
merci bcp steve ca marche tres bien.....merci encor
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584 > abdellah_tadjine Messages postés 191 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour, peux-tu marquer le sujet comme résolu? (lien en dessous du titre)
0
abdellah_tadjine Messages postés 191 Date d'inscription   Statut Membre Dernière intervention   6 > yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention  
 
ok c fait
0