Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour JFL,
Essaie tout simplement sur l'évènement Open de ton même Workbooks :-)
Private Sub Workbook_Open()
Sheets("Accueil").Select
End Sub
Fred.M.
Bonjour JFL,
Essaie tout simplement sur l'évènement Open de ton même Workbooks :-)
Private Sub Workbook_Open()
Sheets("Accueil").Select
End Sub
Fred.M.
Bonjour JFL,
Essaie tout simplement sur l'évènement Open de ton même Workbooks :-)
Private Sub Workbook_Open()
Sheets("Accueil").Select
End Sub
Fred.M.
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
Très complet !
Merci !Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
Très complet !
Merci !
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
Très complet !
Merci !Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" a écrit dans le message de news:Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouvertur e du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" <jfl51200-ex...@yahoo.fr> a écrit dans le message de news:
O5szxhv7HHA.5...@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouvertur e du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" a écrit dans le message de news:Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouvertur e du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" a écrit dans le message de news:Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" <jfl51200-ex...@yahoo.fr> a écrit dans le message de news:
O5szxhv7HHA.5...@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" a écrit dans le message de news:Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour LSteph
ET MERCI
La première partie fonctionne
Tout est caché sauf le menu
Mais l'autre partie NON
J'essssplik
Sur ma feuille menu j'ai des boutons auxquels il y a des macros assigné es
J'ai donc mis des ' devant toutes ces macros
et mis ton code sur un module (le 5 pour ne pas le nommé)
Mais comment faire pour que les boutons réagissent?
Et c'est gentil à toi de me corriger (si si si j'apprécie)
Et un code plus court est toujours meiux et plus rapide
Mais mon gros (façon de parler) problème actuel est l'impression vers PDF
Mais merci et à très bientôt
Rex ;-)) )))
"lSteph" a écrit dans le message de news:
Bonjour MajØR,
;-)
''''''''''''''''''''''''''''''''''''''''''''''''''''''dans
thisworkbook
Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Worksheets("Listings").Protect , userinterfaceonly:=True
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Menu" Then Sh.Visible = False
Next
Worksheets("Menu").Activate
Application.Caption = ThisWorkbook.Path
Application.StatusBar = ThisWorkbook.FullName
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''et puis dans un
Module Standard
Sub AllShowOrNot()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Sheets
With Sh
If .Name <> "Menu" Then .Visible = Not .Visible
End With
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'lSteph
On 4 sep, 15:51, "rthompson" wrote:Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même te mps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" a écrit dans le message de news:Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouvert ure
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour LSteph
ET MERCI
La première partie fonctionne
Tout est caché sauf le menu
Mais l'autre partie NON
J'essssplik
Sur ma feuille menu j'ai des boutons auxquels il y a des macros assigné es
J'ai donc mis des ' devant toutes ces macros
et mis ton code sur un module (le 5 pour ne pas le nommé)
Mais comment faire pour que les boutons réagissent?
Et c'est gentil à toi de me corriger (si si si j'apprécie)
Et un code plus court est toujours meiux et plus rapide
Mais mon gros (façon de parler) problème actuel est l'impression vers PDF
Mais merci et à très bientôt
Rex ;-)) )))
"lSteph" <gmLSt...@gmail.com> a écrit dans le message de news:
1188916247.941906.126...@19g2000hsx.googlegroups.com...
Bonjour MajØR,
;-)
''''''''''''''''''''''''''''''''''''''''''''''''''''''dans
thisworkbook
Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Worksheets("Listings").Protect , userinterfaceonly:=True
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Menu" Then Sh.Visible = False
Next
Worksheets("Menu").Activate
Application.Caption = ThisWorkbook.Path
Application.StatusBar = ThisWorkbook.FullName
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''et puis dans un
Module Standard
Sub AllShowOrNot()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Sheets
With Sh
If .Name <> "Menu" Then .Visible = Not .Visible
End With
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'lSteph
On 4 sep, 15:51, "rthompson" <roubliemoithomp...@softscreen.be> wrote:
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même te mps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" <jfl51200-ex...@yahoo.fr> a écrit dans le message de news:
O5szxhv7HHA.5...@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouvert ure
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour LSteph
ET MERCI
La première partie fonctionne
Tout est caché sauf le menu
Mais l'autre partie NON
J'essssplik
Sur ma feuille menu j'ai des boutons auxquels il y a des macros assigné es
J'ai donc mis des ' devant toutes ces macros
et mis ton code sur un module (le 5 pour ne pas le nommé)
Mais comment faire pour que les boutons réagissent?
Et c'est gentil à toi de me corriger (si si si j'apprécie)
Et un code plus court est toujours meiux et plus rapide
Mais mon gros (façon de parler) problème actuel est l'impression vers PDF
Mais merci et à très bientôt
Rex ;-)) )))
"lSteph" a écrit dans le message de news:
Bonjour MajØR,
;-)
''''''''''''''''''''''''''''''''''''''''''''''''''''''dans
thisworkbook
Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Worksheets("Listings").Protect , userinterfaceonly:=True
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Menu" Then Sh.Visible = False
Next
Worksheets("Menu").Activate
Application.Caption = ThisWorkbook.Path
Application.StatusBar = ThisWorkbook.FullName
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''et puis dans un
Module Standard
Sub AllShowOrNot()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Sheets
With Sh
If .Name <> "Menu" Then .Visible = Not .Visible
End With
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'lSteph
On 4 sep, 15:51, "rthompson" wrote:Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même te mps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" a écrit dans le message de news:Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouvert ure
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour LSteph
ET MERCI
La première partie fonctionne
Tout est caché sauf le menu
Mais l'autre partie NON
J'essssplik
Sur ma feuille menu j'ai des boutons auxquels il y a des macros assignées
J'ai donc mis des ' devant toutes ces macros
et mis ton code sur un module (le 5 pour ne pas le nommé)
Mais comment faire pour que les boutons réagissent?
Et c'est gentil à toi de me corriger (si si si j'apprécie)
Et un code plus court est toujours meiux et plus rapide
Mais mon gros (façon de parler) problème actuel est l'impression vers PDF
Mais merci et à très bientôt
Rex ;-)) )))
"lSteph" a écrit dans le message de news:
Bonjour MajØR,
;-)
''''''''''''''''''''''''''''''''''''''''''''''''''''''dans
thisworkbook
Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Worksheets("Listings").Protect , userinterfaceonly:=True
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Menu" Then Sh.Visible = False
Next
Worksheets("Menu").Activate
Application.Caption = ThisWorkbook.Path
Application.StatusBar = ThisWorkbook.FullName
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''et puis dans un
Module Standard
Sub AllShowOrNot()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Sheets
With Sh
If .Name <> "Menu" Then .Visible = Not .Visible
End With
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'lSteph
On 4 sep, 15:51, "rthompson" wrote:Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" a écrit dans le message de news:Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour LSteph
ET MERCI
La première partie fonctionne
Tout est caché sauf le menu
Mais l'autre partie NON
J'essssplik
Sur ma feuille menu j'ai des boutons auxquels il y a des macros assignées
J'ai donc mis des ' devant toutes ces macros
et mis ton code sur un module (le 5 pour ne pas le nommé)
Mais comment faire pour que les boutons réagissent?
Et c'est gentil à toi de me corriger (si si si j'apprécie)
Et un code plus court est toujours meiux et plus rapide
Mais mon gros (façon de parler) problème actuel est l'impression vers PDF
Mais merci et à très bientôt
Rex ;-)) )))
"lSteph" <gmLSt...@gmail.com> a écrit dans le message de news:
1188916247.941906.126...@19g2000hsx.googlegroups.com...
Bonjour MajØR,
;-)
''''''''''''''''''''''''''''''''''''''''''''''''''''''dans
thisworkbook
Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Worksheets("Listings").Protect , userinterfaceonly:=True
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Menu" Then Sh.Visible = False
Next
Worksheets("Menu").Activate
Application.Caption = ThisWorkbook.Path
Application.StatusBar = ThisWorkbook.FullName
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''et puis dans un
Module Standard
Sub AllShowOrNot()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Sheets
With Sh
If .Name <> "Menu" Then .Visible = Not .Visible
End With
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'lSteph
On 4 sep, 15:51, "rthompson" <roubliemoithomp...@softscreen.be> wrote:
Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" <jfl51200-ex...@yahoo.fr> a écrit dans le message de news:
O5szxhv7HHA.5...@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF
Bonjour LSteph
ET MERCI
La première partie fonctionne
Tout est caché sauf le menu
Mais l'autre partie NON
J'essssplik
Sur ma feuille menu j'ai des boutons auxquels il y a des macros assignées
J'ai donc mis des ' devant toutes ces macros
et mis ton code sur un module (le 5 pour ne pas le nommé)
Mais comment faire pour que les boutons réagissent?
Et c'est gentil à toi de me corriger (si si si j'apprécie)
Et un code plus court est toujours meiux et plus rapide
Mais mon gros (façon de parler) problème actuel est l'impression vers PDF
Mais merci et à très bientôt
Rex ;-)) )))
"lSteph" a écrit dans le message de news:
Bonjour MajØR,
;-)
''''''''''''''''''''''''''''''''''''''''''''''''''''''dans
thisworkbook
Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Worksheets("Listings").Protect , userinterfaceonly:=True
For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> "Menu" Then Sh.Visible = False
Next
Worksheets("Menu").Activate
Application.Caption = ThisWorkbook.Path
Application.StatusBar = ThisWorkbook.FullName
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''et puis dans un
Module Standard
Sub AllShowOrNot()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Sheets
With Sh
If .Name <> "Menu" Then .Visible = Not .Visible
End With
Next
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'lSteph
On 4 sep, 15:51, "rthompson" wrote:Dans le "This workbook"
Moi j'ai ceci
il m'affiche ma feuille "Menu"
Et cache toutes les autres
Et en dessous il y a un d'autres bouts de code utiles
A bientôt
Rex ;-)) )))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Listings").Protect , userinterfaceonly:=True
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
Sheets("Menu").Select
Application.Caption = ThisWorkbook.path
Application.StatusBar = ThisWorkbook.FullName
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et dans mon menu pour chaque bouton j'ai ce code-ci
Ceci affiche la feuille concerné
xxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Consult_Charts()
Sheets("Data_for_charts").Visible = True
Sheets("Data_for_charts").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Et sur chaque feuille j'ai un bouton menu
qui renvoi vers la feuille menu
et qui cache la feuille active
Ce qui fait qu'il n'y a jamais trop de feuille affichées en même temps
Et puis deux boutons pour tout afficher ou tout cacher
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Show_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = True
Sheets("Price Input").Visible = True
Sheets("Product_List").Visible = True
Sheets("Listings").Visible = True
Sheets("Tracking_Orders").Visible = True
Sheets("Offers").Visible = True
Sheets("Customers").Visible = True
Sheets("Make Offer").Visible = True
Sheets("Res-Pricelist").Visible = True
Sheets("EU-Pricelist").Visible = True
Sheets("New contact").Visible = True
Sheets("Printing_Offers").Visible = True
Application.ScreenUpdating = True
Sheets("Menu").Select
End Sub
Sub Hide_AllSheets()
Application.ScreenUpdating = False
Sheets("Promethean_Invoices").Visible = False
Sheets("Price Input").Visible = False
Sheets("Product_List").Visible = False
Sheets("Listings").Visible = False
Sheets("Tracking_Orders").Visible = False
Sheets("Offers").Visible = False
Sheets("Customers").Visible = False
Sheets("Make Offer").Visible = False
Sheets("Res-Pricelist").Visible = False
Sheets("EU-Pricelist").Visible = False
Sheets("New contact").Visible = False
Sheets("Printing_Offers").Visible = False
Application.ScreenUpdating = False
Sheets("Menu").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Sub Menu()
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("A1").Select
End Sub
"JFL" a écrit dans le message de news:Bonjour à tous,
J'ai un classeur, contenant du code et plusieurs feuilles.
Afin de faciliter le travail de mon Boss, je voudrais qu'à l'ouverture
du
classeur, la feuille nommée "Accueil" s'affiche automatiquement.
J'ai trouvé sur un site ( ;=))) ) l'astuce suivante :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Accueil").Range("A1").Select
End Sub
( module ThisWorkBook )
Mais à la fermeture du classeur j'ai une erreur 1004 !!!
Merci à l'avance pour vos pertinentes réflexions !
JF