Fermeture d'excel via bouton

[Den's]

Bonsoir @ tous et toutes,

je veux fermer Excel via un bouton sur mon Userform, mais voilà à chaque fois il me demande si je veux sauver ou pas. Je veux que par défaut se soit NON. Comment dois-je faire ?

Merci de votre aide.

J'ai mis ceci :

Private Sub quitter_Click()
semaine = ""
jour = ""
Ouvrier = ""
Range("J7") = ""
Range("K4") = ""
Range("K6") = ""
CheckBox1 = False
Workbooks("Mon_classeur.xls").Close
End Sub

 

[Zon]

Salut,

Workbooks("Mon_classeur.xls").Close 0 'pour quitter sans sauvegarder
Workbooks("Mon_classeur.xls").Close 1 'pour quitter en sauvegardant

A+++

 

[Den's]

merci pour le tuyau, je ne trouvais pas la solution.

@+

 

[Den's]

Bonsoir @ toutes et tous,

j'ai mis ce que tu m'as dis mais cela ne marche pas car avant je fais juste ceci.

ActiveSheet.SaveAs Filename:="C:\Documents and Settings\Mes documents\feuille " & Toto & " S " & Tata, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Toto et Tata sont variables.

Alors c'est grave DOCTEUR !!!!!!!

Que dois-je faire ????

Merci.

@+ Den's

 

[Zon]

Salut,

Il te faut l'extension de ton fichier avec Workbooks

workbooks("feuille " & Toto & " S " & Tata & ".xls").close 1 'ou 0

A+++

 

[Den's]

Bonsoir @ toutes et tous,

J'ai copié la ligne ci-dessus en remplacant ce que j'avais besoin et là j'ai toujours la meme erreur :

Erreur d'exécution N°9


Que dois-je faire ??

Merci de votre aide. Là ca me dépasse vraiment.

@+
Den's

 

[Zon]

Salut,

Je ne vois pas mon pauvre si ce n'est que l'erreur 9 dit que le nom de fichier n'est pas valide.

Envoies moi ton fichier par courriel.


A+++