tableau en html

  • Initiateur de la discussion rudaye
  • Date de début
R

rudaye

Guest
une autre question

Est il possible de réaliser ceci:

J'ai une feuille excel avec un tableau et je voudrais l'envoyer par mail à d'autres personnes sans qu'ils puissent le modifier !

Sans passer par une imprimante virtuelle PDF je voudrais faire un bouton impression qui transcrive le tableau en fichier HTML!

Est-ce possible

merci
 
R

rudaye

Guest
J'ai essayé le code mais tout ce dont j'ai besoin c'est de créer le fichier HTML donc peux tu me dire quelle partie du code peux convenir dans mon utilisation?

Mercid'avance

Sub SauvegardeFeuilleFormatHtml_EnvoiMail()
''testé avec Excel2002
'cet exemple enregistre la feuille 1 du claseur actif au format htm
'et envoi par mail le fichier
'necessite d'activer la reference Microsoft Outlook xx.x Object Library
Dim Fichier As String
Dim OutApp As New Outlook.Application
Dim olMail As MailItem

Fichier = 'C:\\Documents and Settings\\michel\\maPageHtml.htm' 'adapter le chemin
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Fichier, 'Feuil1', '', xlHtmlStatic, '', '').Publish

Set OutApp = New Outlook.Application
Set olMail = OutApp.CreateItem(olMailItem)

With olMail
.To = 'LeForum@XLD.fr'
.Subject = 'Envoi fichier'
.Body = 'Bonjour , ' & vbLf & 'vous touverez ci joint le fichier demandé .' & vbLf & vbLf & _
'Cordialement . ' & vbLf & Application.UserName
.Attachments.Add Fichier
.Send
End With

'Kill Fichier 'option pour supprimer le fichier html apres l'envoi
End Sub
 

MichelXld

XLDnaute Barbatruc
rebonsoir

pour enregistrer le classeur au format HTML :

Code:
Sub SauvegardeFeuilleFormatHtml() 
Dim Fichier As String 

Fichier = 'C:\\Documents and Settings\\michel\\maPageHtml.htm' 'adapter le chemin 
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Fichier, 'Feuil1', '', xlHtmlStatic, '', '').Publish 

End Sub

bonne soiree
MichelXld
 
R

rudaye

Guest
merci mais il me met l'erreur:

erreur définie par l'application ou par l'objet

sur la ligne :

ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Fichier, 'Feuil4', '', xlHtmlStatic, '', '').Publish


pkoi?
 
R

rudyperray

Guest
nan bah c bon g trouvé comme un grand !

If TextBox1 = '' Then
MsgBox 'Veuillez donner un nom au fichier!', vbCritical
TextBox1.SetFocus
Exit Sub
End If
Nom = TextBox1.Value
Fichier = 'D:\\impression html\\' & Nom & '.htm'
ActiveWorkbook.PublishObjects.Add(xlSourceSheet, Fichier, WSName, '', xlHtmlStatic, '', '').Publish
Unload Me
End Sub

merci bonne soirée
 

Discussions similaires

  • Question
XL pour MAC mise en forme
Réponses
2
Affichages
302

Statistiques des forums

Discussions
312 928
Messages
2 093 697
Membres
105 787
dernier inscrit
BABOU79