[VB6] Exploiter un doc PowerPoint avec VB [FAQ]

**Tranber** · 04/09/2002, 15h00

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Seulement,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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....

**KIKI_94** · 04/09/2002, 15h10

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

@+

**Tranber** · 04/09/2002, 15h19

Yep !

En effet, c'est passé

mais maintenant, c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set MonPpt = MonPowerPoint.Documents.Open(nomFichier)

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

merci d'avance.
@++

**Tranber** · 04/09/2002, 15h44

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**KIKI_94** · 04/09/2002, 15h46

alors voilà le code que j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Tranber** · 04/09/2002, 15h54

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

Je sais je suis un chtit peu chiant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**KIKI_94** · 04/09/2002, 15h57

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

**KIKI_94** · 04/09/2002, 16h15

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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