Discussion :

[Solown]

Bonjour,

Je suis actuellement en train de développer un programme qui récupère des données et les range dans un onglet "bdd". Ensuite dans un autre onglet, j'ai un tableau dynamique(crée via l'assistant et non en vba) qui se source sur cet onglet "bdd" et qui trie les informations en fonction de différents critères.

À la fin de mon programme j'enregistre sous un autre nom ce fichier et le sauvegarde dans un répertoire différent.

Le seul soucis c'est que mon tableau dynamique vient ce sourcer sur les données du fichier d'origines(celui sur lequel je lance macro) et non sur le nouveau fichier générés.
J'ai lu cette article mais le "trick" ne marche pas... : https://stackoverflow.com/questions/...e-old-workbook

Est-ce qu'il existe un paramètre en vba lors de la sauvegarde ou de la copie des onglets qui me permettrait d'éviter ce problème de source de données ?

Dans l'attente de vous lire,
Solown.

[parmi]

Bonjour,

Possible que la source du TCD, dans ton code, contient tout le chemin du fichier.
Si c'est le cas, laisse seulement le nom de la feuille source et sa plage.

Autrement, une fois la copie du fichier faite, tu vas dans l'onglet Donées, puis Modifier les liens, puis tu cliques Rompre la liaison.

[Solown]

Bonjour parmi et merci de ta réponse

Actuellement mon TCD est présent sur un fichier "matrice" qui sert de modèle pour ranger les données(données qui changent chaque jour et qui rend l'utilisation de la macro quotidienne).

À la fin de cette macro codé en vba, je découpe les onglets de ce fichier matrice pour les coller dans un nouveau workbook comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wbContrat.Worksheets(Array("Prev_Agents", "Prod", "Invision")).Copy wbRegion.Sheets(1)

J'ai bien pensé à le supprimer manuellement mais :
1. Cette macro est destiné à des personnes très loin du monde de l'informatique, je doute que le fait de devoir supprimer les liens manuellement chaque jour soit très pratique
2. Sur le fichier contenant le TDC, le bouton modifier les liens est grisé



Le seul endroit ou je peux avoir un impact sur la source des données est dans l'onglet Analyse(générée par la présence du TDC)> Changer la source des données > Tableau/Plage qui pointent vers le fichier matrice.

J'ai bien essayer d'appliquer cette méthode mais en vain :
http://excel-malin.com/codes-sources...iaisons-excel/

Je n'arrive pas à le faire en vba

[vincent_merle]

Bonsoir, ceci à adapter (provient de l'enregistreur) pour changer la source du TCD sur le nouveau workbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Source = "repertoire\[nomFichier.xlsm]onglet!C1:C2"
wsNew.PivotTables("NomTcd").ChangePivotCache _
wbNew.PivotCaches.Create(xlDatabase, Source, Version:=6)

A+

[eriiic]

Bonjour,

et si tu enregistres avant d'établir la source du TCD ?
eric

[Solown]

Merci vincent_merle pour ta réponse, néanmoins, vu que je le TCD n'est pas généré avec le code mais crée avec l'assistant dans le fichier matrice, je ne sais pas si je pourrais changer la source du nouveau tableau en vba. Je ne suis pas au travail avant lundi mais j'espère que ta solution marchera.

[vincent_merle]

Bonjour, oui ça devrait fonctionner.
Dans ta procédure VBA, Il faut enregistrer le nouveau classeur qui est généré au préalable afin qu'il ait un chemin d'accès et le référencer (dans mon exemple j'ai nommé ce nouveau classeur "wbNew") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub changeSource()
 
Dim wbNew As Workbook
Dim wsNewTcd, wsNewSource As Worksheet
 
Set wbNew = ???????? 'wbNew : référence au classeur qui est crée
Set wsNewTcd = wbNew.Worksheets("tcd")
Set wsNewSource = wbNew.Worksheets("sourceTcd")
 
Source = wbNew.Path & "\[" & wbNew.Name & "]" & wsNewSource.Name & "!C1:C2" 'notation R1C1 : C1 correspond à colonne 1 et C2 à colonne 2
wsNewTcd.PivotTables("NomTcd").ChangePivotCache _
wbNew.PivotCaches.Create(xlDatabase, Source)
 
End Sub

[Solown]

Bonjour vicnent_merle.

Je viens de tester ce matin, ça marche parfaitement.

Bravo à toi et merci pour l'extrait de code et les explications, c'était super clair et ça fonctionne.

Sujet résolue.