bonjour à tous,

J'ai besoin de votre aide de spécialiste.En effet, j'ai un problème : j'ai crée une macro avec l'enregistreur de macro d'excel pour générer un tableau croisé dynamique. Le TCD se crée parfaitement lors de l'enregistrement mais lorsque je lance la macro enregistrée, une erreur d'exécution de type 5 apparait "Argument ou appel de procédure incorrect"

voici le code généré par excel:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub créationTCD()
'
' créationTCD Macro
'
 
'
    Sheets("Historique pannes entre 2 dates").Select
    Rows("4:38").Select
    Range("C4").Activate
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Historique pannes entre 2 dates!L4C1:L38C11", Version:=xlPivotTableVersion10 _
        ).CreatePivotTable TableDestination:="TCD entre 2 dates!L8C1", TableName:= _
        "Tableau croisé dynamique12", DefaultVersion:=xlPivotTableVersion10
    Sheets("TCD entre 2 dates").Select
    Cells(8, 1).Select
    With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields( _
        "Technicien1")
        .Orientation = xlRowField
        .position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields( _
        "Ligne de production")
        .Orientation = xlRowField
        .position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields( _
        "Type d'intervention")
        .Orientation = xlRowField
        .position = 3
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique12").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique12").PivotFields("Technicien1"), _
        "Nombre de Technicien1", xlCount
End Sub
Lorsque je lance le debugeur les lignes qui apparaissent en jaune sont :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Historique pannes entre 2 dates!L4C1:L38C11", Version:=xlPivotTableVersion10 _
        ).CreatePivotTable TableDestination:="TCD entre 2 dates!L8C1", TableName:= _
        "Tableau croisé dynamique12", DefaultVersion:=xlPivotTableVersion10
Si quelqu'un peut m'aider a trouver une solution à cette erreur, ce serait vraiment génial !!!!

Merci par avance