Feuille par défaut avant activation macro

Bonsoir,

J'ai trouvé un sujet intéressant sur ce forum mais je n'arrive pas à l'adapter à mon projet.

Voici le lien du sujet qui m'intéresse : https://www.excel-pratique.com/fr/astuces_vba/forcer_activation_des_macros

J'ai pris soin d'adapter les macros en fonction du nom donné à mes feuilles mais mon classeur ne s'ouvre pas sur la feuille "MACROS" comme dans l'exemple du forum.

Ai-je oublié quelques chose ou est-ce tout simplement impossible d'adapter cette technique quand on a plusieurs onglets ?

Je poste mon classeur en PJ, ça sera plus simple pour corriger !

Merci à celles et ceux qui prendront le temps de regarder à ma problématique

Bonne soirée

J-Baptiste

Bonjour toutes et tous

@ tester

j'ai mis également lorsque le classeur on le ferme se met automatiquement masque les onglets sauf l'onglet Sommaire

ci-joint

crdlt,

André

Bonsoir,

Merci pour votre réponse ! Je n'ai pas le même résultat que vous Quand j'ouvre mon classeur avant d'activer les macros, j'arrive sur la feuille "SOMMAIRE" au lieu de "MACROS". Vous n'aviez pas ce résultat là vous ?

Merci d'avoir pris de votre temps !

J-Baptiste

Re,

oups, onglet Macros étant caché

à l'ouverture open du ThisWoorkBook et avant la fermeture du classeur les 2 visibles

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Affichage de la feuille EXEMPLE
    Sheets("SOMMAIRE").Visible = -1

    'Feuille de démarrage vu
    Sheets("MACROS").Visible = -1
End Sub

Private Sub Workbook_Open()

    'Affichage de la feuille EXEMPLE
    Sheets("SOMMAIRE").Visible = -1

    'Feuille de démarrage vu
    Sheets("MACROS").Visible = -1
Sheets("MACROS").Select ' on sélectionne l'onglet
End Sub

Note s'il faut caché l'onglet Sommaire mettre à 2 au lieu de -1

Sheets("SOMMAIRE").Visible = 2

crdlt,

André

Merci pour votre rapidité !

C'est mieux effectivement ! C'est bien la feuille "MACROS" qui se lance à l'ouverture de mon classeur ! J'ai juste modifié le code pour que dès lors qu'on active les macros, on ouvre la page "Sommaire". Par contre, une fois sur la page "Sommaire" je ne peux plus appuyer sur les boutons bleus qui me redirigent vers d'autres onglets. J'ai essayé avec une autre version de EXCEL mais c'est pareil

Je ne vois pas d'où ça peut venir !

Si vous avez une idée, je suis preneur!

Je reposte mon fichier modifié du coup !

Merci à vous

J-Baptiste

Re,

une petite erreur de ma part

voila c'est corrigé

les commentaires sont dans le code

ci-joint

Note : pour les rendres non visibles il faudra mettre comme ceci (j'ai oublié grr )

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Affichage de la feuille EXEMPLE
    Sheets("SOMMAIRE").Visible = -1
    'on rend les autres invisibles
    Sheets("TEST1").Visible = 2
    Sheets("TEST2").Visible = 2
    Sheets("TEST3").Visible = 2

    'Feuille de démarrage vu
    Sheets("MACROS").Visible = -1
     'on se place directement ouverture classeur sur onglet MACROS
  Sheets("MACROS").Select  ' rajouter
End Sub

Private Sub Workbook_Open()

    'Affichage de la feuille EXEMPLE
    Sheets("SOMMAIRE").Visible = -1
    'on rend les autres invisibles
    Sheets("TEST1").Visible = 2
    Sheets("TEST2").Visible = 2
    Sheets("TEST3").Visible = 2

    'Feuille de démarrage vu
    Sheets("MACROS").Visible = -1
    'on se place directement ouverture classeur sur onglet MACROS
Sheets("MACROS").Select ' rajouter
End Sub

crdlt,

André

Merci beaucoup ! Mais je rencontre un souci. Si j'enregistre mon classeur en étant sur la feuille "TEST3" et bien il se rouvre sur cette même feuille Je trouve ça étrange pourtant le code semble bon ! Et j'ai juste corrigé le fait qu'on ouvre la page Sommaire dès qu'on active les macros ! J'espère que ce n'est pas ça le problème ?

Merci bien en tout cas !

J-Baptiste

Re,

Je suis allé trop vite

le post ci-dessus est ok test2-3

je le remet ci-joint

crdlt,

André

Re bonsoir !

Merci pour ce nouveau fichier, je testerai le code sur mon fichier demain ! Je vous tiens informé !

J-Baptiste

Bonjour,

Une petite contribution !?

Cdlt.

Private Sub Workbook_Open()
    Sheets("SOMMAIRE").Visible = -1
    Sheets("MACROS").Visible = 2
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("MACROS").Visible = -1
    Sheets("SOMMAIRE").Visible = 2
    Sheets("TEST1").Visible = 2
    Sheets("TEST2").Visible = 2
    Sheets("TEST3").Visible = 2
End Sub

Sub Rectangleàcoinsarrondis1_Clic()
    With Sheets("TEST1")
        If Not .Visible Then .Visible = -1
        .Activate
    End With
End Sub

Bonjour !

Merci à vous deux pour vos contributions, ça semble fonctionner pas mal ! Par contre mon seul bémol, c'est que si j'enregistre par un Ctrl+S une de mes feuilles et que en quittant EXCEL je fais "Non" lors de la proposition d'enregistrement des modifications, je ne reviendrais pas sur ma page "MACROS" au lacement d'EXCEL la fois suivante ! Mais ce n'est pas grave je dirais à mes collaborateurs de toujours cliquer sur "OUI" à la fermeture d'EXCEL dès qu'ils auront fait des modif dans le fichier !

Petite question: en réalité les autres fiches de mon classeurs ne s'appellent pas "TEST" mais "V..." donc je pensais plutôt utiliser le therme

Left(Sh.Name, 1) = "V"

Est-ce que quelqu'un pourrait me venir en aide svp ?

Merci à vous

J-Baptiste

Bonjour toutes et tous

Merci à toi de ton retour,

pour la 1^ère question: (j'pense)

sur cette page du forum des Membres (voir topic de Galopin01)

https://forum.excel-pratique.com/viewtopic.php?t=89592

titre du Topic: Bloquer les fonctions Save et Save as Excel

@voir

pour la 2^ème question: (j'pense)

il faut tester pour remplacer TEST par V... et ne pas oublier lors de la fermeture/ouverture du classeur mettre les bons noms des onglets

crdlt,

André

Bonjour,

Merci pour le lien, je vais regarder ça!

Ce que je voulais dire dans la 2ème question, c'est que certaines feuilles commencent par VE ou VT suivi de quelque chose donc j'aurais voulu que leur visibilité soit prise en compte en une seule ligne de code et non plusieurs dizaines (j'ai cinquante feuilles) comme dans l'exemple ci-dessous:

Private Sub Workbook_Open()
    Sheets("SOMMAIRE").Visible = -1
    Sheets("MACROS").Visible = 2
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("MACROS").Visible = -1
    Sheets("SOMMAIRE").Visible = 2
    Sheets("VT_PARIS").Visible = 2
    Sheets("VE_MARSEILLE").Visible = 2
    Sheets("VT-LILLE").Visible = 2
End Sub

C'est pour cela que je voulais utiliser le terme Left(Sh.Name, 1) = "V" mais je ne sais pas où le placer

Merci pour votre aide !

J-Baptiste

Bonjour tout le monde!

Me voilà de retour après un petit moment d’absence. J'ai réussi à mettre en place la feuille "MACRO" par défaut à l'ouverture du classeur.

Par contre j'ai une autre question: Est-ce que c'est possible, lorsqu'on clique sur la croix rouge du classeur EXCEL en haut à droite d'inhiber la boite de dialogue d'enregistrement du classeur et plutôt de rediriger vers la page "MACROS" ?

J'ai bien trouvé des exemples de codes sur le net qui permettent de fermer sans enregistrer mais pas de rediriger vers une autre feuille...

Si quelqu'un a une astuce je suis preneur !

Merci à vous et bon dimanche

J-Baptiste

Bonjour

Routine auto peux import le nombre onglet

    For I = 1 To Sheets.Count
        Select Case Sheets(I).Name
            Case Feuil2.Name 'Affiche onglet par le CodeName
                Sheets(I).Visible = -1
            Case Else
                Sheets(I).Visible = 2
        End Select
    Next

A+

Maurice

Bonjour Maurice,

Merci pour ton aide ! Ça va simplifier le code que j'avais mis en place et que j'avais écrit pour chaque feuille !

Je ne souhaite pas clôturer le sujet de suite car j'avais une dernière question (dans mon message précédent!)

Merci pour tout

J-Baptiste

Bonjour,

de passage sur le forum, Jean baptiste vous m'avez sollicité en MP.

Je ne peux vous répondre car vous n'avez pas activé cette fonction alors cela n'a rien à voir avec le propos de ce fil, mais je passe par là.

Cordialement,

Leakim

Bonjour Leakim,

C'est parfait, c'est exactement ce dont j'avais besoin!

Merci à vous, bon dimanche

J-Baptiste