fifounet
XLDnaute Occasionnel
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
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