Discussion :

[ChChatou]

Bonjour,
j'ai une "erreur d'exécution '13', Incompatibilité de type" lors de la création d'un tableau croisé dynamique. Le debug ne m'aide pas beaucoup.

Voici le code, que j'ai écrit sur base d'infos du forum:

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
Public Sub AjoutTCD(FileSVxl As String, NameFeuille As String, NbLignes As Long)
     Dim NomTCD As String
 
     Windows(FileSVxl).Activate
     NomTCD = "TCD_PlanProto"
 
     Sheets(NameFeuille).Select
 
     Dim PlageTCD As Range: Set PlageTCD = ActiveWorkbook.Worksheets(NameFeuille).Range("A1:AF" & NbLignes)
     Dim tcd As PivotCaches: Set tcd = ActiveWorkbook.PivotCaches
 
    Sheets.Add before:=Worksheets(1)
 
    tcd.Create(SourceType:=xlDatabase, SourceData:=PlageTCD, Version:=xlPivotTableVersion10). _
        CreatePivotTable Tabledestination:=Worksheets(1).Range("A3"), TableName:="Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Programme")
        .Orientation = xlPageField
        .Position = 1
    End With

L'erreur se produit sur la ligne tcd.create.
Quelqu'un pourrait-il m'indiquer où chercher l'erreur, je ne sais pas quel argument n'est pas bien déclaré.
D'avance merci

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim PlageTCD As String:  PlageTCD = NameFeuille & "!A1:AF" & NbLignes

http://www.developpez.net/forums/d13...e/#post7499314

[ChChatou]

merci pour ton aide.
Malheureusement, j'ai une erreur de compilation sur la déclaration de la plage: il n'accepte pas la concatenation AF & Nblignes.
J'ai essayé avec +, sans succès...
Merci

[ChChatou]

j'ai bien vérifié pour délacrer la plageTCD de type string et pas de type range

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
Public Sub AjoutTCD(FileSVxl As String, NameFeuille As String, NbLignes As Integer)
     Dim NomTCD As String
 
     Windows(FileSVxl).Activate
     NomTCD = "TCD_PlanProto"
 
     Sheets(NameFeuille).Select
 
     Dim PlageTCD As String:  PlageTCD = NameFeuille & "!A1:AF" & NbLignes
     Dim tcd As PivotCaches: Set tcd = ActiveWorkbook.PivotCaches
 
    Sheets.Add before:=Worksheets(1)
 
    tcd.Create(SourceType:=xlDatabase, SourceData:=PlageTCD, Version:=xlPivotTableVersion10). _
        CreatePivotTable Tabledestination:=Worksheets(1).Range("A3"), TableName:="Tableau croisé dynamique3", DefaultVersion:=xlPivotTableVersion10
 
    With ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Programme")
        .Orientation = xlPageField
        .Position = 1
    End With

J'ai maintenant une "ERREUR D'EXECUTION 1004, REFERENCE NON VALIDE, toujours sur la création du TCD.....

[Invité]

tu as regardé le lien que j'ai mis?

http://www.developpez.net/forums/d13...e/#post7499314

[ChChatou]

bonsoir,
j'ai chargé le .zip et j'ai regardé le code qui me semble très complexe.
Je ne vois pas bien comment utiliser ton code pour trouver l'erreur....
J'ai sans doute loupé une étape.
MErci

[Invité]

En realité il est très simple tout est dans le module de class.

Tu trouverras les sub comme tu fait.

Apeès je t'invite à regarder son utilisation modul1
tu verras que c'est simple en plus garace au modul de class tu as la saisie intuitive