Interdire la sauvegarde

Bonjour,

sur un formulaire je voudrais interdire la sauvegarde quand je clique sur le bouton fermer et si je clique sur la croix du form en haut à droite.
Voici mon code sur le bouton fermer.
Merci

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Sheets("Catalogue").Range("G2") = "*" Application.DisplayAlerts = False Application.Quit ActiveWorkbook.Close True Application.DisplayAlerts = True End Sub

---

Salut.

De quoi veux-tu interdire la sauvegarde? Ton bouton s'appelant CommandButton1, il est malaisé de savoir par son nom ce qu'il est censé faire ou ne pas faire. Pourrais-tu détailler en français (sans jargon Excel-VBA et surtout sans code) ce que tu souhaites réaliser, copie d'écran du userform à l'appui?

Bonjour,
j'ai créé un userform avec une barre de recherche qui affiche mes résultats sur ce même userform dans une listbox.
Quand je clique sur mon bouton fermer de ce même userform il me demande voulez-vous enregistrer alors que je n'ai fait aucun enregistrement.
Comment faire pour enlever ce message ?
Merci

Ton code change la valeur de G2 de la feuille Catalogue Sheets("Catalogue").Range("G2") = "*" et le même code demande de quitter l'application Application.Quit AVANT de fermer ton classeur en enregistrant...

Essaie ce qui suit (je n'ai pas testé)

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() Sheets("Catalogue").Range("G2") = "*" ActiveWorkbook.Close True Application.Quit End Sub

---

Merci pour le code çà fonctionne