Erreur 438 - Visual Basic - Ouverture de feuille

Fermé

JonBid Messages postés 7 Date d'inscription jeudi 9 mars 2017 Statut Membre Dernière intervention 30 mars 2017 - 21 mars 2017 à 08:47
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 22 mars 2017 à 08:50

Bonjour à tous!

Voilà, je travaille sur un document Excel, et dans le WorkBook, j'ai rentré un code pour que dès l'ouverture d'une feuille, celle-ci s'affiche tout au début (en réalité cela affiche la cellule $A3). Le code fonctionne et est le suivant :

Private Sub Workbook_Open()

    With Feuil1 / Feuil2 / Feuil3 / Feuil4 / Feuil5 / Feuil6 / Feuil7 / Feuil8
        .Range("A3").Show
        .Range("A3").Select
    End With

End Sub

Cependant, j'ai toujours le message d'erreur 438qui apparaît à l'ouverture.

Lorsque j'essaie de déboguer l'objet, l'erreur s'affiche sur cette ligne

J'ai tenté plusieurs solutions mais en vain
Merci d'avance pour votre aide!

Cordialement,

A voir également:

Erreur 438 - Visual Basic - Ouverture de feuille
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur 5000 france tv - Forum iPhone
Erreur g030 - Forum Bbox Bouygues

2 réponses

Réponse 1 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
21 mars 2017 à 09:19

Bonjour

a adapter,

Option Explicit

Private Sub Workbook_Open()
    Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5")).Select
    Range("A3").Select
     Sheets("Feuil1").Select 'dissocie les feuilles
End Sub

JonBid Messages postés 7 Date d'inscription jeudi 9 mars 2017 Statut Membre Dernière intervention 30 mars 2017
21 mars 2017 à 11:12

Je pense avoir répondu dans la mauvaise case !
Merci de regarder la suite de la discussion svp

Pardon !

Réponse 2 / 2

JonBid Messages postés 7 Date d'inscription jeudi 9 mars 2017 Statut Membre Dernière intervention 30 mars 2017
21 mars 2017 à 10:19

Michel,

J'ai essayé ce que tu me propose, et me voici maintenant avec cette erreur:

Je débute en VBa, qu'est-ce qu'un indice ?

Merci

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
22 mars 2017 à 08:50

j'avais testé comme toujours sur un classeur avec 5 feuilles avant de poster une proposition et ca fonctionnait sans problème.

vérifie donc ce que tu as écris dans l'array et d'autre part pourquoi avoir rajouté
sheets("Accueil"),select en 1° ligne, ligne que j'avais enlevé car inutilie... tu as peuy-^tre un conflit entre "accueuil" et "feuilX" (1 ou2 ou...)

Discussions similaires

Code erreur 3000

Erreur vidéo inconnue sur le Freebox Player

Erreur 3005 sur France TV

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture des tv film et series sur mon appli iptv smarters pro