Bonjour à tous.

Voilà j'ai un problème avec le code ci-dessous...

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
Dim tcd As String
tcd = "Tableau températures"
 
Range("A2").Select
    ActiveCell.FormulaR1C1 = "Date"
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Selection).CreatePivotTable TableDestination:= _
        "R3C6", TableName:=tcd, _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTables(tcd).AddFields RowFields:= _
        "Date", ColumnFields:="Température"
    With ActiveSheet.PivotTables(tcd).PivotFields( _
        "Température")
        .Orientation = xlDataField
        .Caption = "Nombre de Température"
        .Function = xlCount
    End With
Lorsque j'active ma macro, elle s'arrête sur ce code et affiche le message d'erreur suivant:
"Argument ou appel de procédure incorrect."

Et le plus intriguant c'est lorsque j'appuie sur continuer, la macro continue comme si de rien n'était!

Pouvez vous m'éclaircir sur ce problème svp.