Probleme de référence dans un macro

[Xavier]

Bonjour

Comme je ne vois pas comment l'expliquer sans vous montrer le code que j'aimerais utiliser le voici:

Sub pivotchart()

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R426C7").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1"


Or comme je cherche à la procédure,la partie "Sheet1!R1C1:R426C7" me pose un problème pour d'autres fichiers étant donnés qu'ils n'ont pas la meme taille. Actuellement je cherche à remplacer cette partie par la création d'une procédure de selection mais je n'arrive pas y faire référence ...

voilà mon dernier script

Sub pivotchart()
Dim Zone as Range
Set Zone = Application.InputBox("Sélectionnez une zone !", Type:=8)

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= zone).CreatePivotTable TableDestination:="", TableName:= _
"PivotTable1"

Celui-ci est la copilation du premier et de ce second. Le problème est le suivant: Object invoked has disconnected from its clients ... Y a t il moyen de trouver une procédure préalable qui permet la selection des colonnes et lignes et d'y faire référence dans le macro principal ???

Sub BrowseRange()
Dim Zone As Range
Set Zone = Application.InputBox("Sélectionnez une zone !", Type:=8)
MsgBox ("Vous avez sélectionné la zone " & Zone.Address)
End Sub


MERCI bcp

Xa

Mer

 

[michel]

bonsoir Xavier

je ne suis pas sur d'avoir bien compris ce que tu cherches à faire mais tu peux essayer

Sub BrowseRange()
Dim Zone As Range
Dim Feuille As String

Set Zone = Application.InputBox("Sélectionnez une zone !", Type:=8)
Feuille = ActiveSheet.Name

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=Feuille & "!" & Zone.Address). _
CreatePivotTable TableDestination:="", TableName:="PivotTable1"

End Sub


comme je n'y connais pas grand chose en TCD , je ne garantie pas le résultat


bonne soirée
MichelXld

 

[Xavier]

Merci bcp pour les deux réponses ... ca marche maintenant je peux continuer la suite

Xa