Excel - Power Point

[Yann]

Salut à tous,

J'ai besoin de l'aide des plus expérimenter d'entre vous.
On m'a lancé le défis d'interagir sur un fichier powerpoint à partir
d'excel.
Voila l'histoire :
J'ai un fichier PPT (power point) "PPT1" avec une centaine de graphs liés à
un fichier Excel "Excel 1".
Je dois fabriquer un double de ce fichier avec des nouvelles données.
Je me crée un double du fichier Excel : "Excel 2" et un double du fichier
powerpoint : "PPT2".
Ce con de PP ne met pas les liens avec le nouveau fichier "Excel 2", il
garde les liaisons avec "Excel 1".

Après moulte recherche j'ai trouvé comment interagir avec PP pour ouvrir le
fichier et activer chaque graphs.
Pour ceux que ça interesse voila les codes :

Sub chart_PP()

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Set PPApp = CreateObject("Powerpoint.Application")
With PPApp
.Visible = True
.Activate
End With
'Dans cette partie, on active PP (attention pour excuter cette macros, il
faut que vous ayez activer les référence OUTIL/REFERENCE de PP)

chemin = "c:\test" 'ton chemin
fic = "fic.ppt" 'ton fichier PP à ouvrir


PPApp.Presentations.Open Filename:=chemin & fic
Set PPPres = PPApp.Presentations.Item(1) 'on utilise cette varaible pour
appeller le fichier Power Point

'la boucle qui active chaque slide
For sld = 1 To PPPres.Slides.Count
PPPres.Slides(sld).Select
For Each sh In PPPres.Slides(sld).Shapes
sh.Select
If sh.Type = 7 Then 'c'est un objet graphique

sh.OLEFormat.DoVerb 'active le graph : on voit la série de
données
PPPres.Slides(sld).Select ' je reselectionne le slide pour
fermer le graph

End If
Next
Next


End Sub

Voila, mais là j'ai un pb : impossible de trouver l'odre pour changer le
lien sur le graph !!!!!!!!!!!!!!!!!!

HELP ME PLEASE !!!!!!!!!!!!

Yann

 

[jon]

bonjour

je ne suis pas sûr, vérifie si dans le menu edition, tu trouves une commande "liaisons", si oui lance là, tu dois trouver un bouton modifier sources.


bye
step
<http://xlbysteph.free.fr/aideinformatique/actionliaison.htm>

 

[Yann]

Oui, dans powerpoint dans Edition/liaisons je peux modifier la source ou même rompre le liens. Le pb c'est que je dois automatiser le changement de liaison et je ne trouve pas le code VB à insérer dans ma macro (voir question) pour le faire automatiquement. J'ai plus de 100 slides avec 4 graphs par slide, tu vois le boulot...

Merci,

Yann