Je souhaite publier mon classeur Excel (composé de 2 feuilles) au format HTML. Pour ce faire j'ai tenté de créer une macro:
Sub ExcelEnWebStatique()
Dim vClasseur As Workbook
Set vClasseur = ActiveWorkbook
With vClasseur.PublishObjects.Add(SourceType:=xlSourceW orkbook, filename:="Classeur.htm", HtmlType:=xlHtmlStatic)
.Publish (True)
End With
Problème cela ne semble pas fonctionner sous Excel 2000!!! j'ai un message de type:
"La méthode 'Publish de l'objet 'PublishObject a échoué."
Je ne sais plus quoi faire!!! Si cela ne fonctionne est-il possible de faire appel à l'interface Excel du menu fichier\enregistrer en tant que page Web.
Re : HELP=> Erreur d'execution Macro pour publier un classeur en HTML. Merci!! HELP
Bonjour cortadillo,
Voyez cette macro dans Module1 du fichier joint (Alt+F11) :
Code:
Sub HTML()
Application.DisplayAlerts = False 'si le fichier existe déjà
On Error Resume Next 'si en plus il est ouvert
ThisWorkbook.SaveAs ThisWorkbook.Path & _
"\Prices of chickens Test.htm", xlHtml
'---fermeture du fichier (facultative)---
If Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
End Sub
Fonctionne sur Excel 2003, je ne sais pas sur Excel 2000...
Edit : bien sûr téléchargez d'abord le fichier avant de lancer la macro...
Voyez cette macro dans Module1 du fichier joint (Alt+F11) :
Code:
Sub HTML()
Application.DisplayAlerts = False 'si le fichier existe déjà
On Error Resume Next 'si en plus il est ouvert
ThisWorkbook.SaveAs ThisWorkbook.Path & _
"\Prices of chickens Test.htm", xlHtml
'---fermeture du fichier (facultative)---
If Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
End Sub
Fonctionne sur Excel 2003, je ne sais pas sur Excel 2000...
Edit : bien sûr téléchargez d'abord le fichier avant de lancer la macro...
Dit moi JOB75, quand je spécifie un chemin d'accès réseau, le fichier HTML n'est pas présent:
Sub HTML()
Application.DisplayAlerts = False 'si le fichier existe déjà
On Error Resume Next 'si en plus il est ouvert
ThisWorkbook.SaveAs ThisWorkbook.Path & _
"\\SRVDATA\Prix\Prices of chickens Test.htm", xlHtml
'---fermeture du fichier (facultative)---
If Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
End Sub
Re : HELP=> Erreur d'execution Macro pour publier un classeur en HTML. Merci!! HELP
j'aimerais faire un test sur la présence du fichier avant la création:
Peut on m'aider
Fichier = "Suivi du projet ONP " & Format(Date, "dd-mm-yyyy") & ".htm"
Si test dans le répertoire \\Srvdatava\Publier\ pas de présence de fichier Alors
ThisWorkbook.SaveAs _
"\\Srvdatava\Publier\Suivi des prix " & Format(Date, "dd-mm-yyyy") & ".htm", xlHtml
Else
Msgbox("le fichier existe déjà", exit sub)
Re : HELP=> Erreur d'execution Macro pour publier un classeur en HTML. Merci!! HELP
Re,
Code:
Sub HTML()
Dim fich$
fich = "\\SRVDATA\Prix\Prices of chickens Test.htm"
If Dir(fich) <> "" Then MsgBox "Le fichier HTML existe déjà...": Exit Sub
ThisWorkbook.SaveAs fich, xlHtml
'---fermeture du fichier (facultative)---
If Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
End Sub