L
lemak
Guest
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]
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]