Envoie feuille format html par mail

Bonjour le forum,

Je fais un petit prog depuis quelque temps, je suis complètement autodidacte.
Je suis arrivé a la fin, et cela grâce a vous, car j’ai pioché des bouts de code par-ci par-là sur ce forum (thanks @+Thierry, Ti, ….), j’ai même réussi a les adapter !
Mais j’ai encore un problème, et en cherchant partout (excel dowload, jhttp://frederic.sigonneau.free.fr/Fichiers.htm, etc…)je ne trouve que des demi solutions.
Où je cherche mal.
Je voudrais envoyer par mail une feuille d’un classeur et au format html……Code devant se trouver sur un bouton.
Quelqu’un peut m’aider ?

Merci !

bonsoir Scoy

L'exemple joint permet d'enregistrer la Feuil1 au format htm et de l'envoyer par mail


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


bonne soirée
MichelXld

Bonjour Michel,
Tout d'abord merci d’essayer de m’aider!

Mais malheureusement, ça ne marche pas.... "la méthode "publish" de l'objet "publishobject" a échoué"....
J'ai bien coché la référence microsoft outlook 10.0 object library, j'ai juste changé le chemin et l'adresse mail...
J'ai d'abord essayé dans mon prog, mais même erreur, je me suis demandé si ce n'était pas la protection de la feuille, mais non.
J'ai fait un nouveau classeur et j'ai eu le même problème....
Si tu sais regarder dans le fichier ci-joint?
Merci !

bonjour Scoy

apres quelques tests , dans le cas de l'utilisation d'un CommandButton , il semblerait que la selection de la feuille soit impérative avant de pouvoir utiliser la methode Publish
pour resoudre ce probleme tu peux essayer d'insérer un Range("A1").Select en debut de macro

......
Dim olMail As MailItem

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


bonne soirée
MichelXld

Ok, Meeeeeeeerrrrccciiiiiiiiii !!!!!!!
ça fonctionne nikel !!!
A+