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