page html interactive

[fifounet]

Bonjour le forum
Pour enregistrer des pages html de chaque feuille de mon fichier j'utilise le code suivant:

For Each ws In ActiveWorkbook.Worksheets

Set wb = ActiveWorkbook
With wb.PublishObjects.Add _
(xlSourceRange, Fichier, ws.Name, "$A$1:$J$44", xlHtmlStatic, "", "").Publish(True)
End With
Next

Je voudrais rendre ces pages interactives avec le fichier, c'est à dire qu'elle se mettent à jour à chaque réenregistrement du fichier.
J'ai essayé d'ajouter .Autorepublish = True et xlHtmlCalc à la place de xlHtmlStatic mais ça bugue.
Je dois pas mettre ça ou il faut !
Merci de vos suggestions.
fifounet

 

[gfortin9]

Re : page html interactive

Allô!

Au lieu d'utiliser le bouton d'enregistrement standard, tu pourrais ajouter un bouton d'enregistrement perso, qui comprendrait l'enregistrement du classeur et l'appel de ta macro de plublication.

Est-ce que cela pourrait convenir ?

GFortin

 

[fifounet]

Re : page html interactive

Merci GFortin de me répondre
Je vois ou tu veux en venir, peux tu me donner un exemple stp
a+

 

[gfortin9]

Re : page html interactive

Allô!

Examine cela, c'est une base de départ bien entendu 😉


GFortin

 

[fifounet]

Re : page html interactive

Merci pour ta piste, je vais creusé un peu.
encore merci.
a+