tableau en html

[rudaye]

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

 

[MichelXld]

bonjour

j'espere que ce lien pourra t'aider

Lien supprimé

remarque :
il est toujours possible de modifier une page HTML en éditant la source


bonne soiree
MichelXld

 

[rudaye]

Bonsoir et merci MicheXLD !

ça à l'air de correspondre totalement à mon cas je vais étudier cela et je répondrait sur le forum

Merci

 

[rudaye]

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]

rebonsoir

pour enregistrer le classeur au format HTML :

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

 

[rudaye]

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?

 

[rudaye]

Excse moi !!

Ca marche maintenant !

Je sais pas ce qui s'est passé mais c bon!!

MERCI bonne soirée à toa !

 

[rudaye]

Une dernière petite question!

Si je veux entrer le nom du fichier dans une textbox
comment doi'je modifier cette partie en gras:

Fichier = 'D:\\impression html\\test_html.htm'

merci

 

[rudyperray]

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