Tableau Croisé Dynamique via un code VBA

[Lighter]

Bonjour à tou(te)s
A travers un code VBA, j'ai écris une application qui me donnait automatiquement un tableau croisé dynamique classé par semaine sachant que le fichier d'origine pouvait contenir un nombre variable d'éléments.
Mais voilà, çà ne marche plus... et je n'arrive pas à comprendre pourquoi l'application se plante à la ligne 22.
Un grand merci à vous de m'apporter l'explication à ce blocage.

(cf: Fichier Excel en attachement)

 

[Odesta]

Re : Tableau Croisé Dynamique via un code VBA

Bonjour

Sans trouver l'origine du problème, voici l'une des solutions :

  ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="FFourn!R2C1:R" & B & "C9").CreatePivotTable TableDestination:="", TableName:="Tableau croisé dynamique", DefaultVersion:=xlPivotTableVersion10
[code]

récriture de la formule attendu par le VBA pour la création de la source : :"FFourn!R2C1:R" & B & "C9"

En espérant avoir répondu correctement

Cdt
Olivier

 

[kjin]

Re : Tableau Croisé Dynamique via un code VBA

Bonjour,
Trop de colonnes (sous 2000), j'ai donc supprimé la colonne "date échéance"

Sub Dynamique_FFourn()
Dim rng As Range, pvt As PivotTable
With Sheets("FFourn")
Set rng = .Range("A2:I" & .Range("B65000").End(xlUp).Row)
End With
With ActiveSheet
    On Error Resume Next
    .PivotTable("Lighter").Delete
    On Error GoTo 0
    Set pvt = .PivotTableWizard(xlDatabase, rng, Range("A3"), "Lighter")
    With pvt
        .AddFields RowFields:=Array("S", "CODE FOURNISSEUR", "NOM", "NUMERO FACTURE")
        .PivotFields("MONTANT").Orientation = xlDataField
        .PivotFields("Somme MONTANT").NumberFormat = "0.00"
    End With
End With
End Sub

 

[Lighter]

Re : Tableau Croisé Dynamique via un code VBA

Merci infiniment pour votre aide.
Cdlt
Lighter

 

[Lighter]

Re : Tableau Croisé Dynamique via un code VBA

Juste un point, il me faut sortir le tableau croisé dynamique sur une autre feuille que FFourn
Que dois-je rajouter !
Merci.

 

[Lighter]

Re : Tableau Croisé Dynamique via un code VBA

Oops, Odesta merci beaucoup çà marche parfaitement.
Mon message précédent concernait la solution de Kjin
Grand merci à vous deux