Erreur 1004 : La méthode Select a échoué

Bonjour à tous,

Une erreur que je n’arrive pas à enlever apparaît de temps en temps quand j'ouvre mon fichier. En effet à l'ouverture du classeur j'aimerais qu'une certaine feuille soit sélectionner et d'autre soit fermé ou non.

Mon code :

Private Sub workbook_open() 'ouverture par défaut de la feuille accueil lors du démarrage d'Excel

Worksheets("Accueil").Select

'masquer les pages "planning général","planfification du préventif","ressources","Listes" et "Membres"
    Sheets("Login").Visible = True
    Sheets("Planning_général").Visible = 2
    Sheets("Planification du préventif").Visible = 2
    Sheets("Ressources").Visible = 2
    Sheets("Membres").Visible = 2
    Sheets("Histo maintenances Préventif").Visible = 2
    Sheets("Historique maintenances Curatif").Visible = 2
    Sheets("Planning").Visible = 2
    Sheets("Pense-bête").Visible = 2
    Sheets("Accueil 2").Visible = 2

    Sheets("Login").OLEObjects("Txt_utilisateur").Object.Value = ""
    Sheets("Login").OLEObjects("Txt_pass").Object.Value = ""

End Sub

L'erreur vient du "Select". J'ai essayé avec

.Activate

mais rien n'y fait. Une astuce ?

Amitiés

Bonjour,

Est-ce possible que d'autres codes de ce fichier masquent la feuille "Accueil" ?

Ce qui poserait problème à l'ouverture quand "Accueil" est masqué.

Un ".Visible" avant le ".Activate" peut-être.

ric

Merci ric pour ta réponse.

Il n'y a pas d'autre codes masquant cette feuille. Il y a pas de besoin d'utiliser "Visible" car cette feuille n'est jamais masqué Je pense que la ligne de code comportant le "Select" devrait être placer après la fermeture des autres feuilles. Cela me semble plus logique et je vais remplacer le select par un "Activate"