Discussion :

[Alist3r]

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 !

[Jean-Philippe André]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Code Enregistreur de macros :

Sélectionner tout - Visualiser dans une fenêtre à part

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