Modifier la source des liaisons entre PPT et Excel

Bonjour,

Lorsque j'envoie, sur un autre ordinateur, groupés dans un même dossier les deux documents :

• PPT
• Classeur Excel source

Je dois, une fois sur l'autre ordinateur, préciser à nouveau dans le PPT , le cheminement jusqu'au classeur Excel source afin que mes liaisons demeurent fonctionnelles.

Pour cela, je procède ainsi :

Fichier > Informations > Modifier les liens d'accès au fichier

Manuellement, je redéfinis pour tous les éléments Excel insérés dans le PPT avec liaisons, le nouveau cheminement. Ce qui demeure fastidieux lorsqu'on a une cinquantaine d'éléments excel.

Connaîtriez vous une autre méthode plus rapide et moins fastidieuse?

je vous en remercie

Zazoo

Bonjour,

Tu n'as pas incorporé tes classeurs Excel au document ?

Comment à tu fais tes liaisons ? Ce sont des liens hypertextes ?

Je ne suis pas un spécialiste de Powerpoint et ne vois pas ce que tu as fais. Si tu me mets un exemple (même bidon), je vais regarder et essayer de te faire une macro VBA pour rétablir tes liaisons.

A+

Benead

Zazoo,

Je n'ai pas le problème quand je déplace le répertoire contenant les deux fichiers (pptx et xlsx), la liaison ne rompt pas.. J'ai regardé du coté des options de Powerpoint, mais je n'ai rien trouvé.

Tu peux essayer de rétablir les liaisons en mettant le code suivant dans un module standard, la seule contrainte est que les fichiers liés, Excel, Word... soient dans le même répertoire que le fichier Powerpoint :

Sub ChgLiaisonOle()
   Dim Slde As Slide, Shpe As Shape, lNucar As Long, sNewFile As String, sFichierOLE As String
   For Each Slde In ActivePresentation.Slides
      For Each Shpe In Slde.Shapes
         If Shpe.Type = msoLinkedOLEObject Then
            sFichierOLE = Mid(Shpe.LinkFormat.SourceFullName, InStrRev(Shpe.LinkFormat.SourceFullName, "\"))
            sNewFile = ActivePresentation.Path & sFichierOLE
            Shpe.LinkFormat.SourceFullName = sNewFile
         End If
      Next Shpe
   Next Slde
End Sub

A+

Benead