exporter des données excel vers powerpoint

[mika]

bjr! g essayé grace a ce forum de faire une macro excel qui, suivant la valeur de la cellule ('ok' ou 'nok'), colore une forme dans powerpoint(vert ou rouge). Un nom a été attribué a cette forme (un rond) dans powerpoint ('f01'). malheureusement, qd j'execute la macro cela me met une erreur 429, 'Un composant activex ne peut pas créer d'objet'. Comment résoudre cette erreur??
voici la macro:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'nécéssite d'activer la reference Microsoft Powerpoint 10.0 Object Library
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject('Powerpoint.Application')
PptApp.Visible = True '
Set PptDoc = PptApp.Presentations.Open('C:\\pres2.ppt') 'adapter le chemin
Set PptDoc = ActivePresentation.Slides(3)
With PptDoc
If Range('J18') = 'OK' Then .Slides(3).Shapes('f01').Fill.ForeColor.RGB = RGB(0, 255, 0) Else .Slides(3).Shapes('f01').Fill.ForeColor.RGB = RGB(255, 0, 0)
.Save 'sauvegarder la presentation
End With
PptDoc.Close 'fermer la presentation sauvegardée
PptApp.Quit 'fermer powerpoint
End Sub

PS: j'aiactiver la reference Microsoft Activex Data 2.0 library dans excel et j'ai autoriser les applications activeX dans le panneau de config ms ca ne fait rien!

Merci pour votre aide!

 

[mika]

complement a la question

j'utilise excel et powerpoint 2002

 

[MichelXld]

Re:complement a la question

bonsoir Mika

je 'ai pas testé ta procedure , mas tu peux faire un essai en supprimant la ligne

Set PptDoc = ActivePresentation.Slides(3)


bonne soirée
MichelXld

 

[mika]

Re:complement a la question

merci ca marche! ms j'ai un autre probleme, car la couleur apparait en rouge quelque soit la reponse. pour mettre la couleur verte c bien (0,255,0)?

 

[mika]

Re:complement a la question

c bon j'ai trouvé! en il remplacer 'OK' par 'ok' et 'NOK' par 'nok'! merci pour votre aide et pour ce site il est génial ! continuez comme ca!