Tableau croisé dynamique excel vba

Bonjour,

Je suis débutant et j'ai crée un tableau croisé dynamique avec vba. En fonction des fichiers le nb de lignes est variable et par conséquent ma plage dans mon code étant fixe si mon fichier à un nb de lignes inférieures il m'indique dans le résultat final des lignes vide

Ci-dessous le code

Code:

---

1 2 3 4

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "'Bilan Noémie'!R1C1:R6317C101").CreatePivotTable TableDestination:="", _ TableName:="Tableau croisé dynamique1", DefaultVersion:= _ xlPivotTableVersion10

---

J'ai vu sur internet la notion de lastrow ou de range("a1").currentregion mais cela ne fonctionne pas.

Merci d'avance de votre aide

Salut,

Essaie ceci (a voir si ca passe sous XL97):

Code:

---

1 2 3 4

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "'Bilan Noémie'!R1C1:R" & Sheets("Bilan Noémie").Range("A65536").End(Xlup).Row & "C101").CreatePivotTable TableDestination:="", _ TableName:="Tableau croisé dynamique1", DefaultVersion:= _ xlPivotTableVersion10

---