Créer un fichier HTML a partir du contenu excel

Version imprimable

09/05/2017, 12h03
Alist3r

Créer un fichier HTML a partir du contenu excel

Bonjour tout le monde,

Après avoir écumé internet depuis quelques demi journée de travail, je viens pleurer ici en quête d'une âme charitable capable de m'aider ou de m’aiguiller.

Voici le soucis :
J'utilise un tableau excel pour faire de la documentation d'installation logiciel, et j'en ai marre de cet aspect non professionnel et surtout TRÈS MOCHE !

J'ai donc fait un tableau plus propre avec tous les champs dont j'ai besoin pour en faire un très beau fichier HTML.

Le seul soucis, comment passer de mon fichier excel à mon fichier HTML.
J'ai mis en place un bouton sur le classeur pour permettre le déclencheur, et j'ai déja le squelette du fichier html .

Je ne sais pas trop quoi vous fournir, je vous remercie par avance !
:D

Salut,

à partir du code dans la :faq:
https://excel.developpez.com/faq/?pa...geCellulesMail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub SendRangeByMail()
 
Dim rngeSend As Range
 
   With Application
 
      On Error Resume Next
 
      ' Demande à l'utilisateur de sélectionner la
      ' plage de cellule
 
      Set rngeSend = .InputBox(Prompt:="Please select range you wish to send.", Type:=8, Default:=.Selection.Address)
 
      ' rngeSend Is Nothing lorsque l'utilisateur ne fait
      ' aucun choix
 
       If rngeSend Is Nothing Then Exit Sub
 
      On Error GoTo 0
 
      ' Exporte la plage vers un fichier de type HTML;
      ' ceci afin de respecter la mise en page de la
      ' plage
 
      .ActiveWorkbook.PublishObjects.Add(4, "C:\Temp\XLRange.htm", rngeSend.Parent.Name, rngeSend.Address, 0, "", "").Publish True
 
 
   End With ' With Application
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
Sub Macro3()'
' Macro3 Macro
'
 
 
'
    ChDir "C:\MyRepertoire"
    ActiveWorkbook.SaveAs Filename:="C:\MyRepertoire\Fichier.mht", _
        FileFormat:=xlWebArchive, CreateBackup:=False
End Sub