XL 2019 Figer une colonne en HTML venant d'un fichier Excel

patricktoulon à dit:

bonjour
la moindre chose que l'on clique ou sélectionne déclenche une erreur
parti de la ca va être difficile de t'aider
a mon avis tu a bien d'autre soucis à régler avant la largeur d'une colonne html
par exemple gérer les annulation des inputbox ou encre les erreurs quand on veut imprimer ,et j'en passe et des meilleures ,il y en a tellement

Cliquez pour agrandir...

patricktoulon à dit:

re:
il n'y a rien d'agressif dans ma réponse seulement des conseils avisés
avant de faire du relooking de tableau excel ou html ,on fait fonctionner son moteur vba comme on le souhaite
çà me parait essentiel pour avancer

1 °quand on publie avec "PublishObjects" déjà pour refaire le css des colonne ca implique une reouverture de fichier html dans un htmldocument en memoire (IE n'etant plus dispo)
2pourtant si tu cherche bien dans les source je propose un code pour convertir un range ou tableau structuré en html identique (y compris les largeurs colonne)
donc la deja Wrong Way

2 un inputbox ca se gère de A à Z y compris le bouton annuler ou la croix de fermeture (absent dans le projet)

3 travailler avec google chrome avec des pages locales c'est la bérézina

bref utilise une autre methode pour créer tes pages web basées sur des plages
ou
laisse les comme excel te les publie

Cliquez pour agrandir...

fanch55 à dit:

Bonjour,
dans Sub Genere_Fichier_HTML(), remplacer le code de publication des 30 jours glissants par :

VB:

'   30 JOURS GLISSANTS - OK le 10/04/2026
    Htm30 = rep & "\CALENDRIER LIVRAISON_30 Jours Glissants.htm"
    ActiveSheet.Range("A1:AE22").Select
    With ActiveWorkbook.PublishObjects.Add(xlSourceRange, Htm30, _
        "Calendrier Livraison (2)", "A1:AE22", xlHtmlStatic, _
        "TEST_Calendrier Livraison_19002", "")
        .Publish (True)
        .AutoRepublish = False
        '.AutoRepublish = True
    End With
    F = FreeFile
    Open Htm30 For Input As #F
        Data = Replace(Input$(LOF(F), #F), "<!--table", "<!--table" & vbLf & "td:nth-child(1) {position:fixed;width:50pt;}" & vbLf)
    Close #F
    Open Htm30 For Output As #F: Print #F, Data: Close #F

Attention: C'est une proposition spécifique à votre demande et au classeur fourni .

Cliquez pour agrandir...