Rafraichir des tcd en VBA

sonskriverez · 25 Juillet 2013

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 · 26 Juillet 2013

Re : Rafraichir des tcd en VBA

Re,

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

Code:

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 · 26 Juillet 2013

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.

Rafraichir des tcd en VBA

sonskriverez

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

sonskriverez

XLDnaute Occasionnel

Discussions similaires

Rafraichir des tcd en VBA

sonskriverez

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

sonskriverez

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency