Discussion :

[totoche]

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

[totoche]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Megaxel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ca devrait t'aider, non?

[totoche]

Merci
j'avais trouvé ça

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Megaxel]

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)

[totoche]

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

[Megaxel]

Heuuu... Comme ça?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[totoche]

Merci Megaxel, , 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

[totoche]

Sub auto_open() :

[totoche]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Workbooks.Open "chemin_nom_classeur.xls"

[/quote]

[totoche]

Prob : la variable n'est pas transmise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]