[VB6] Exploiter un doc PowerPoint avec VB

Salut à tous !

Je voudrais importer un doc ppt afin de le l'enregistrer en .html.
Je fait celà avec les documents word, donc je me suis dit que ca serait un peu pareil pour PowerPoint. je fait :

Code:

---

1 2	Dim MonPowerPoint As New PowerPoint.Application, MonPpt As PowerPoint.Document Set MonPpt = MonPowerPoint.Documents.Open(nomFichier)

---

Seulement,

Code:

---

MonPpt As PowerPoint.Document

---

ne lui plait pas trop... J'imagine que je doit pas être loin ?....
note : j'ai mis les références à Powerpoint...

merci d'avance :)
@++
PS : dsl... mon aide powerpoint n'est pas installée.... et on a pas les cd sous la main....

Salut

J'ai regardé à ton problème et effectivement il n'aime pas Document
car cela n'existe pas avec powerpoint
mais c'est DocumentWindow ou DocumentWindows

@+

Yep !

En effet, c'est passé :)
mais maintenant, c'est :

Code:

---

Set MonPpt = MonPowerPoint.Documents.Open(nomFichier)

---

qu'il aime pô...
plus precisemment "Documents"

merci d'avance.
@++

Non, en fait je veux l'ouvrir, l'enregistrer en HTML et la fermer.
L'equivalent avec Word :

Code:

---

1 2 3 4 5 6 7 8

Dim MonWord As New Word.Application, MonDoc As Word.Document Set MonDoc = MonWord.Documents.Open(nomFichier)   Dim fic_sortie As String fic_sortie = repSave + "/" + page MonDoc.SaveAs FileName:=fic_sortie, FileFormat:=wdFormatHTML MonWord.quit

---

voilou :)

alors voilà le code que j'ai fait

Code:

---

1 2 3 4 5 6 7

Dim pPoint As PowerPoint.Application Dim dPoint As PowerPoint.Presentation   Set pPoint = New PowerPoint.Application pPoint.Visible = True Set dPoint = pPoint.Presentations.Open("C:\WINNT\Profiles\tran.minh\Personnel\Mes images\calendar2002.ppt)

---

ce code te permet d'ouvrir une présentation .ppt et non .pps

yep !
Ton code marche bien. En fait, je voudrais la convertir en HTML...

Je sais je suis un chtit peu chiant ;)

Code:

---

1 2 3 4 5

Dim fic_sortie As String fic_sortie = repSave + "/" + page dPoint.SaveAs FileName:=fic_sortie, FileFormat:=wdFormatHTML pPoint.quit

---

J'ai modifié de la sorte,mais je sais que le FileFormat d'enregistrement n'est pas bon...

merci d'avance.

Le problème c'est que tu ne peux pas ouvrir la présentation si l'application n'est pas visible
mais bon j'y regarde et si je trouve je te dis koi

j'ai essayé dans tous les sens et je ne sais pas comment faire autrement que de lancer PowerPoint et de le rendre visible pour ouvrir la présentation et l'enregistrer.

Voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim pPoint As PowerPoint.Application Dim dPoint As PowerPoint.Presentation   Set pPoint = New PowerPoint.Application pPoint.ShowWindowsInTaskbar = msoFalse pPoint.Visible = msoTrue   Set dPoint = pPoint.Presentations.Open("C:\WINNT\ShellNew\powerpnt.ppt") dPoint.SaveAs "C:\WINNT\ShellNew\powerpnt.html", ppSaveAsHTML dPoint.Close pPoint.Quit Set pPoint = Nothing Set dPoint = Nothing

---

désolé je n'ai pas d'autres solutions à te proposer si qq1 d'autre sait comment faire...
:cry: :cry: :cry: :cry:

Yep !!!

Je vais certainement réussir à me debrouiller avec tout ça !!
Tu as toute ma reconnaissance !!!! :) :ccool:

Merci encore :)

@++