Méthode PUBLISH derrière bouton sur feuille
Bonjour,
J'essaie d'ajouter un code VBA (méthode PUBLISH de PublishObjects) derrière un bouton se trouvant sur un onglet excel mais j'obtiens le message erreur 1004.
Or si j'exécute ce même code via l'outil macro, ou bien si je l'associe à un bouton d'une barre de menu cela fonctionne très bien.
A priori cela doit être un pb de méthode d'appel de ce code source. Je dois malheureusement effectuer ce PUBLISH derrière un bouton sur la feuille. Quelqu'un peut-il m'aider à éclaircir cela svp?
Voici le code VBA de l'onglet SHEET1 :
Public Sub ludo()
Dim Fichier As String
Dim webpage As PublishObject
Fichier = "C:\maPageHtml.htm"
Set webpage = ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Fichier, "Sheet1", "", xlHtmlStatic, "", "ludo")
With webpage
.Publish (True)
End With
End Sub
Sub CommandButton1_Click()
ludo
End Sub
J'essaie d'ajouter un code VBA (méthode PUBLISH de PublishObjects) derrière un bouton se trouvant sur un onglet excel mais j'obtiens le message erreur 1004.
Or si j'exécute ce même code via l'outil macro, ou bien si je l'associe à un bouton d'une barre de menu cela fonctionne très bien.
A priori cela doit être un pb de méthode d'appel de ce code source. Je dois malheureusement effectuer ce PUBLISH derrière un bouton sur la feuille. Quelqu'un peut-il m'aider à éclaircir cela svp?
Voici le code VBA de l'onglet SHEET1 :
Public Sub ludo()
Dim Fichier As String
Dim webpage As PublishObject
Fichier = "C:\maPageHtml.htm"
Set webpage = ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Fichier, "Sheet1", "", xlHtmlStatic, "", "ludo")
With webpage
.Publish (True)
End With
End Sub
Sub CommandButton1_Click()
ludo
End Sub
Configuration: Windows 2000 Internet Explorer 6.0
