Comment supprimer des liaisons excel/powerpoint via une macro? [Fait]

[toma65]

Bonjour,

J'ai une 50aine de liaisons de graphiques excel vers powerpoint et je souhaiterai pouvoir supprimer ces liaisons via une macro.
J'ai essayé via l'enregistreur de macros mais il ne prend pas en compte l'opération.
Si quelqu'un avait la solution par du code vba ça s'rai super.

Merci

Toma

[SilkyRoad]

bonjour

Tu peux tester cette procédure qui supprime les liaisons dans la deuxième diapositive:

Code :

1
2
3
4
5
6
7
Dim Forme As Shape
 
'boucle sur les objets de la deuxieme diapo
For Each Forme In ActivePresentation.Slides(2).Shapes
    If Forme.Type = msoLinkedOLEObject Then _
        Forme.LinkFormat.BreakLink
Next

michel

[toma65]

Bonjour,

J'ai essayé ton code mais il ne reconnait pas l'expression breaklink

[SilkyRoad]

bonjour

quelle est ta version de PowerPoint?


michel

[toma65]

Je suis sur Powerpoint 2003

[annedeblois]

Quel est le message d'erreur, au juste?

[toma65]

Bonjour,

Il met débogage et il surligne Breaklink

[annedeblois]

Envoyé par toma65

Bonjour,

Il met débogage et il surligne Breaklink

Merci.

Curieux, ça, je ne trouve rien sur cette commande dans PPT 2003. J'ai comme l'impression que ce n'est pas pris en charge par cette version, ou qu'il y a un équivalent qui m'échappe.

EDIT - Au pis aller, j'ai trouvé du code pour faire passer la mise à jour des liaisons à manuel en VBA:

Code :

forme.LinkFormat.AutoUpdate = ppUpdateOptionManual

plutôt que le breaklink.

[toma65]

Ouai j'ai regardé, il ne la reconnait pas
Y'a pas un autre code qui existe?
De mon coté j'ai cherché sur le web, j'ai rien trouvé

[annedeblois]

j'ai édité mon dernier message en ajoutant une ligne de code. Qu'est-ce que ça te dit?

[toma65]

J'ai testé avec ta modif, ca marche.
-->Ca passe en manuel.
C'est pas optimal puisque ca supprime pas les liens mais ca marche, c'est l'essentiel.

Je te remercie beaucoup

[annedeblois]

Tout le plaisir est pour moi

[toma65]

Par contre désolé j'ai encore un petit soucis
je ne sais pas comment faire pour que l'update manuel s'applique à toutes les diapos et non pas a une diapo en particulier
j'ai essayé:

Code :

1
2
3
4
5
6
7
Sub Liaisons()
    For Each Forme In Presentations
        If Forme.Type = msoLinkedOLEObject Then
        Forme.LinkFormat.AutoUpdate = ppUpdateOptionManual
        End If
    Next
End Sub

mais ca ne marche pas malheureusement

[annedeblois]

Mea culpa, j'aurais dû te copier le code au complet. J'ai trouvé

Code :

1
2
3
4
5
6
7
8
9
For Each sld In ActivePresentation.Slides
    For Each sh In sld.Shapes
        If sh.Type = msoLinkedOLEObject Then
            If sh.OLEFormat.ProgID = "Excel.Sheet" Then
                sh.LinkFormat.AutoUpdate = ppUpdateOptionManual
            End If
        End If
    Next
Next

Est-ce que ça fonctionnera comme ça?

[toma65]

Est-ce que tu pourrais me donner les variables aussi (sh et sld)
mais je ne pense pas que ca vienne de ca

c'est ma premiere ligne qui doit etre fausse:

Code :

For Each Forme In ActivePresentation.Slides

[annedeblois]

Envoyé par toma65

Est-ce que tu pourrais me donner les variables aussi (sh et sld)
mais je ne pense pas que ca vienne de ca

c'est ma premiere ligne qui doit etre fausse:

Code :

For Each Forme In ActivePresentation.Slides

sh effectivement devient Forme dans ton code, seulement pour le sld, l'exemple ne dit pas si c'est un entier incrémenté ou une variable créée pour les diapositives et pour ça j'sais pas

[toma65]

C'est bon, ca marche nickel, ca met à jour tous les slides
voila le code:

Code :

1
2
3
4
5
6
7
8
9
Sub Liaisons()
    For Each sld In ActivePresentation.Slides
        For Each Forme In sld.Shapes
            If Forme.Type = msoLinkedOLEObject Then
            Forme.LinkFormat.AutoUpdate = ppUpdateOptionManual
            End If
        Next
    Next
End Sub

Je te remercie encore une fois pour ton aide.

[annedeblois]

Tout le plaisir est our moi

[toma65]

Bonjour,

J'ai encore un soucis avec ces liaisons
Maintenant quand je fais tourner mon code au complet, il m'execute bien mon programme mais j'ai mis du code pour fermer excel et le probleme c'est que cette boucle me relance le message voulez vous activer les macros je clique pour dire oui mais il me le relance encore et encore
Alors la question que je me pose, y'aurait-il un moyende stopper définitivement la boucle apres qu'elle ai fait son travail.
Je me suis réateler à l'instruction breaklink, mais je n'ai vu d'exemple que pour stopper des liaisons excel et pas des objets avec liaisons comme dans ce cas.