J
JoE.
Guest
Bonjour, j'aiu besoin d'automatiser par une macro un tableau croisé dynamique qui est toujours le même sur une dizaine de fichiers.
J'ai un pb car qd j'enrigistre la macro avec les opérations à faire dans le fichier A pour la reéxecuter après sur un autre fichier B, eh bien le nom du fichier A qui est apparu dans le prgm de la macro qd je l'ai enregistré empêche que la macro enregfistré ne n'exécute correctement.
Pourriez vous me dire comment faire en sorte de supprimer cette référence.
Je souhiate pouvoir sélectionner manuellement les plages de cellulle sur lesquelles effectuer le tableau croisé et effectuer celui-ci par simple lancement de la macro.
Merci d'avance de votre aide.
Je vous envoie le prgm fait par l'enregistreur de macro, ce qui pose pb, je pense c'est le fait que le nom du fichier apparaisse dans....
SourceType:=xlDatabase, SourceData:= _
"'BTP-Pcrédit'!C1:C11")
Après, je en peux plus utiliser cette macro dans un fichier BTP-Pactions. Xls par exemple....
Sub triinvfifo()
'
' triinvfifo Macro
' Macro enregistrée le 14/02/2005 par PB14052
'
'
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'BTP-Pcrédit'!C1:C11").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _
Array("act_lib_long", "Données")
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"st_mnt_tot_dev_ref_cp_exclu")
.Orientation = xlDataField
.Caption = "Somme de st_mnt_tot_dev_ref_cp_exclu"
.Position = 1
.Function = xlSum
.NumberFormat = "# ##0"
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"tr_qte_result")
.Orientation = xlDataField
.Caption = "Somme de tr_qte_result"
.Position = 2
.Function = xlSum
.NumberFormat = "# ##0"
End With
J'ai un pb car qd j'enrigistre la macro avec les opérations à faire dans le fichier A pour la reéxecuter après sur un autre fichier B, eh bien le nom du fichier A qui est apparu dans le prgm de la macro qd je l'ai enregistré empêche que la macro enregfistré ne n'exécute correctement.
Pourriez vous me dire comment faire en sorte de supprimer cette référence.
Je souhiate pouvoir sélectionner manuellement les plages de cellulle sur lesquelles effectuer le tableau croisé et effectuer celui-ci par simple lancement de la macro.
Merci d'avance de votre aide.
Je vous envoie le prgm fait par l'enregistreur de macro, ce qui pose pb, je pense c'est le fait que le nom du fichier apparaisse dans....
SourceType:=xlDatabase, SourceData:= _
"'BTP-Pcrédit'!C1:C11")
Après, je en peux plus utiliser cette macro dans un fichier BTP-Pactions. Xls par exemple....
Sub triinvfifo()
'
' triinvfifo Macro
' Macro enregistrée le 14/02/2005 par PB14052
'
'
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'BTP-Pcrédit'!C1:C11").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddFields RowFields:= _
Array("act_lib_long", "Données")
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"st_mnt_tot_dev_ref_cp_exclu")
.Orientation = xlDataField
.Caption = "Somme de st_mnt_tot_dev_ref_cp_exclu"
.Position = 1
.Function = xlSum
.NumberFormat = "# ##0"
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"tr_qte_result")
.Orientation = xlDataField
.Caption = "Somme de tr_qte_result"
.Position = 2
.Function = xlSum
.NumberFormat = "# ##0"
End With
