Liaison POWERPOINT Excel

Question

Bonjour, je dispose d'un pwpt avec des graphiques pointant vers un classeur excel.

Je souhaiterais faire une modification des liens via un code macro dans pwpt.

J'utilise ce code, trouvé sur internet :

Sub liens()
Dim ancien_chemin As String
Dim nouveau_chemin As String

'Saisissez ici le chemin et le nom de l'ancien et du nouveau fichier
ancien_chemin = "C:\Documents\...\fichier1.xlsx"
nouveau_chemin = "C:\Documents\...\fichier2.xlsx"

For Each diapo In ActivePresentation.Slides
    For Each objet In diapo.Shapes
        If objet.Type = msoLinkedOLEObject Then
            If objet.OLEFormat.ProgID = "Excel.Sheet.12" Then
                With objet.LinkFormat
                .SourceFullName = Replace(LCase(objet.LinkFormat.SourceFullName), LCase(ancien_chemin), nouveau_chemin)
                .AutoUpdate = ppUpdateOptionAutomatic
                End With
            End If
        End If
    Next
Next
End Sub

J'ai une erreur d'exécution pour la mise à jour de la .sourcefullname, qui ressort en échec.

J'ai beau cherché, je ne trouve pas la solution.

Quelqu'un a -t-il une idée?????

Je bloque depuis plusieurs jours et ai désespérément besoin d'aide

Merci d'avance

thev · Answer

A mon avis, c'est mission impossible. La propriété "SourceFullName" n'est pas disponible pour le type de lien que vous avez créé. Vous avez certainement fait un copié des graphiques Excel puis un collage avec liaison sur vos diapos. Ce type de liaison n'est pas a priori modifiable. Avec VBA, vous pouvez 1- rompre la liaison 2- obtenir le nom complet du classeur auquel votre graphique est lié mais pas le modifier 3- supprimer les graphiques de vos diapos et les recoller avec liaison à partir du nouveau classeur...