Discussion :

[johnVSsmith]

Salut à tous,

Je ne connais rien au Visual Basic mais une fonction VBA m'intéresse pour ce que je veux faire.

Je voudrais générer un script (.vbs ?) qui permet de sauvegarder un fichier PowerPoint en tant que fichier HTML :

Code :

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

ActivePresentation.SaveAs("C:\test.htm", ppSaveAsHTML, msoFalse)

Le soucis c'est que le code VBA est associé au fichier on dirait.

Je voudrais exécuter un script qui m’exécutera le code ci-dessus lorsque je l'exécuterai.

Est-ce bien un .vbs que je dois générer ?

Comment indiquer que ActivePresentation = "C:\test.ppt" ?

Merci d'avance !

[johnVSsmith]

Voici la solution que je viens d'écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
'Déclaration des variables
Dim sHTMLFile, objName, DocFile, ppto
 
'type d'application
objName = "PowerPoint.Application"
'nom du fichier à convertir (sans format), 
DocFile = "C:\ppt"
'creation de l'objet sur lequel on travaille
Set ppto = CreateObject(objName)
'creation d'un objet Fichier
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
'Execution de la procédure seulement si le fichier existe
 
If objFSO.FileExists(DocFile + ".ppt") Then
 
    'ouverture de PowerPoint
    ppto.Visible = True
    'ouverture du diaporama
    ppto.Presentations.Open DocFile + ".ppt", 0, 0, 1
 
    'nom du fichier htm
    sHTMLFile = DocFile + ".htm"
    'sauvegarde du fichier en tant que HTML
    ppto.ActivePresentation.SaveAs sHTMLFile, 14
 
    'Fermeture du diaporama
    ppto.ActivePresentation.Close        
    'Fermeture de PowerPoint
    ppto.Quit
 
End If
 
'On vide les objets créés
 Set ppto = Nothing
 Set objFSO = Nothing

Merci