XL 2013 Export vers html SANS les colonnes masquées du fichier xslx d'origine

MDG

XLDnaute Nouveau
Bonjour,

J'ai un document excel contenant plusieurs colonnes dont certaines sont masquées volontairement.
Ce que je voudrais c'est d'exporter (ou publier) le tableau excel vers le format html SANS que les colonnes masquées apparaissent aux côtés des colonnes affichées.

Exemple :

1570959032097.png

(Précision : Je ne veux pas masquer des lignes, mais toute la colonne B dans mon export vers HTML)

J'ai retourné de nombreux sujets de forums divers, je n'ai rien trouvé sur ce sujet.

Merci beaucoup par avance.

MDG.
 

Staple1600

XLDnaute Barbatruc
Re

Donc sur la base de ta copie d'écran et en suivant ma suggestion du message#2
Test OK sur mon PC avec cette petite macro
VB:
Sub Export_HTML()
Dim DC&, i&, strPath$
strPath = ThisWorkbook.Path & "\"
ActiveSheet.Copy After:=Sheets(Sheets.Count)
DC = Cells(1, Columns.Count).End(xlToLeft).Column
Application.DisplayAlerts = False
For i = 1 To DC
If Columns(i).Hidden Then
Columns(i).Delete
End If
Next
Range("A1").CurrentRegion.Borders.LineStyle = 1
ActiveSheet.Name = "EXPORT_HTM"
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        strPath & "test01.htm", "EXPORT_HTM", "", xlHtmlStatic, _
        "TEST", "")
        .Publish (True)
        .AutoRepublish = False
End With
Sheets("EXPORT_HTM").Delete
End Sub
NB: Il faudra peaufiner ensuite
(notamment au niveau du nommage du fichier exporté etc...)
 

MDG

XLDnaute Nouveau
Bonjour Staple1600,

Merci beaucoup pour ta proposition. L'export html c'est pour alimenter dynamiquement un sharepoint de travail particulier. J'avais déjà pensé à copier le contenu d'une feuille de classeur dans une nouvelle puis d'exporter en html mais j’espérais qu'il existe une solution plus rapide pour l'export à partir de la feuille excel de base.

Merci beaucoup. Bravo pour cette macro notamment, j'y avais pas pensé.

Cordialement,

Mathieu, MDG
 

Statistiques des forums

Discussions
314 737
Messages
2 112 328
Membres
111 510
dernier inscrit
dede48