Comment parcourir toutes les feuilles d'un classeur excel?

Bonjour,

Je tente de parcourir les 10 feuilles du classeur excel (Inventaire.xls), mais ça ne fonctionne pas.

Voiçi le code créé:

Code:

---

1 2 3 4 5 6

For Each Worksheet In Workbooks() If Worksheet.Name = "Test" Then Feuille = True Exit For End If Next Worksheet

---

Cependant Worsheet.Name est égale au nom de mon fichier excel c'est-à-dire "Inventaire.xls".
Et la boucle "For Each" ne parcours donc pas toutes les feuilles de mon classeur, mais plutot tous les classeurs que je pourrais avoir d'ouvert.

Bonjour,

Code:

---

1 2 3 4 5

Dim i For i= 1 To Worksheets.Count //J'affiche le nom de ma feuille MsgBox Worksheets(Souris).Name Next

---

Voici un bout de code tous simple et qui pourrait t'aider.
Ce code affiche le nom de chacune de mes feuilles Excel

Merci Taz,c'est beau.

Dsl encore de vous avoir dérangé. J'ai trouver la réponse sur le site de microsoft: http://support.microsoft.com/kb/142126/fr

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim WS_Count As Integer Dim I As Integer   ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count   ' Begin the loop. For I = 1 To WS_Count   ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name   Next I

---

Bonne journée