probleme de mise a jour objets liés powerpoint /excel

Question

bonjour a tous 

j ai un petit probleme pour mettre a jour des objets li&#233;s sous une pres powerpoint .. ces objets sont li&#233;s a un classeur excel(target) qui est lui meme mis a jour et renomm&#233; (targetmaj) avant de lancer la presentation 

voici le code :

Set prez = pwrpoint.presentations.Open(presentation)
chemin = prez.Path

            For Each diapo In prez.Slides
                    diapo.Select
                    For Each forme In diapo.Shapes
                            forme.Select
                            If forme.Type = msoLinkedOLEObject Then
                                    If forme.OLEFormat.progID = "Excel.Sheet.8" Then
                                        forme.LinkFormat.SourceFullName = Replace(forme.LinkFormat.SourceFullName, target, targetmaj)
                                   End If
                                   
                            End If
                     Next
             Next
A l execution , j ai un message d erreur qui me dit : LinkFormat.SourcefullName:Failed 

quelqu un aurait il une id&#233;e d ou vient le probleme ?

merci beaucoup d avance !!

michelxld · Answer

bonsoir

j'espere que cette adaptation pourra t'aider

Dim pwrPoint As PowerPoint.Application
Dim Prez As PowerPoint.Presentation
Dim Presentation As String, targetMaj As String
Dim Forme As PowerPoint.Shape
Dim Diapo As PowerPoint.Slide


Presentation = ThisWorkbook.Path & "\maPresentation.ppt"
targetMaj = ThisWorkbook.Path & "\monClasseurMisAJour.xls"


Set pwrPoint = CreateObject("PowerPoint.Application")
pwrPoint.Visible = msoTrue
Set Prez = pwrPoint.presentations.Open(Presentation)


For Each Diapo In Prez.Slides
    For Each Forme In Diapo.Shapes
        If Forme.Type = msoLinkedOLEObject Then
            If Forme.OLEFormat.progID = "Excel.Sheet.8" Then
            Forme.LinkFormat.SourceFullName = targetMaj
            Forme.LinkFormat.Update
            End If
        End If
    Next
Next

bonne soir&#233;e
michel

cs_beub · Answer

salut michel 
non helas ca ne fonctionne pas mieux : (

j ai vraiment pas d id&#233;e d ou peut venir le probleme ... est ce qu il faut desactiver la liaison avant de la modifier ou quelque chose comme ca ? 

Merci d avance

michelxld · Answer

bonjour

je viens de retester et je ne rencontre pas de probleme particulier ( Office XP) : 
le classeur li&#233; &#224; la pr&#233;sentation est bien remplac&#233; par targetMaj

tu as le meme message d'erreur ?

bonne soiree
michel

cs_beub · Answer

salut 

en fait , ta methode fonctionne si je veux updater les liaisons avec un classeur entier , non? en fait moi j ai differents objets li&#233;s a differents onglets de mon classeur mis a jour 
mmmm je sais pas si je suis tres clair alors je vais donner un exemple : 

mon_ancien chemin : "C:\projets\Electrolux\automatisation\bkup\Synth&#232;se Plaque.xls!Evol March&#233; Plaques![Synth&#232;se Plaque.xls]Evol March&#233; Plaques Graphique 2"

mon_chemin_MAJ :"C:\projets\Electrolux\automatisation\bkup\Synth&#232;se Plaquetest.xls!Evol March&#233; Plaques![Synth&#232;se Plaquetest.xls]Evol March&#233; Plaques Graphique 2"

et ceci dans chacun des cas ou j ai une liaison a faire donc faire un "replace" pour modifier uniquement le nom du classeur source me semblait etre une bonne solution vu que le reste du chemin est identique , cependant a chaque fois j ai une erreur :"la methode SourceFullName de l objet Linkformat a echou&#233;"

je sais pas si mon probleme est bien expliqu&#233; , merci en tout cas pour ton aide !! :)

bonsoir

probleme de mise a jour objets liés powerpoint /excel

4 réponses

Discussions similaires