Discussion :

[Igloobel]

Bonjours à tous et j'espère que vous avez passé un bon Noël.

J'ai une toute petite question de rien du tout.

Dans les temps ancien (Oct 2005) j'ai eu une discussion avec, entre autre, Ouskel'n'or sur la possibilité de décompter les feuilles de calcul, dont voici le code :

Code :

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

Workbooks("toto.xls").Application.VBE.VBProjects(i).vbComponents(j).Name

Ma remarque tient sur "VBProjects(i)" Peut-on créer plusieurs projets sur un même classeur et si oui comment fait-on?
Si non alors que dois-je faire pour pouvoir décompter les feuilles de mon classeur

Mon projet parle de reprendre sur chaque feuille de mon classeur (87) lire la cellules A1 et mettre le contenu de cette cellule sur une feuille récap puis faire la somme.

Merci pour votre aide

Igloobel

[DarkVader]

Merci %)

Dans les temps ancien (Oct 2005) j'ai eu une discussion avec, entre autre, Ouskel'n'or sur la possibilité de décompter les feuilles de calcul, dont voici le code :

Code :

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

Workbooks("toto.xls").Application.VBE.VBProjects(i).vbComponents(j).Name

Ce code permet d'accéder à la collection de tous les objects Excel dont les feuilles de calcul -
VBProjects fait référence à la collection de tous les projects VBA.

Code :

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

1
2
3
    For Each sh In Workbooks("toto.xls").Worksheets
        Debug.Print sh.Name
    Next

est plus approprié.

[Igloobel]

Merci DarkVader

Ton bout de code me convient parfaitement effectivement cela va sur chaque feuille et on fait le traitement que l'on veut derrière C'est impec

Ceci dit Peux-tu, ou quelqu'un d'autre répondre à ma première question :

Ma question tient sur "VBProjects(i)" Peut-on créer plusieurs projets sur un même classeur et si oui comment fait-on?

Merci d'avance

Igloobel