macro et tableau croisé dynamique

[xavier]

Bonjour à vous sauveur,

on demande à un spécialiste en production de faire de la programmation.
Moi, cela m'interesse beaucoup mais les progrès sont longs et durs sans connaissances.
-
Je travaille sur excel 2000.
J'ai un dossier excel comportant 21 onglets (les onglets portent le nom de la semaine; FW10, FW11..). Toutes les semaines j'ai un onglet qui se rajoute.
Les feuilles de calculs possèdent les mêmes champs.
Mon projet est de faire un tableau croisé dynamiques de certaines données sans perdre le classement par semaine.
J'avais pensé rajouter une colonne (colonne Q) à chaque feuille contenant le nom de la semaine avec le code suivant:
Sub nomfeuille()

Dim i As Integer

i = 2
Do Until IsEmpty(Cells(i, 1))
Range("Q" & i).Value = ActiveCell.Worksheet.Name
i = i + 1
Loop

End Sub

De répéter l'opération à chaque feuille de la feuille FW10 jusqu'à la dernière.
Et après créer une nouvelle feuille où je récupère toutes les données de toutes les feuilles puis création de mon tableau croisé dynamique.

Malheureusement mes connaissances en VBA sont très limitées.

Pourriez-vous m'aider???

merci

Xavier