Macro avec boucle de récupération des noms de feuilles

Salut à tous,

Je cherche à construire une macro permettant de réaliser la chose suivante :

> J'ai un classeur avec des onglets composés chacun d'un tableau strictement identique (d'un point de vu structure)

> Chaque onglet est renommé avec une date différente

> dans une feuille de synthèse de ce classeur, je voudrais récupérer le total des tableaux de chaque onglet en rappelant le nom de l'onglet dans la cellule d'à coté.

Exemple :

Feuil1 étant la synthèse

Feuil2 étant renommé en "23-10-2012"

Feuil3 étant renommé en "24-10-2012"

Feuil4 étant renommé en "25-10-2012"

Les totaux à récupérés se situent tous dans la cellule C2 de chaque onglet.

Je cherche à obtenir dans l'onglet de synthèse un tableau de ce genre :

23-10-2012 : 2890

24-10-2012 : 6547

25-10-2012 : 4536

J'ai commencé par faire la chose suivante :

Feuil1.Cells(2, 1) = Feuil2.Name

Feuil1.Cells(2, 2) = Feuil2.Cells(2, 3)

Feuil1.Cells(3, 1) = Feuil3.Name

Feuil1.Cells(3, 2) = Feuil3.Cells(2, 3)

Feuil1.Cells(4, 1) = Feuil4.Name

Feuil1.Cells(4, 2) = Feuil4.Cells(2, 3)

ça marche mais si je rajoute un onglet, je suis obligé de rajouter 2 lignes dans ma macro et sachant que potentiellement des onglets je peux en avoir beaucoup... J'ai donc essayer de faire une boucle pour m’affranchir de ce problème...

Sub noms_onglets()

Dim i As Integer

Dim j As String

For i = 2 To 300

j = "Feuil" & i

Feuil1.Cells(i, 1) = j.Name

Feuil1.Cells(i, 2) = j.Cells(2, 3)

i = i + 1

Next

End Sub

Mais là ça coince car j.name il n'aime pas VBA... comment puis-je faire pour récupérer automatiquement les noms de mes onglets ainsi que la valeur d'une cellule fixe pour un nombre d'onglets qui risque d'évoluer ?

Cordialement,

Bonjour,

Essaie quelque chose comme ça :

Sub noms_onglets()
Dim i As Integer
k = Worksheets.Count
For i = 2 To k
Feuil1.Cells(i, 1) = Worksheets(i).Name
Feuil1.Cells(i, 2) = Worksheets(i).Cells(2, 3)
Next
End Sub

A+

Super ça marche !

merci !