Discussion :

[Nonno 94]

Bonjour le Forum,

pouvez-vous m'aider et me dire comment modifier le code ci-dessous qui ouvre un 2 ème classeur mais refuse d'en sélectionner la feuille "Cours" ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_Open()
 
    Application.DisplayFullScreen = True
 
    If [AJ1] > [AM10] + 5 Then
        Feuilles_Supprimer_2               'Supprimer Feuilles Contrôlées Semaine (S-1)
    End If
 
    Feuil3.Select
 
    Sheets("Valeurs").Select
            Range("A1").Select
 
     Ouvrir_Consensus_Potentiels_3_mois
         Sheets("Cours").Select
            ActiveSheet.Unprotect
 
 
End Sub

La macro s'arrête et le message suivant s'affiche:

Erreur d'exécution '9': l'indice n'appartient pas à la sélection.

La fenêtre active est bien celle du 2 ème classeur.

Je vous remercie pour vos réponses et vous souhaite une bonne journée.

Cordialement.

[nibledispo]

bonjour,

et sur quelle ligne l'erreur se produit-elle ?

Sinon l'erreur indique vraisemblablement la sélection d'une feuille inexistante dans le classeur actif.

par ailleurs : pourquoi feuil3.select pour sélectionner immédiatement après une autre feuille.

cordialement,

[Nonno 94]

Bonjour Niblidispo,

l'erreur se produit sur la ligne :

Sheets("Cours").Select

La feuille sélectionnée à ce moment là par la macro "Private Sub Workbook_Open" du 2 ème classeur est une autre feuille ("Consensus") de ce 2 ème classeur.
L'ouverture du 2 ème classeur se déroule donc jusqu'alors normalement.
Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Workbook_Open()
 
    'Dim utilisateur, Attention As String
    'utilisateur = Environ("username")
    'Attention = MsgBox(prompt:="ATTENTION : ce fichier est un fichier EXCEL 2003", Title:="Espace 'Rékia's I G'")
    'Dim utilisateur, bonjour As String
    'utilisateur = Environ("username")
 
    Effacer_Accueil
 
    Ecrit "Espace 'Rekia's I G'" & Chr(10) & Chr(10) & "Bonjour et bienvenue dans ce Fichier d'information du dossier 'Rekia's I G'"
 
    bonjour = MsgBox(prompt:="Bonjour" & utilisateur & " et bienvenue dans ce Fichier d'information du dossier 'Rekia's I G'", Title:="CONSENSUS 'Les Echos': Potentiels et Objectifs 3 mois.")
    'décommenter la ligne suivante pour que le programme se termine après l'affichage du message
    'unload me
 
   MsgBox "Ce Fichier est un Fichier EXCEL 2007 compatible avec la version 1997-2003." & Chr(10) & _
             "" & Chr(10) & _
        "CONSIGNE pour la Procédure de Mise à jour en fin de semaine." & Chr(10) & _
                     "" & Chr(10) & _
        "Si l'Avertissement de sécurité est affiché dans la Barre des Messages," & Chr(10) & _
        "Cliquer sur 'Options' puis sur 'Ouvrir le Centre de gestion de la Confidentialité'." & Chr(10) & _
        "Cocher ensuite les 3 Cases 'Activer' dans 'Paramètres des Macros' et 'Contenu externe'. Cliquer sur 'OK'" & Chr(10) & _
        "Refermer le fichier sans enregistrer et le rouvrir pour mettre à jour les Liaisons et lancer les Macros." & Chr(10), vbExclamation, "CONSENSUS 'Les Echos': Potentiels et Objectifs 3 mois."     'vbOKOnly
 
 
        Sheets("Consensus").Select
 
            ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
 
        Colorer_Onglet
 
        Test
 
        Sheets("Accueil").Select
 
End Sub

Ces précisions vous suffiront-elles ?
Remerciements.

Cordialement.

[Marc-L]

Bonjour,

un programme ne refuse rien, c'est souvent tout simplement mal programmé ‼

Sans qualification de classeur, la feuille fait référence alors au classeur contenant la macro ‼
B-A-BA du VBA …

Si ce n'est pas le cas, si par exemple c'est le classeur actif : ActiveWorkbook.Worksheets("nom de la feuille"). …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Nonno 94]

Merci et bravo pour votre réponse.

Bonne fin de journée.

P. S. : je n'ai toujours pas trouver comment faire apparaître le pouce levé !

J'ai dû avoir un éclair de lucidité car j'ai fait apparaître un pouce ....levé (bien mérité)après votre réponse !!!!

La prochaine fois, j'essaierai le pouce ......baissé.