[VBA] Changer les données sources d'un tableau croisé dynamique

[matthieu2]

Bonjour,

Dans un fichier Excel j'ai 5 onglets qui contiennent 1 pivot table (tableau croisé dynamique) chacun.

Chaque pivot table va chercher les données dans un autre fichier.

Mes pivot table doivent être misent à jour tous les mois. Le problème c'est que tous les mois, le fichier source change de nom (exemple pour décembre 2015: "Act vs forecast 12 2015.xlsx".

Ainsi, avec une UserForm l'utilisateur va entrer le mois et l'année et le programme faire le reste.

Je ne connais absolument pas la ligne de code permettant de changer la table source de la pivot... J'ai bien essayer de trouver des truc comme:

ActiveSheet.PivotTables("Tableau croisé dynamique13").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data", Version:=xlPivotTableVersion12)

Mais le chemin d'accès ainsi que l'onglet sont renseignés dans la variable "Data" de SourceData:="Data"?

Quelqu'un sait-il comment faire?
-----

[andre_teprom]

Voulez-vous dire que seul le nom de fichier change, mais pas le contenu?
Par ailleurs, pour recalculer la table de pivot, il suffit d'utiliser la méthode ManualUpdate

[matthieu2]

Bonjour,

Voulez-vous dire que seul le nom de fichier change, mais pas le contenu?

Alors le nom du fichier change. Le nom de l'onglet reste le même. Les données sur l'onglet changent mais le "Range" reste le même.

Par ailleurs, pour recalculer la table de pivot, il suffit d'utiliser la méthode ManualUpdate

Je ne connais pas cette syntaxe (du tout). Il ne s'agit pas seulement de faire un Refresh mais bien de changer dans la source de la pivot.

Voici la data source actuelle d'une de mes pivot:
'G:\PLANNING\Actual vs forecast\2015\[Act vs forecast 12 2015.xlsx]sap data prod'!$A:$V

Ce qui change la dedans c'est ce qui est en rouge
'G:\PLANNING\Actual vs forecast\2015\[Act vs forecast 12 2015.xlsx]sap data prod'!$A:$V

Voici le code que j'ai commencé à réaliser:

Private Sub CommandButton1_Click()
    Dim Mois As Integer
    Dim Année As Integer
    'Dim Adresse As String
    'Dim Fichier As String
    'Dim Chemin As String
    'Dim Plage As Range
    Dim Source As String
    
    If TextBox1.Value = "" Then
        MsgBox ("Tu as oublié de renseigner le numéro de mois !")
        TextBox1.SetFocus
        Exit Sub
    Else
        Mois = TextBox1.Value
    End If
        
    If TextBox2.Value = "" Then
        MsgBox ("Tu as oublié de renseigner l'année !")
        TextBox2.SetFocus
        Exit Sub
    Else
        Année = TextBox2.Value
    End If
    
    'Adresse = "G:\PLANNING\Actual vs forecast\" & Année
    'Fichier = "Act vs forecast " & Mois & " " & Année & ".xlsx"
    'Plage = "$A:$V"
    Source = "G:\PLANNING\Actual vs forecast\" & Année & "\[Act vs forecast " & Mois & " " & Année & ".xlsx]sap data prod'!$A:$V"
    
    Sheets("Suivi Herbicides").Select
    ActiveSheet.PivotTables("PivotTable1").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Source)
    
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

J'ai un bug sur la partie:

ActiveSheet.PivotTables("PivotTable1").ChangePivotCache _
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Source)

Message d'erreur:
Run-time error '-2147024809 (80070057)':
Cannot open PivotTable source file 'G:\PLANNING\Actual vs forecast\2015\[Act vs forecast 11 2015.xlsx]sap data prod"

[cherbe]

Bonjour
Tu es sûr que les crochets ( [] ) qui entourent le nom du fichier sont nécessaires ?

[A voir en vidéo sur Futura]

[matthieu2]

Bonjour Cherbe,

Tu es sûr que les crochets ( [] ) qui entourent le nom du fichier sont nécessaires ?

Non à vrai dire j'en sais rien mais lorsque je fais le changement manuellement: click sur la pivot => Options (PivotTable Tools) => Change Data Source. C'est avec cette syntaxe qu'Excel le note. J'applique donc la même syntaxe

[cherbe]

Message d'erreur:
Run-time error '-2147024809 (80070057)':
Cannot open PivotTable source file 'G:\PLANNING\Actual vs forecast\2015\[Act vs forecast 11 2015.xlsx]sap data prod"

Les chemin, nom de fichier et nom d'onglet notés dans ce message d'erreur sont-ils rigoureusement exacts ?
correspondent-ils bien à la réalité ?

[matthieu2]

Re,

Les chemin, nom de fichier et nom d'onglet notés dans ce message d'erreur sont-ils rigoureusement exacts ?
correspondent-ils bien à la réalité ?

Wep à par que dans le message d'erreur le "Range" n'apparait pas.

Voici le code correspondant au chemin:

Source = "G:\PLANNING\Actual vs forecast\" & Année & "\[Act vs forecast " & Mois & " " & Année & ".xlsx]sap data prod'!$A:$V"

Qui contient également le Range de la table à prendre.

Voici le chemin d'un fichier (exemple pour novembre 2015):
G:\PLANNING\Actual vs forecast\2015\Act vs forecast 11 2015.xlsx

J'ai remplacé le répertoire "2015" par la variable "Année" que l'utilisateur entre et dans le nom du fichier, j'ai remplacé le "11" et "2015" par la variable "Mois" et "Année". J'ai bien fais attention aux espaces.

[matthieu2]

Bonjour,

J'ai trouvé l'erreur. Quand je change manuellement la source, il y a une cote (') au tout début que j'ai oublié dans:

Source = "'G:\PLANNING\Actual vs forecast\" & Année & "\[Act vs forecast " & Mois & " " & Année & ".xlsx]sap data prod'!$A:$V"

Avec la cote cela fonctionne

Merci à tous