Marco:creer une nouvelle feuille Excel pour y inserer un TCD
salutation
je m'excuse du dérangement car je suis bloqué depuis un moment
j'ai créé une macro excel " Basique " afin de faire automatiquement un TCD mais ça me retourne une erreur
çi joint le code :
Sub Macro1()
'
' Macro1 Macro
'
'
Range("E215").Select
Sheets("T1").Select
Sheets.Add
[sup]ActiveWorkbook.Worksheets("Feuil3").PivotTables("T1"). _
PivotCache.CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
Sheets("Feuil1").Select
Cells(3, 1).Select
Range("B5").Select
ActiveSheet.PivotTables("T1").Name = "Tab"
ActiveSheet.PivotTables("Tab").AddDataField ActiveSheet.PivotTables("Tab"). _
PivotFields("Quantite non conforme:"), "Somme de Quantite non conforme:", xlSum
With ActiveSheet.PivotTables("Tab").PivotFields("Date :")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tab").PivotFields("Projet :")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tab").PivotFields("Date :")
.Orientation = xlColumnField
.Position = 1
End With
Range("H3").Select
End Sub
(en gras => erreur )
merci de votre aide
maintenant l'erreur est devenue => Argument ou appel de procedure incorrect :/ ?
Sub Macro2()
'
' Macro2 Macro
'
'
Sheets.Add
[b]ActiveWorkbook.Worksheets("Feuil3").PivotTables("Tableau croisé dynamique4"). _
PivotCache.CreatePivotTable TableDestination:="Feuil5!R3C1", TableName:= _
"Tableau croisé dynamique2", DefaultVersion:=xlPivotTableVersion10[/b]
Sheets("Feuil5").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("Quantite non conforme:") _
, "Somme de Quantite non conforme:", xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"Projet :")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date :")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Date :")
.Orientation = xlColumnField
.Position = 1
End With
ActiveCell.Offset(0, 7).Range("A1").Select
End Sub
je m'excuse j'ai compris le probleme (je debute encore en excel ^^' )
comment je fait pour que la macro crée une nouvelle feuille pour y inserer le TCD
merci
Hum, bonjour
il y a bien quelques pistes ICI
euh je m'excuse Mr mais je voulais juste demander quoi ajouter pour que la marco arrete de me retourner une erreur quand je sélectionne feuil1
(la macro ne s’exécute que quand je sélectionne feuil 1 :/ )
sheets(1).activate permet d'activer la feuille en première position
sheets("1").activate permet d’activer la feuille appelée 1