XL 2016 A la première exécution de la macro, il manque un indice, mais pas après

xUpsilon · 16 Janvier 2020

Bonsoir tout le monde,

Je reviens pour mon configurateur une fois de plus, et cette fois-ci l'erreur est assez marrante vous allez voir.
Sur le fichier ci-joint, on crée une feuille par catégorie, cette catégorie étant désignée par un titre et des noms (bref on s'en fout).
Toujours est-il que lorsque j'exécute la première fois juste après avoir ouvert mon fichier ma macro, j'ai une erreur qui est la suivante : "L'indice n'appartient pas à la sélection". Cette erreur s'adresse à la ligne suivante :

VB:

Wb.VBProject.VBComponents(NomFeuil).CodeModule.insertlines j, LeCode(j)

NomFeuil est défini à la ligne d'avant par :

Code:

NomFeuil = Worksheets(3).CodeName

Cette troisième feuille est créée au sein de la macro, quelques lignes plus haut.

Le problème est le suivant : Lorsque j'exécute la macro pour la première fois depuis que j'ai ouvert le fichier, j'ai une erreur, et lorsque je regarde mes variables locales, je vois que mon NomFeuil est égal à "", plutot que de prendre le CodeName.
En revanche, si je ferme la macro, que je supprime la page générée, et que je relance la macro, cette fois ci le NomFeuil prend la bonne valeur et la macro fonctionne donc correctement.

Est-ce que qqun a une idée ? J'ai essayé de remplir le CodeName juste après la création de la page, j'ai essayé de remplir le CodeName plusieurs fois, en me disant que peut-être sur le premier coup il était encore vide pour une raison ou pour une autre, mais rien n'y fait. Je ne comprends pas pourquoi uniquement lors de la première exécution le CodeName de la feuille que je crée est égal à "".

Merci d'avance pour toute aide !

job75 · 17 Janvier 2020

Quand on ajoute une feuille elle se place en dernier dans la collection VBComponents donc :

VB:

    Set Wb = Workbooks(NomClasseur)
              
    For j = 1 To 3
        Wb.VBProject.VBComponents(Wb.VBProject.VBComponents.Count).CodeModule.insertlines j, LeCode(j)
    Next j

A placer aux 2 endroits concernés, NomFeuil n'est plus utilisé, voyez ce fichier (2), il n'y a plus de bug.

sylvanu · 17 Janvier 2020

Encore un essai.
A chaque création de feuille, si le nombre de feuilles attendu n'est pas bon j'ouvre un msgbox.
Si aucune msgbox ne s'ouvre et que ça se plante, alors le problème est autre que celui supposé.

job75 · 17 Janvier 2020

xUpsilon à dit:
Surprise ! Pour une raison que j'ignore ça a fonctionné la dernière fois quand je l'ai testé mais ça ne fonctionne plus.

Pareil chez moi sur Excel 2019, j'ai différé la relance de 5 secondes, toujours le bug, je n'y comprends rien.

xUpsilon · 17 Janvier 2020

@sylvanu aucune MsgBox ne s'est ouverte. J'avoue n'y rien comprendre.

Je viens de faire un test en calant une Msgbox juste après la création de la feuille avec un ScreenUpdate et on voit bien que la feuille a été créée à ce moment là (en tout cas elle apparait). Alors pourquoi est-ce que je n'arrive pas à récupérer un paramètre de cette feuille, qui existe visiblement ...
Je comprends pas trop là, je me suis dit que c'était peut etre la première feuille créée qui posait problème, donc j'ai fait un test dans lequel j'ouvre et je supprime une première feuille pour servir de "crash test", mais rien n'y fait je bute à nouveau sur le même problème.

Je continue les recherches

sylvanu · 17 Janvier 2020

Ce qui est rigolo, c'est que sous 2007, ça marche :

J'enregistre le fichier sur le bureau. Je ferme XL. J'ouvre le fichier, et j'obtiens ça au premier lancement.

Essayer cette V6. Je crée une feuille bidon, que je conserve (pas la détruire ) , puis je passe à la suite.

xUpsilon · 17 Janvier 2020

C'est fou ça ... Serait-ce les nouvelles versions qui posent problème ? Une gestion des feuilles qui a changé ?

sylvanu · 17 Janvier 2020

Testez la V6, si c'est un problème de première feuille, on le verra.

xUpsilon · 17 Janvier 2020

Re,

Toujours pas ... Un problème avec la feuille précise créée à ce moment là alors ? Mais comment pourrait-il y avoir un problème avec une feuille qui est créée, elle n'aura pas forcément le même indice, ou le même nom, ou le même contenu, je ne comprends pas comment ça pourrait toujours être la même qui pose problème à ce moment là

sylvanu · 17 Janvier 2020

D'autant que la FeuilleBidon ne sert strictement à rien et n'est jamais appelée.
Ou alors le problème est autre sur XL2019.

sylvanu · 17 Janvier 2020

Et si vous remplaciez :

Code:

    Worksheets(3).Select
    NomFeuil = Worksheets(3).CodeName

par

VB:

    Worksheets("Spindles").Select
    NomFeuil = Worksheets("Spindles").CodeName

au cas où ce serait l'indice qui poserait problème.

sylvanu · 17 Janvier 2020

La solution (enfin peut être) , voir : https://forum.excel-pratique.com/viewtopic.php?t=41828

Problème de CodeName sur XL2019 :

Pour résumer (et si j'ai bien compris) : parfois le CodeName d'une nouvelle feuille ne retourne rien, sans doute à cause d'un problème de timing de VBE, il faut donc forcer une compilation ...
En rajoutant ces 3 lignes, je n'ai plus d'erreur 9 :
Dim Ctrl As Variant
Set Ctrl = Application.VBE.CommandBars.FindControl(ID:=578)
If Ctrl.Enabled = True Then Ctrl.Execute

Au moins à tester. Là où on en est !

xUpsilon · 17 Janvier 2020

Re,

Impossible de changer par "Spindles", la feuille pourrait avoir un autre nom malheureusement.

Effectivement il semblerait que ça fonctionne ! Je vais essayer sur un autre ordi, je te tiens au courant.

Coup de bol que tu aies trouvé ce topic parce que j'ai passé un moment à chercher et pas moyen de trouver ce que je voulais haha

sylvanu · 17 Janvier 2020

Oui, mais même si elle a un autre nom, vous pouvez essayer ça :

VB:

Nom=Worksheets(1).Range("B2")
Worksheets(Nom).Select
NomFeuil = Worksheets(Nom).CodeName

xUpsilon · 17 Janvier 2020

Re,

C'est ce que j'avais commencé par faire mais ça ne fonctionnait pas.
Bon du coup le fait de forcer l'exécution semble fonctionner, un grand merci à toi !

job75 · 17 Janvier 2020

Quand on ajoute une feuille elle se place en dernier dans la collection VBComponents donc :

VB:

    Set Wb = Workbooks(NomClasseur)
              
    For j = 1 To 3
        Wb.VBProject.VBComponents(Wb.VBProject.VBComponents.Count).CodeModule.insertlines j, LeCode(j)
    Next j

A placer aux 2 endroits concernés, NomFeuil n'est plus utilisé, voyez ce fichier (2), il n'y a plus de bug.

xUpsilon · 17 Janvier 2020

Re,

Effectivement ça fonctionne également je n'avais pas pensé à ça mais c'est même plus simple !

Bonne continuation

XL 2016 A la première exécution de la macro, il manque un indice, mais pas après

xUpsilon

XLDnaute Accro

Pièces jointes

job75

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

Pièces jointes

xUpsilon

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

xUpsilon

XLDnaute Accro

job75

XLDnaute Barbatruc

Pièces jointes

xUpsilon

XLDnaute Accro

Discussions similaires