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

 

[Pierrot93]

Re : Rafraichir des tcd en VBA

Re,

on peut le faire avec un "array", supposant que le nom des feuilles soit fixe....

Option Explicit
Sub test()
Dim maplage As Range, i As Integer, t() As Variant
t = Array("Nom", "Age", "Genre", "Ville", "Habitation")
For i = 1 To 5
    Set maplage = Sheets(t(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

Cela fonctionne super bien, merci Pierrot, Jean-Claude et aux autres qui ont essayé de résoudre mon problème.