XL 2016 Export Excel en Html avec mise a jour automatique

[Neileru4]

Bonjour tout le monde,

j'ai un problème avec une page HTML que je crée à partir d'une feuille Excel. Voici mon problème
j'ai crée un fichier excel avec des valeurs et je voudrais que lorsqu'une valeur change dans le tableau, le fichier Excel s'enregistre et exporte automatiquement une page HTML, qui elle-même sera affichée sur un écran télé.
voici la macro que j'ai mis en place grace a des aides sur internet

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 Dim DernièreLigne As Long
 DernièreLigne = [V65536].End(xlUp).Row
 wshSheets = [{"Test"}]
 If Not IsError(Application.Match(Sh.Name, wshSheets, 1)) Then
 With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Users\Desktop\Classeur11.htm" _
        , "Test", "$A$2:$V$" & DernièreLigne, xlHtmlStatic, "test_21297", "")
        .Publish (True)
        .AutoRepublish = True
    End With
 
 ActiveWorkbook.Save
 End If
End Sub

sauf que quand je change une donné ma page html ne s'actualise pas et reste bloquer

pouver vous m'aider??

ma macro n'est peux etre pas bonne ?

 

[patricktoulon]

re
bonjour
heu...
DernièreLigne = [V65536].End(xlUp).Row !!!!!! beep beep
dans ton exemple la colonne "V" est vide donc tu exporte A2:V2
qui sont ...... j'te l'donne dans le mille (jingle!!!roulement de tambour timbale et tout le toutim )

VIDES!!! a part "test fichier" en "C2"
et c'est bien ce que tu a dans le fichier html

et donc!!
With ActiveSheet: DernièreLigne = .UsedRange.Cells(.UsedRange.Cells.Count).Row: End With

(jingle!!!roulement de tambour timbale et tout le toutim )

 

[Neileru4]

merci patrick
mais donc que faut il modifier

 

[Neileru4]

si je modifie la macro comme suit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim DernièreLigne As Long
DernièreLigne = [D17].End(xlUp).Row
wshSheets = [{"Test"}]
If Not IsError(Application.Match(Sh.Name, wshSheets, 1)) Then
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
        "C:\Users\Desktop\Classeur11.htm" _
        , "Test", "$A$2:$d$17" & DernièreLigne, xlHtmlStatic, "test_21297", "")
        .Publish (True)
        .AutoRepublish = True
    End With

ActiveWorkbook.Save
End If
End Sub

cela est bon

par contre comment mettre un temps d'actualisation?

 

[patricktoulon]

merci patrick
mais donc que faut il modifier

re ben tu la vois pas la ligne en gras ?
re
je repete donc
tu remplace ceci
DernièreLigne = [V65536].End(xlUp).Row
par cela
With ActiveSheet: DernièreLigne = .UsedRange.Cells(.UsedRange.Cells.Count).Row: End With

 

[Neileru4]

oui merci j'avais bien compris

mais ma modification fonctionner aussi

par contre y a t il moyen que ma page web s'actualise toute seul au lieu de faire clic droit actualiser?

et si j’intègre in graphique il ne me le prend pas en compte

 

[patricktoulon]

ben c'est normal que tu doit l'actualiser le document est loader avec les old données
pour ca il faudrait ajouter un script avec un timer dans le document

 

[Neileru4]

ah ok
merci pour les infos

pas d'idée pourquoi les graph ne s'affiche pas en web

 

[Neileru4]

Re le forum

Toujours pas d'idée de savoir pourquoi mes graphs ne s'affichent pas?

Et aussi savoir je viens d’intégré une mise en forme (avec jeu d'icone) mais ceci ne s'affichent pas non plus

Et si je mets des couleurs rien ne se mets
y aurait il une modification sur la macro pour dire que les coloris s'affichent

Si vous avez une idée

Merci de votre aide

 

[patricktoulon]

re
juste pour le fun et m'amuser un peu je te propose ça et oublie ton fichier html
vision instantané dans userform(te reste plus qu'a le placer correctement
si il est pas affiché il s'afiche avec la copie html
si il est affichier les modification sont syncro
LOL

 

[Neileru4]

Bonjour a tous
merci pour cette version mais je debute doucement en vba
comment tu utilise useforme
moi sa me fait un carré noir avec alt + f11