fermer excel à partir feuil "Acceuil"

[lemak]

Bonsoir à tous
Bonsoir le forum
J’ai le code suivant pour fermer et enregistrer mon fichier quand clic sur le x

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim Nom$
Nom = CStr(Sheets('Acceuil').Range('E6').Value & (Range('E7').Value & (Range('E11').Value)))
ActiveWorkbook.SaveAs Filename:=Nom
ThisWorkbook.Close SaveChanges:=False
MsgBox 'document Enregistré sous Mes Documents', vbOKOnly + vbInformation, Title:='Enregistrement'
End Sub

Je veux fermer mon fichier à partir de la feuille'Accueil'est-il possible si en clic sur le x à partir des autres feuilles,me fait retourner sur la feuille'Acceuil'
Merci d’avance
Voir fichier joint [file name=lemak_20060601195344.zip size=7015]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/lemak_20060601195344.zip[/file]

 

[brouersa]

Bonsoir,

Voilà, je pense avoir ta solution :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim Nom$
Nom = CStr(Sheets('Acceuil').Range('E6').Value & (Range('E7').Value & (Range('E11').Value)))
Sheets('Acceuil').Select
Range('A1').Select
ActiveWorkbook.SaveAs Filename:=Nom
ThisWorkbook.Close SaveChanges:=False
MsgBox 'document Enregistré sous Mes Documents', vbOKOnly + vbInformation, Title:='Enregistrement'
End Sub

J'ai modifié ton fichier (voir attachment).

Bonne soirée

Alain

 

[brouersa]

Sorry, j'ai eu un problème pour joindre le fichier.

Je réessaye ...

Alain [file name=juin2006lemak.zip size=8091]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/juin2006lemak.zip[/file]

 

[lemak]

Re bonsoir
Merci brouersa de ta réponse,mais c'est pas ça que je veux
je veux selectionnerla feuil'Acceuil'dabord,puis je clic sur le x de la feuil'Acceuil' pour enregistrer et fermer
Merci

 

[excalibur]

bonjour lemak brouersa le forum pourquoi tu mets pas simplement en debut de code Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets('Acceuil').Activate
Application.DisplayAlerts = False
ect........
End Sub'salutations

 

[lemak]

Re bonsoir
Merci excalibur,ça marche bien
bonne soirée à tous