Bonjour,
Le code ci-dessous convertit automatiquement un fichier PowerPoint vers HTML.

Mon objectif, c'est que les utilisateurs vont lancer ma page à partir de leur navigateur, et la conversion du document fichier.ppt doit se faire dans mon poste (serveur) ! et non pas dans un poste client.

Comment puis-je dire via la méthode .Open d'aller chercher le fichier dans mon poste ? (j'ai essayé via une adresse local http://192.168.1.14:88/, mais ça n'a pas marché).

J'aurais besoin de votre aide.
Merci

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
<html>
<body>
 
<script type="text/vbscript">
 
Dim PptApp 
Dim PptPres 
Set PptApp = CreateObject("Powerpoint.Application")
 
Set PptPres = PptApp.Presentations.Open("C:\fichier.ppt",,,0)
PptPres.SaveAs "C:\fichier.html", 12, true
 
PptPres.Close
Set PptPres = Nothing
PptApp.Quit
</script>
 
</body>
</html>