[VBA] excel croisé dynamique et plage de données variables

Bonjour,
Dans mon classeur j'ai 2 feuilles :
1 données
1 tableau croisé dynamique

la feuille données s'incremente quotidiennement de nouveaux enregistrements, or le tableau lui n'ajuste pas sa plage de données et donc n'est pas actualisé.
Existe t-il un moyen, à l'ouverture du classeur d'ajuster la plage de recherche du tableau
Merci de votre aide

Code:

---

1 2 3 4

ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _ "Feuil1!R1C1:R22C8", TableDestination:="R1C1:R4C1", TableName:= _ "Tableau croisé dynamique3"

---

Comment peut-on compter le nombre de lignes remplies dans la feuille, pour transmettre la valeur R22 variable

Ce code te donne le numéro de ligne de la dernière cellule de la huitième colonne:

Code:

---

1 2	DerniereLigne = Cells(32000, 8).End(xlUp).Row

---

Ca devrait t'aider, non?

Merci
j'avais trouvé ça

Citation:

---

nbLignes = NBVAL("Feuil1!A2:A100")

---

dans le code de la sub je n'arrvie pas à l'utiliser;
erreur fonction non définie

Code:

---

1 2 3 4 5 6 7

Dim nbLignes As Long nbLignes = NBVAL("Feuil1!A2:A22") ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _ "Feuil1!R1C1:R22C"&nbLignes , TableDestination:="R1C1:R4C1", TableName:= _ "Tableau croisé dynamique3" End Sub

---

C'est vrai, ça, c'est quoi, ce NBVAL?
Mais si ça ne marche pas, je t'assure que le petit bout de code que je t'ai donné marche bien, lui.
Et fais attention, je crois que tu mélanges les numéros de ligne (R) et de colonne (C)

J'ai un petit prob pour lui signifier que Cells(32000, 8) doit s'opérer sur la feuille1 :oops:
Merci encore de ton aide[/code]

Heuuu... Comme ça?

Code:

---

1 2	DerniereLigne = ActiveWorkbook.Worksheets("Feuil1").Cells(32000, 8).End(xlUp).Row

---

Merci Megaxel, :ave: , ca fonctionn bien

Pour finir, est - il possible que cette fonction soit déclencher à l'ouverture du fichier sans que l'utilisateur n'est a actionner un bouton de la feuille

Sub auto_open() :?:

Je suis obligé de mettre ma feuille de données dans un classeur different de celui qui contient le croisé dynamique :

Code:

---

1 2 3

nbLignes = ActiveWorkbook.Worksheets("Feuil1").Cells(32000, 8).End(xlUp).Row

---

Faut il que j'active le classeur qui contient les donnees :

Code:

---

1 2	Workbooks.Open "chemin_nom_classeur.xls"

---

[/quote]

Prob : la variable n'est pas transmise

Code:

---

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

Sub auto_open()   ' Macro4 Macro ' Macro enregistrée le 04/01/2006 par Herrbrecht Dim DerniereLigne As Long Workbooks.Open "C:\TestXLS\data.xls" DerniereLigne = ActiveWorkbook.Worksheets("Feuil1").Cells(32000, 8).End(xlUp).Row MsgBox (DerniereLigne) 'ICI Le msgBox apparait DerniereLigne = DerniereLigne - 1 'Workbooks.Close Workbooks.Open "C:\TestXLS\tab.xls" MsgBox (DerniereLigne)'ICI Le msgBox n'apparait pas, et la valeur DerniereLigne n'est pas prise en comtpe ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _ "'\TestXLS\[data.xls]Feuil1'!R1C1:R" & DerniereLigne & "C8", TableDestination _ :="R1C1:R5C1", TableName:="Tableau croisé dynamique2" End Sub

---

[/code]