problème excel 2007 macro tableau dynamique

[perline14c]

Bonjour,
Je débute dans la création de macro et je voulais crée un tableau dynamique or quand je lance la macro elle bloque. J' ai remplacé les l par des r mais ca bloque toujours. Pouvez vous me dire d'ou viens mon problème?

Sub Macro9()
'
' Macro9 Macro
'

'
Sheets("Feuil3").Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.FormulaR1C1 = "549874"
Range("A2").Select
ActiveCell.FormulaR1C1 = "ljkfpqf"
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"boucle!R1C1:R500C10 ", Version:=xlPivotTableVersion12).CreatePivotTable
TableDestination:="Feuil3!R1C1", TableName:="Tableau croisé dynamique5", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil3").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("societe" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("VILLE")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Tableau croisé dynamique5").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique5").PivotFields("departement"), _
"Nombre de departement", xlCount
Range("D10").Select
End Sub



Merci

 

[jetted]

Re : problème excel 2007 macro tableau dynamique

Allo
La fonction ActiveWorkbook.PivotCaches.Create est uniquement pour excel 12 (2007), malheureusement je ne peux tester ton code. A prime abord tout semble normal a l'exception de l'espace dans (SourceType:=xlD____ atabase....

Bonne chance...