Rafraichir des tcd en VBA

[sonskriverez]

Bonjour le forum

J'ai un fichier qui comporte 1 feuille "TCD" qui contient 5 tcd. Toutes les semaines j'importe dans ce fichier via macro 5 feuilles. lorsque je rafraichi mes tcd (ThisWorkbook.RefreshAll) cela ne fonctionne pas car les tcd gardent le chemin du fichier enregistré la semaine dernière sous un nom différent.

Comment faire pour actualiser en VBA les tcd avec les nouvelles feuilles

Merci de votre aide

 

[Akortys]

Re : Rafraichir des tcd en VBA

Bonjour,

Moi perso je rafraichis les TCD un par un avec :

Worksheets("FEUILLE").Activate
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

tu peux faire :
Worksheets("FEUILLE").Activate
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotCache.Refresh
ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotCache.Refresh


essaies tu verras bien

 

[Pierrot93]

Re : Rafraichir des tcd en VBA

Bonjour,

cela ne fonctionne pas car les tcd gardent le chemin du fichier enregistré la semaine dernière sous un nom différent.

d'après ce que je comprends, il ne s'agit pas d'un rafraichissement mais plutôt d'une modification de la source des données.... voir du coté de "SourceData" qui doit être à redéfinir.... enfin si j'ai bien compris...

bon après midi
@+

 

[sonskriverez]

Re : Rafraichir des tcd en VBA

bsr a vous 2

Oui Pierrot tu as raison c'est un changement de source même si les dats sont les mêmes avec plus ou moins de lignes, pour l'instant chaque semaine je suis obligé de redonner la bonne source.

 

[Pierrot93]

Re : Rafraichir des tcd en VBA

Re,

regarde peut être ceci, noms des classseurs et feuilles à adapter, à voir également s'il y a lieu de faire une boucle.... les 2 classeurs sont ouverts...

Dim maplage As Range
Set maplage = Workbooks("classeur1.xls").Sheets("Feuil1").Range("A1").CurrentRegion
Workbooks("classeur2.xls").Sheets("Feuil2").PivotTables(1).SourceData = maplage.AddressLocal(ReferenceStyle:=xlR1C1, external:=True)

 

[sonskriverez]

Re : Rafraichir des tcd en VBA

Encore une fois je me suis me suis mal expliqué.

J'ai pas 2 classeur mais un seul qui contient une feuille TCD, une macro va importer toutes les semaines 5 nouvelles feuilles toujours les mêmes mais avec des lignes en plus ou en moins.

ci-joint un petit exemple, c'est toujours mieux pour comprendre

Merci

 

[Pierrot93]

Re : Rafraichir des tcd en VBA

Re,

supprime les objets "workbooks" alors :

Dim maplage As Range
Set maplage = Sheets("Feuil1").Range("A1").CurrentRegion
Sheets("Feuil2").PivotTables(1).SourceData = maplage.AddressLocal(ReferenceStyle:=xlR1C1, external:=True)

ton classeur xlsx ne prends pas en charge les macros....

 

[JCGL]

Re : Rafraichir des tcd en VBA

Bonjour à tous,
Salut Pierrot,

Si les noms de feuilles sont toujours identiques :

Création de plage nommées
Rafraîchissement des données du TCD à l'activation de la feuille TCD

A+ à tous

 

[Pierrot93]

Re : Rafraichir des tcd en VBA

Re, bonsoir Jean-Claude🙂

Si les noms de feuilles sont toujours identiques :

Création de plage nommées

Aarf Jean-Claude🙂... si importation de nouvelles feuilles, on peut supposer que les anciennes soit supprimée avant et de ce fait la plage nommée ne va plus faire référence à rien, non ?? enfin me semble t il...

une macro va importer toutes les semaines 5 nouvelles feuilles

 

[JCGL]

Re : Rafraichir des tcd en VBA

Bonjour à tous,

Re mon Pierrot,

une macro va importer toutes les semaines 5 nouvelles feuilles toujours les mêmes mais avec des lignes en plus ou en moins.

Toujours les mêmes...
On peut même supposer que les nouvelles données écrasent les anciennes.

A++ mon ami et si je fais fausse route, j'aurais eu le plaisir de te croiser presque IcosaMegaBarbatruc

A+ à tous

 

[Pierrot93]

Re : Rafraichir des tcd en VBA

Re,

Toujours les mêmes...
On peut même supposer que les nouvelles données écrasent les anciennes.

Aarf... oui t'as raison.... on peut le supposer aussi.... attendons le retour de notre ami, une très bonne soirée à toi🙂

 

[Pierrot93]

Re : Rafraichir des tcd en VBA

Re,

allez... au cas où.... 🙂

Option Explicit
Sub test()
Dim maplage As Range, i As Integer
For i = 1 To 5
    Set maplage = Sheets(i + 1).Range("A1").CurrentRegion
    Sheets("Tcd").PivotTables("PivotTable" & i).SourceData = maplage.AddressLocal(ReferenceStyle:=xlR1C1, external:=True)
Next i
End Sub

@+

 

[sonskriverez]

Re : Rafraichir des tcd en VBA

Bonjour JCGL

Pierrot a raison, je ne conserve pas les sheets, au départ il y que 1 feuille "TCD" mais par contre il y aussi plusieurs autres feuilles générées par la macro, et je tire les TCD que de sur des feuilles bien précises.
J'ai fais des essais avec les macros du post, ça ne marche pas.
Je me demande si ce n'est pas plus simple de créer directement les 5 tcd via vba !

 

[Pierrot93]

Re : Rafraichir des tcd en VBA

Bonjour,
Salut Jean-Claude🙂,

J'ai fais des essais avec les macros du post, ça ne marche pas.

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ? attention dans le code que je t'ai proposé, les feuilles doivent être dans le même ordre que dans le fichier fourni...

bonne journée
@+

 

[sonskriverez]

Re : Rafraichir des tcd en VBA

Bjr Pierrot

Effectivement cela fonctionne si je met les sheets à la suite de "TCD", existe-il code VBA pour forcer les feuiiles dans cet ordre ?