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
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
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