Code Excel
Bonjour les amis,
une autre fois avec mes codes
est ce que vous pouvez m'aider a comprendre ce code svp c tres urgent
merciiiiiiiiiiiiiii
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DW_STD_IM41!R1C1:R40000C50").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").DisplayNullString = False
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache. _
RefreshOnFileOpen = True
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
"Group Assigned To", ColumnFields:="Company"
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Incidents"). _
Orientation = xlDataField
ActiveWorkbook.ShowPivotTableFieldList = True
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "Open"
Range("B2").Select
Range("A3").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache. _
RefreshOnFileOpen = False
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
merci d'avance
a bientot
Bonjour nana85
Cette macro a été enregistrée a partir de Excel
Lorsqu’il y a des mots inconnus, place ton curseur dessus et fait F1
Pour mon compte c’est comme cela que j’ai appris le VBA
Enfin rapidement, ce que j’en comprend !
ORIGINE DES DONNEES
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DW_STD_IM41!R1C1:R40000C50").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10
DESTINATION POUR CREER LE TXD (feuille en cours)
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
SELECTION CELLULE DE DESTINATION
ActiveSheet.Cells(3, 1).Select
ECRITURE DU TCD
CACHER LES VALEUR ZERO
ActiveSheet.PivotTables("Tableau croisé dynamique1").DisplayNullString = False
RAFRAICHIER LES DONNES AVEC L’ORIGINE
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache. _
RefreshOnFileOpen = True
AJOUT DES CHAMPS ET GROUPEMENT
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
"Group Assigned To", ColumnFields:="Company"
ORIENTATION
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Incidents"). _
Orientation = xlDataField
AFFICHAGE DES DONNEES
ActiveWorkbook.ShowPivotTableFieldList = True
SELECTION FEUIL2
Sheets("Feuil2").Select
APPELLATION FEUIL2 EN « Open »
Sheets("Feuil2").Name = "Open"
SELECTION CELLULE EN B2
Range("B2").Select
SELECTION CELLULE EN A3
Range("A3").Select
MISE A JOUR SUR OUVERTURE
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache. _
RefreshOnFileOpen = False
AFFICHAGE DES DONNEES
ActiveWorkbook.ShowPivotTableFieldList = False
ON CACHE LA COMMANDE DE MENU TCD
Application.CommandBars("PivotTable").Visible = False
Cordialement
Alain
merci bcp alain
mais pour faire lectape qui remplace les vides par des zeros, comment je peux le faire
merci davance
merci
je viens de trouver la solution
merciiiiiiii
re,
C'est très bien Nana85, parfait bien content d'avoir rendu service
DisplayNullString = False ,juste la valeur false à true non ?
Cordialement
Alain
non je l'ai fait manuellement
tres simple j'ai fait un clique droit sur le tableau --->options du tableau et apres j'ai coché l'option "cellule vides afficher" et su la case a cote j'ai tapé 0.
merci
a+