corate92
XLDnaute Junior
Bonjour à tous!
J'en appelle à votre aide sur ce qui concerne VBA car là je m'arrache les cheveux de la tête!
J'essaie via une macro de créer automatiquement un Tableau Croisé Dynamique, j'ai donc utilisé l'enregistreur, jusqu'ici pas de soucis.
MAIS (car il faut bien qu'il en est un!) une fenetre s'affiche et m'indique "erreur exécution 1004, erreur définie par application ou par l'objet"
La partie en gras/rouge ci dessous s'affiche en jaune
Code:
Sub bilan_via_TCD()
'
' bilan_via_TCD Macro
' Macro enregistrée le 21/04/2008 par Corate92
'
'
If ActiveSheet.Name = "FEBRUARY" Then
Range("A16:U1000").Select
[B][COLOR="Red"]ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"FEBRUARY!R16C1:R1000C21").CreatePivotTable TableDestination:= _
"'[Projects Status - CRAs- year 2008 EN DEVELOPPEMENT.xls]BILAN_FEV08'!R2C1", _
TableName:="Tableau croisé dynamique3", DefaultVersion:= _
xlPivotTableVersion10[/COLOR][/B] ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWindow.SmallScroll Down:=-21
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("COUNTRY" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("CRA")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields("Center"), _
"Nombre de Center", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields( _
"Number of days of visits current month"), _
"Nombre de Number of days of visits current month", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
ElseIf ActiveSheet.Name = "MARCH" Then
Range("A16:U1000").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"MARCH!R16C1:R1000C21").CreatePivotTable TableDestination:= _
"'[Projects Status - CRAs- year 2008 EN DEVELOPPEMENT.xls]BILAN_MAR08'!R2C1", _
TableName:="Tableau croisé dynamique3", DefaultVersion:= _
xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWindow.SmallScroll Down:=-21
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("COUNTRY" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("CRA")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields("Center"), _
"Nombre de Center", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields( _
"Number of days of visits current month"), _
"Nombre de Number of days of visits current month", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
ElseIf ActiveSheet.Name = "APRIL" Then
Range("A16:U1000").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"APRIL!R16C1:R1000C21").CreatePivotTable TableDestination:= _
"'[Projects Status - CRAs- year 2008 EN DEVELOPPEMENT.xls]BILAN_APR08'!R2C1", _
TableName:="Tableau croisé dynamique3", DefaultVersion:= _
xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWindow.SmallScroll Down:=-21
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("COUNTRY" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("CRA")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields("Center"), _
"Nombre de Center", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields( _
"Number of days of visits current month"), _
"Nombre de Number of days of visits current month", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
ElseIf ActiveSheet.Name = "MAY" Then
Range("A16:U1000").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"MAY!R16C1:R1000C21").CreatePivotTable TableDestination:= _
"'[Projects Status - CRAs- year 2008 EN DEVELOPPEMENT.xls]BILAN_MAY08'!R2C1", _
TableName:="Tableau croisé dynamique3", DefaultVersion:= _
xlPivotTableVersion10
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWindow.SmallScroll Down:=-21
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("COUNTRY" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("CRA")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields("Center"), _
"Nombre de Center", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique3").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique3").PivotFields( _
"Number of days of visits current month"), _
"Nombre de Number of days of visits current month", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
End If
End Sub
aie aie
Voyez vous de quoi il s'agit?
Je vous mets le fichier en PJ en espérant que cela puisse vous aider...
Merci beaucoup si quelqu'un m'aider...
Cora