Discussion :

[Carmiel]

Bonjour,
Je voudrais pouvoir modifier dans powerpoint la position d'un tableau lié à Excel ou le nom d'in graphique, sans avoir à faire un copier/coller liaison de nouveau.
2 raisons, j'ai plusieurs ppt à préparer avec des zones/graphiques différents et d'autre part les zones sont susceptibles de changer de taille dans Excel.

Quand on fait edit sur le tableau dans ppt, il ouvre la zone concernée, mais je ne trouve pas comment la modifier (la zone, pas les données).

Merci de vos lumières.

[Carmiel]

Bonjour,
je me réponds à moi-même car je coyais avoir trouvé la solution, mais je n'ai résolu que la moitié du problème.
En fait, il suffit de faire insérer-objet-feuille-excel et là ça créé une feuille incorporée (embeded) qui se gère comme une feuille normale et donc on peut modifier les formules. Pour un graphique ce sont 2 onglets, un pour les data et un pour le camembert. On peut déclarer cette feuille liée au collage.
Jusque là tout va bien, si je double clique sur l'objet il s'actualise.

Sauf que l'actualisation globale ne se fait pas. il faut cliquer sur chaque objet pour l'actualiser. Vu le nombre à gérer c'est juste impossible.
Est-ce que vous avez une solution pour mettre à jour toutes les feuilles en même temps ?
Je peux faire un vba si c'est la solution.
Merci de votre aide.

[clementmarcotte]

Bonjour,

En supposant que j'aie bien compris:

Récupéré dans l'aide de VBA pour PowerPoint.

Référence du développeur PowerPoint
Presentation.UpdateLinks, méthode
Met à jour les objets OLE liés dans la présentation spécifiée.
Syntaxe

expression.UpdateLinks

expression Variable qui représente un objet Presentation.

Exemple


Cet exemple montre comment mettre à jour toutes les liaisons OLE de la présentation active.

Visual Basic pour Applications

Code :

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

ActivePresentation.UpdateLinks

© 2010 Microsoft Corporation. Tous droits réservés.



Voir aussi
Presentation, objet
Presentation, membres de l’objet

[Carmiel]

Bonjour,
Merci pour la réponse, mais cela ne marche pas.
Toute la différence est dans un objet lié et un objet incorporé.
Si je fais copier/coller avec liaison il est lié et s'update bien à l'ouverture. PAr contre impossible de modifier la zone vers laquelle l'objet pointe et pour le modifier il faut faire un nouveau copier/coller.

En faisant insérer objet Datasheet, il insère un fichier dans le ppt et la feuille est gérable comme une feuille excel, on peut modifier les formules etc.
PAr contre cela ne s'update qu'en cliquant dessus.

Sauf que j'ai trouvé cela http://stackoverflow.com/questions/9...-in-powerpoint
Mais je n'ai pas l'option edit link dans preparer.

J'ai oublié de préciser que je suis en 2007.

[Carmiel]

J'ai fini par trouver la solution, un début du code dont j'ai besoin dans les FAQ, que j'ai arrangé à mon besoin. Ca marche nickel

Code appelant pour traiter toutes les présentations.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub MAJALLEmbeddedObj()
Dim Presentation As String
Dim appPPT As PowerPoint.Application
Dim Pr As Presentation
 
    stRepertoire = ActivePresentation.Path
    stPresentation = Dir(stRepertoire & "\*.pptx")
    If stPresentation = "" Then GoTo Fin
    Set appPPT = CreateObject("PowerPoint.Application")
 
NextPPTX:
' j'explore d'abord toutes les présentation ouvertes
    For Each Pr In appPPT.Presentations
        If Pr.Name = "RefreshEmbeddedObjects.pptm" Then GoTo NextPr
        If Pr.Name = stPresentation Then
            Pr.Windows(1).Panes(1).Activate
            MAJEmbeddedObj (ActivePresentation.Name)
            GoTo FinMaj
        End If
NextPr:
    Next Pr
    appPPT.Presentations.Open stPresentation
    MAJEmbeddedObj (stPresentation)
 
FinMaj:
    ActivePresentation.Save
    ActivePresentation.Close
Skip:
    stPresentation = Dir()
    If stPresentation = "" Then GoTo Fin
    GoTo NextPPTX
Fin:
    MsgBox ("Mise à jour terminée")
End Sub

Code appelé pour faire la mise à jour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub MAJEmbeddedObj(Optional stPresentation)
Dim appPPT As PowerPoint.Application
Dim Sh As PowerPoint.Shape
Dim Gr As Workbook
Dim sld As Slide
 
    Application.WindowState = ppWindowMaximized
    If ActivePresentation.Name = "RefreshEmbeddedObjects.pptm" Then
        MsgBox ("Selectionner la présentation à actualiser avant de lancer la macro")
        Exit Sub
    End If
    For Each sld In ActivePresentation.Slides
        sld.Select
        For Each Sh In sld.Shapes
            Sh.Select
'Verifie s'il s'agit d'un objet incorporé
            If Sh.Type = msoEmbeddedOLEObject Then
'Vérifie s'il s'agit d'une feuille graphique
                If Left(Sh.OLEFormat.ProgID, 12) = "Excel.Sheet." Then
                    Set Gr = Sh.OLEFormat.Object
                    'Gr.Sheets("Feuil1").Activate
                    Gr.Sheets("Feuil1").Calculate
'j'affiche le graphe mais erreur si pas de graphe
                    On Error Resume Next
                    Gr.Sheets("Graph1").Activate
                    On Error GoTo 0
                End If
            End If
        Next Sh
    Next sld
    ActivePresentation.Slides(1).Select
End Sub