[PPT-2007] Comment changer la source d'un classeur lié, dans une présentation powerPoint ?

[Roussette35]

Sur le FAQ Excel, j'ai trouvé une fonction qui répondait, je pense, à mon besoin. En effet, je souhaite changer la source d'un classeur lié, dans une présentation powerPoint ?
http://excel.developpez.com/faq/?pag...rceClasseurPPT

J'ai un fichier excel avec plusieurs liaisons collées sur un même fichier powerpoint.

A partir de ce fichier excel, je souhaiterais créer une macro pour mettre à jour toutes les liaisons du power point type et ensuite l'enregistrer avec un nom de fichier spécifique.

J'utilise ce code mais cela ne fonctionne pas, il bloque à :

Code :

Set Prez = pwrPoint.Presentations.Open(Presentation)

Code :

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
35
36
Dim pwrPoint As PowerPoint.Application
Dim Prez As PowerPoint.Presentation
Dim targetMaj As String
Dim Forme As PowerPoint.Shape
Dim Diapo As PowerPoint.Slide
 
Presentation = ThisWorkbook.Path & "\maPresentation.ppt"
'Le nouveau classeur lié
targetMaj = ThisWorkbook.Path & "\monClasseurMisAJour.xls"
 
Set pwrPoint = CreateObject("PowerPoint.Application")
pwrPoint.Visible = msoTrue
Set Prez = pwrPoint.Presentations.Open(Presentation)
 
'Boucle sur les Slide de la présentation
For Each Diapo In Prez.Slides
    'Boucle sur les formes
    For Each Forme In Diapo.Shapes
        'Vérifie s'il s'agit d'un objet lié
        If Forme.Type = msoLinkedOLEObject Then
            'Vérifie si l'objet lié est un objet Excel
            If Forme.OLEFormat.progID = "Excel.Sheet.8" Then
                'Modifie la source
                Forme.LinkFormat.SourceFullName = targetMaj
                'Mise à jour
                Forme.LinkFormat.Update
        End If
    End If
    Next
Next
 
Prez.Save
'ferme la présentation
Prez.Close
'ferme powerpoint
pwrPoint.Quit

Je ne suis pas un pro des macros.
Si quelqu'un peut m'aider ...

Merci d'avance

[Philippe JOCHMANS]

Bonjour

J'utilise ce code mais cela ne fonctionne pas, il bloque à :

Et on doit deviner ce qui bloque y a t'il un message d'erreur ? Si oui, lequel ?

Comment voulez-vous avoir de l'aide si vous ne donnez pas toutes les informations

Peux faire un debug.print ou une msgbox pour voir ce qu'il y a sur ta variable présentation ?

De plus, ta présentation est bien dans le répertoire où est ton fichier Excel ?

[Roussette35]

Voici le message d'erreur :

Erreur d'execution 429
Un composant ActiveX ne peut pas créer d'objet

et en fichier attaché là où la macro s'arrete

Merci

[Philippe JOCHMANS]

Re

Où et comment est déclaré la variable Presentation ?

Philippe

[Philippe JOCHMANS]

Envoyé par Philippe JOCHMANS

Re

Où et comment est déclarée la variable Presentation ?

Philippe

[pgz]

Bonsoir.

ET salut Philippe

Je me demandais si le pb ne pouvait pas venir de l'absence de la bibliothèque PowerPoint dans les références du classeur.

Roussette 35, peux-tu vérifier?
Conseil : mets

Code :

Option Explicit

en haut de chaque module de code.
ET avant de lancer le code lance le debogueur.

Cordialement,

PGZ

[Philippe JOCHMANS]

Salut

Les références sont cochées, sinon il ne pourrait pas faire les déclarations dans les premières lignes.

Philippe

[Roussette35]

En effet, les références Power Point sont cochées donc je ne pense que cela vient de ce point

Par contre, qu'est ce que tu entends par où est déclarée la variable Présentation

[LaurentSig]

Bonjour,
Chez moi ce code fonctionne très bien.
Le problème vient peut-être du nom du fichier : le ppt est-il bien dans le même dossier que le fichier qui contient la macro ? (activeworkbook.path)
Et s'appelle t'il bien "maPresentation.ppt" ?

Cordialement

[Roussette35]

Je suis toujours bloqué...
Voici mes 2 fichiers. Ce sera peut-etre plus simple que vous ne compreniez ce qui ne va pas surtout que je ne suis pas une pro dans les explications ...

En espérant que vous puissiez m'aider.

Si vous avez une méthode plus rapide pour l'export dse données excel, vers power point, je suis preneuse, car j'ai pas mal de diapo à mettre à jour

Merci d'avance