Bonjour,

Je débute sur VBA et je rencontre un problème avec le code suivant:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Developpement()
Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data!R1C1:R461C11", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Feuil7!R3C1", TableName:="Tableau croisé dynamique6", _
        DefaultVersion:=xlPivotTableVersion10
    Sheets("Feuil7").Select
    Cells(3, 1).Select
    
    With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Qualification")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Motif")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Affecté à")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Services")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Nom commercial")
        .Orientation = xlRowField
        .Position = 3
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique6").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique6").PivotFields("CA"), "Somme de CA", _
        xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Qualification").ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields( _
        "Qualification").CurrentPage = "Développement "
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Motif"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Motif"). _
        CurrentPage = "Commercial "
    Sheets("Feuil7").Select
    Sheets("Feuil7").Name = "TCD Développement"
    Range("E31").Select
End Sub
J'ai créé ce code via l'enregistrement de macros sur Excel, il fonctionnait au départ mais plus maintenant. Autre chose, la feuille contenant mes données est variable chaque mois, je cherche un code qui tiendrais compte de cela.

D'avance merci.