VBA - Ajouter du contenu dans this workbook

Bonjour à tous,

J'aimerai ajouter du code VBA dans un classeur "this workbook" mais je rencontre un message d'erreur. Est-ce que quelqu'un pourrait m'aider faisant mes débuts avec VBA.

Voir ci-dessous le code que j'ai indiqué :

Private Sub Workbook_Open()

Sheets("Home").Activate

End Sub

Private Sub Workbook_Open()

Dim Feuille As Worksheet

Dim Masquer As Boolean

For Each Feuille In ThisWorkbook.Worksheets

With Feuille

Masquer = False

If .Visible = xlSheetHidden Then

.Visible = xlSheetVisible

Masquer = True

End If

If .FilterMode Then .ShowAllData

If Masquer Then .Visible = xlSheetHidden

End With

Next Feuille

End Sub

Le message d'erreur est le suivant :

Erreur de compilation

Nom ambigu détecté : Workbook_Open

D'avance merci à vous tous pour votre aide

Rémi

Bonjour Remi, et bienvenue sur le Forum

Le message d'erreur parle de lui même

Tu a deux fois la ligne

Private Sub Workbook_open

Regarde tes quatre première ligne de code :

Private Sub Workbook_Open() 'ICI
Sheets("Home").Activate
End Sub 'Supprime sa aussi
Private Sub Workbook_Open()'ET ICI (supprime celle-ci)

Bonjour Rémi, Juice et le forum,

Pour compléter (Juice arrête moi si je me trompe), Workbook_Open est une procédure événementiel, c'est à dire que son exécution est conditionnée à un événement particulier (ici l'ouverture du classeur).

Or tu ne peux la trouver qu'une fois dans un classeur, sinon comment Excel fait pour exécuter plusieurs codes simultanément à l'ouverture, qui plus est si tu fais des actions contradictoires ou à l'inverse strictement identiques dans chacun. L'idée est donc de regrouper tout ce que tu souhaites faire à l'ouverture dans une unique macro "Workbook_Open"

Merci beaucoup Juice pour m'avoir éclairé sur le sujet et pour ta réactivité .

Cela fonctionne très bien maintenant .

Et Pedro merci pour le complément d'information, je suis novice en VBA et avec des personnes de conseil comme vous je pense que je vais bien progrésser !

Encore merci à vous deux

Rémi

Oui je suis tout débutant ( encore plus en VBA ) et je suis content d’avoir trouver dans ta question le problème de suite alors je vais te répondre même si la solution a déjà été donnée , ton soucis est le suivant tu as 2 fois woordbook open . Tu ne peux avoir qu’une seule fois ces termes . Cordialement !

Bonsoir Loic,

même si ta réponse est plus de 2 heures après celle de Pedro, j'aime bien ton style « bombe Atomiik à retardement » !

dhany

dhany a écrit :

Bonsoir Loic,

même si ta réponse est plus de 2 heures après celle de Pedro, j'aime bien ton style « bombe Atomiik à retardement » !

dhany

Mon pseudo n’est donc qu’une mascarade

non, non, t'inquiètes pas : loin de moi l'idée de vouloir t'offenser !

santé, camarade !

dhany

Santé Dhany de même !

Et si jamais tu t'ennuies , j'ai un petit soucis sur un de mes programmes

oui, j'ai vu ça ; j'travaille dessus.

dhany

Super Mr Dhany ! merci en avance mais je veux comprendre aprés hein ! ( le boulet )