mister red
XLDnaute Nouveau
Bonsoir à, tous,
j'ai construit une petite appli sur plusieurs classeurs. je ré-écris le code pour que ce soit plus propre. J'ai notamment remplacé les utilisations de names (les noms affichés dans les onglets des feuilles) par des codenames (le nom interne exel... les feuil1/feuil2 qu'on voit sous l'éditeur vb).
Je veux tester la couleur d'un onglet d'un autre classeur que celui d'où je fais le test.
Ca marche quand j'utilise les names dans des worbooks("...")/Sheets ("..;")/ActiveWorkbook/ActiveSheet...
Ca marche si j'utilise des codenames de feuilles du classeur qui contient la macro.
Ca plante à la compil avec des codenames de feuilles d'autres classeurs que celui qui contient la macro.
Quelqu'un aurait-il une piste pour résoudre ce problème ?
Ci-dessous le bout de code incriminé :
Then
ClasseurGraphiques.Activate
If (Feuille1PositionPtfAFSe.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille2PositionPtfAFSe.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille1PositionProjSimi.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille2PositionProjSimi.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille1PositionProjetSpecif.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille2PositionProjetSpecif.Tab.ColorIndex = CouleurImprimerOK) _
Then
Merci pour toute aide bienvenue.
j'ai construit une petite appli sur plusieurs classeurs. je ré-écris le code pour que ce soit plus propre. J'ai notamment remplacé les utilisations de names (les noms affichés dans les onglets des feuilles) par des codenames (le nom interne exel... les feuil1/feuil2 qu'on voit sous l'éditeur vb).
Je veux tester la couleur d'un onglet d'un autre classeur que celui d'où je fais le test.
Ca marche quand j'utilise les names dans des worbooks("...")/Sheets ("..;")/ActiveWorkbook/ActiveSheet...
Ca marche si j'utilise des codenames de feuilles du classeur qui contient la macro.
Ca plante à la compil avec des codenames de feuilles d'autres classeurs que celui qui contient la macro.
Quelqu'un aurait-il une piste pour résoudre ce problème ?
Ci-dessous le bout de code incriminé :
Then
ClasseurGraphiques.Activate
If (Feuille1PositionPtfAFSe.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille2PositionPtfAFSe.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille1PositionProjSimi.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille2PositionProjSimi.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille1PositionProjetSpecif.Tab.ColorIndex = CouleurImprimerOK) Or _
(Feuille2PositionProjetSpecif.Tab.ColorIndex = CouleurImprimerOK) _
Then
Merci pour toute aide bienvenue.