Bug powerpoint ?

[Gary29]

Bonjour,

je me demande si je ne suis pas tombé sur un bug dans powerpoint

C'est une macro Vb de excel qui attaque les éléments d'un powerpoint :

Sub XLtoPPT()

Dim MonPowerPoint As New PowerPoint.Application

' ouverture du powerpoint de base
Set MonPowerPoint = New PowerPoint.Application
MonPowerPoint.Visible = msoTrue
MonPowerPoint.Presentations.Open Filename:=ThisWorkbook.Path & "\test.ppt", ReadOnly:=msoFalse

'modification du nom du pays et du titre en slide 1
MonPowerPoint.ActivePresentation.Slides(1).Select
MsgBox MonPowerPoint.ActivePresentation.Slides(1).Shapes(1).Name
MonPowerPoint.ActivePresentation.Slides(1).Shapes(MonPowerPoint.ActivePresentation.Slides(1).Shapes(1).Name).Select

Avec l'indice, j'arrive a sélectionner l'objet, le msgbox passe aussi, par contre il ne reconnait ni MonPowerPoint.ActivePresentation.Slides(1).Shapes("Nom de l'objet").Select, ni MonPowerPoint.ActivePresentation.Slides(1).Shapes(MonPowerPoint.ActivePresentation.Slides(1).Shapes(1).Name).Select .

Ce problème se passe uniquement sur un seul fichier Powerpoint.
Est ce que c'est déjà arrivé à quelqu'un ?
Quelle serait la propriété de powerpoint à changer pour que tout rentre en ordre ?

Merci pour la réponse

 

[michel]

bonsoir Gary

ta procedure fonctionne sans probleme chez moi

qu'entends tu par "il ne reconnait ni MonPowerPoint...."

peux tu placer sur le forum un exemple zippé sans tes données confidentielles ,et en détaillant ce que cherches à obtenir ( les ".select" ne sont peut etre pas necessaires dans la macro )


bonne soiree
MichelXld

 

[Gary29]

J'ai continué à chercher de mon cote, impossible de trouver.

J'ai fait un mini exemple pour voir si ca reproduit sur d'autre poste.

Merci d'avance

 

[michel]

Re: modification texte dans presentation PowerPoint

bonsoir Gary

j'espere que cette adaptation pourra t'aider


Sub XLtoPPT()
Dim strTitre As String, strPays As String
Dim MonPowerPoint As PowerPoint.Application
Dim maPres As PowerPoint.Presentation

strTitre = " mon titre"
strPays = " le nom du pays "

Set MonPowerPoint = New PowerPoint.Application
MonPowerPoint.Visible = msoTrue
Set maPres = MonPowerPoint.Presentations.Open _
(Filename:=ThisWorkbook.Path & "\standard report_base.ppt", ReadOnly:=msoFalse)

'insertion texte dans les Shapes 1 et 2 du premier Slide
maPres.Slides(1).Shapes(1).TextFrame.TextRange.Text = strTitre
maPres.Slides(1).Shapes(2).TextFrame.TextRange.Text = strPays

End Sub


remarque :
il n'y avait pas de 2eme Shape dans ta presatation PowePoint


bonne soiree
MichelXld

 

[Gary29]

Re: modification texte dans presentation PowerPoint

Merci pour la reponse