OVH Cloud OVH Cloud

effectuer une operation sur toutes les feuilles de tous les classe

5 réponses
Avatar
Sharpegreg
qui sont ouverts.

Bonjour, ma question est dans le titre.

Je pense qu'il faut que j'utilise le code "for each ... in ..." mais je
n'arrive pas a trouver la bonne formule afin que la macro effectue sur chaque
classeur ouvert une verification du nom des feuilles de ces classeurs.

merci

Greg

5 réponses

Avatar
J-Dan
bonjour Sharpegreg,

peut-être
For Each wkb In Workbooks
... code
next

J-Dan

-----Message d'origine-----

qui sont ouverts.

Bonjour, ma question est dans le titre.

Je pense qu'il faut que j'utilise le code "for each ...
in ..." mais je

n'arrive pas a trouver la bonne formule afin que la
macro effectue sur chaque

classeur ouvert une verification du nom des feuilles de
ces classeurs.


merci

Greg
.



Avatar
Dush
For Each s In Sheets
MsgBox s.Name
Next s
Avatar
Jacky
Bonjour Sharpegreg

Peut-être que:
'-----------
For classeur = 1 To Workbooks.Count
For feuille = 1 To Worksheets.Count
MsgBox Workbooks(classeur).Name & Chr$(10) & Worksheets(feuille).Name
Next feuille
Next classeur
'-----------
Salutations
JJ

"Sharpegreg" a écrit dans le message
de news:

qui sont ouverts.

Bonjour, ma question est dans le titre.

Je pense qu'il faut que j'utilise le code "for each ... in ..." mais je
n'arrive pas a trouver la bonne formule afin que la macro effectue sur
chaque

classeur ouvert une verification du nom des feuilles de ces classeurs.

merci

Greg


Avatar
Jacky
Ouppssssssssssssss
Comme ceci
'-----------
For classeur = 1 To Workbooks.Count
For feuille = 1 To Worksheets.Count
MsgBox Workbooks(classeur).Name & Chr$(10) &
Workbooks(classeur).Worksheets(feuille).Name
Next feuille
Next classeur
'-----------
JJ

"sharpegreg" a écrit dans le message
de news:

le code pour ouvrir chaque classeur est bon cependant il garde le meme nom
de feuille ....


Bonjour Sharpegreg

Peut-être que:
'-----------
For classeur = 1 To Workbooks.Count
For feuille = 1 To Worksheets.Count
MsgBox Workbooks(classeur).Name & Chr$(10) &
Worksheets(feuille).Name


Next feuille
Next classeur
'-----------
Salutations
JJ

"Sharpegreg" a écrit dans le
message


de news:

qui sont ouverts.

Bonjour, ma question est dans le titre.

Je pense qu'il faut que j'utilise le code "for each ... in ..." mais
je



n'arrive pas a trouver la bonne formule afin que la macro effectue sur
chaque

classeur ouvert une verification du nom des feuilles de ces classeurs.

merci

Greg









Avatar
Jacky
Oubli les codes précédents celui-ci est le bon...
Excuse....
'-----------
For classeur = 1 To Workbooks.Count
For feuille = 1 To Workbooks(classeur).Worksheets.Count
MsgBox Workbooks(classeur).Name & Chr$(10) &
Workbooks(classeur).Worksheets(feuille).Name
Next feuille
Next classeur
'-----------
JJ

"sharpegreg" a écrit dans le message
de news:

le code pour ouvrir chaque classeur est bon cependant il garde le meme nom
de feuille ....


Bonjour Sharpegreg

Peut-être que:
'-----------
For classeur = 1 To Workbooks.Count
For feuille = 1 To Worksheets.Count
MsgBox Workbooks(classeur).Name & Chr$(10) &
Worksheets(feuille).Name


Next feuille
Next classeur
'-----------
Salutations
JJ

"Sharpegreg" a écrit dans le
message


de news:

qui sont ouverts.

Bonjour, ma question est dans le titre.

Je pense qu'il faut que j'utilise le code "for each ... in ..." mais
je



n'arrive pas a trouver la bonne formule afin que la macro effectue sur
chaque

classeur ouvert une verification du nom des feuilles de ces classeurs.

merci

Greg