Probleme de référence dans un macro

  • Initiateur de la discussion Xavier
  • Date de début
X

Xavier

Guest
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
 
M

michel

Guest
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
 

Discussions similaires

Réponses
1
Affichages
496

Statistiques des forums

Discussions
311 729
Messages
2 081 974
Membres
101 854
dernier inscrit
micmag26