M
Mika
Guest
Bonjour a tous!
grace a ce forum, j'ai réussi a faire une macro qui modifie la couleur d'une forme dans un powerpoint suivant les valeurs que l'on rentre dans un ficier excel. Seulement voila, le powerpoint est obligé de s'ouvrir, n'y a t-il pas un moyen d'actualiser le powerpoint sans l'ouvrir ? Cela permettrait ainsi une mise à jour plus rapide. J'ai vu qu'il y avait une macro de ce genre sur le forum mais seulement pour un fichier excel et je n'ai pas su l'adapter.
J'utilise office2002.
Merci d'avance pour aide !
voici la macro en question :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'nécéssite d'activer la reference Microsoft Powerpoint 10.0 Object Library
'necessite aussi d'activer microsoft ActiveX Data Objects 2.5 Library
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject('Powerpoint.Application')
Set PptDoc = PptApp.Presentations.Open('C
res2.ppt',WithWindow:=msoFalse) 'adapter le chemin
With PptDoc
If Range('J18') = 'ok' Then .Slides(11).Shapes('f01').Fill.ForeColor.RGB = RGB(0, 255, 0) Else .Slides(11).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
grace a ce forum, j'ai réussi a faire une macro qui modifie la couleur d'une forme dans un powerpoint suivant les valeurs que l'on rentre dans un ficier excel. Seulement voila, le powerpoint est obligé de s'ouvrir, n'y a t-il pas un moyen d'actualiser le powerpoint sans l'ouvrir ? Cela permettrait ainsi une mise à jour plus rapide. J'ai vu qu'il y avait une macro de ce genre sur le forum mais seulement pour un fichier excel et je n'ai pas su l'adapter.
J'utilise office2002.
Merci d'avance pour aide !
voici la macro en question :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'nécéssite d'activer la reference Microsoft Powerpoint 10.0 Object Library
'necessite aussi d'activer microsoft ActiveX Data Objects 2.5 Library
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject('Powerpoint.Application')
Set PptDoc = PptApp.Presentations.Open('C
res2.ppt',WithWindow:=msoFalse) 'adapter le chemin With PptDoc
If Range('J18') = 'ok' Then .Slides(11).Shapes('f01').Fill.ForeColor.RGB = RGB(0, 255, 0) Else .Slides(11).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
