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