Discussion :

[adil_vpb]

Bonjour,
Je demande si c'est possible de convertir un PPT vers HTML sans passer par le powerPoint (Enregistrer sous ...)?

Un Batch ou un truc qui va se déclencher en Background.

Merci d'avance.

[Invité]

Bonjour

Je t'avais indiqué une astuce pour Word ici : http://www.developpez.net/forums/d88...doc-vers-html/

As-tu testé cela ?
Essayes le même principe pour PowerPoint à adapter, mais dans tous les cas il faudra ouvrir PowerPoint par ce code.

Philippe

[adil_vpb]

Excuse moi,
J'ai oublié ce Post, vu que je me suis convaincu de passer par un Software.

Mais, ton script fonctionne très bien, c'est la première fois que je vais utiliser du VB Script.

Pouvez-vous me montrer le script adéquat pour PowerPoint & Excel ? ou bien un tuto.

Merci beaucoup.

[Invité]

Re

Pour le tuto, je ne sais pas, par contre pour PowerPoint à tester et adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim PptApp 
Dim PptPres 
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = true
Set PptPres = PptApp.Presentations.Open("C:\Users\Philippe\Desktop\exemple2.ppt")
PptPres.SaveAs "C:\Users\Philippe\Desktop\test.html", 12
'Après sauvegarde, il faut fermer
PptPres.Close
Set PptPres = Nothing
PptApp.Quit

Le tout dans un fichier .vbs

L'astuce est de faire cela par exemple sur Excel, en référençant la bibliothèque et tester, ensuite on l'enlève et hop.

Philippe

[adil_vpb]

Oui,
Ceci fonctionne bien pour PowerPoint, j'ai constaté que le script ouvre la présentation PowerPoint et la referme après la conversion.

Merci de me confirmer que cela est obligatoire, si non, je vais continuer mes recherches dans ce sens afin d'optimiser le script.

Concernant les fichiers Excel, j'ai crée un script comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim XlsApp 
Dim XlsHtml 
Set XlsApp = CreateObject("Excel.Application")
XlsApp.Visible = true
Set XlsHtml = XlsApp.Workbooks.Open("C:\test.xls") 
XlsApp.SaveAs "C:\test_xls.html", 12
'Après sauvegarde, il faut fermer
XlsApp.Close
Set XlsApp = Nothing
XlsApp.Quit

Cependant, si je change la valeur 12, j'obtiens des fois un message d'erreur, ou bien 'impossible de faire la conversion pour plusieurs feuilles ...'

Pouvez-vous me préciser la valeur que je dois mettre, sachant que j'ai plusieurs feuilles dans le fichier Excel ? et que je les souhaites avoir dans le fichier html généré.

Merci.

[Invité]

Re

Pour l"ouverture de PowerPoint il faut que je regardes.

Pour les valeurs à mettre en fait ce sont des constantes, mais qui ne sont par reconnues en VB Script, alors on en met la valeur.

Dans le cas du SaveAs, la valeur est variable en fonction de l'application Office, je t'invite à regarder l'aide d'Excel pour cela.

Philippe

[adil_vpb]

Voici le code pour Excel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim XlsApp 
Dim XlsHtml 
Set XlsApp = CreateObject("Excel.Application")
XlsApp.DisplayAlerts = FALSE
XlsApp.Visible = FALSE
Set XlsHtml = XlsApp.Workbooks.Open("C:\test.xls") 
XlsApp.ActiveWorkBook.SaveAs "C:\test_xls.html", 44, TRUE
'Après sauvegarde, il faut fermer
XlsHtml.Close
Set XlsHtml = Nothing
XlsApp.Quit

Il me reste juste la rectification du Script de PowerPoint afin de ne pas ouvrir la présentation

[Invité]

Re

A tester : http://excel.developpez.com/faq/inde...int#MasquerPPT

Philippe

[adil_vpb]

Il me renvoie l'erreur suivante :

Code :

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

1
2
3
Erreur : ')' attendu
code : 800A03EE
Source : Erreur de compilation Microsoft VBScipt

[Invité]

Re

Il faut un peu chercher et faire des tests, c'est comme cela que l'on apprend.

Voici le code revu

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim PptApp 
Dim PptPres 
Set PptApp = CreateObject("Powerpoint.Application")
'PptApp.Visible = false
Set PptPres = PptApp.Presentations.Open("C:\Users\Philippe\Desktop\exemple2.ppt",,,0)
PptPres.SaveAs "C:\Users\Philippe\Desktop\test.html", 12
'Après sauvegarde, il faut fermer
PptPres.Close
Set PptPres = Nothing
PptApp.Quit

Philippe

[adil_vpb]

Merci beaucoup