Envoyer une mail avec VBA

Bonjour,

Je voudrais envoyer une page excel dans un mail. Pour cela j’ai créé le programme ci-dessous qui à fonctionné pendant 5 mois et qui aujourd’hui ne fonctionne plus :

Sub EnvoyerMail()
Sheets(“Fiche Vierge”).Activate

'Exporte la plage vers un fichier de type HTML ceci afin de respecter la mise en page de la plage
ActiveWorkbook.PublishObjects.Add(xlSourceRange, “C:\Temp\XLRange.htm”, “Fiche Vierge”, _
“$B$1:$H$15”, xlHtmlStatic, “”, “”).Publish True (Cette ligne ne fonctionne plus)

PrepareOutlookMail ("C:\Temp\XLRange.htm")

'Le fichier HTML n'est plus nécessaire:
Kill "C:\Temp\XLRange.htm"

End Sub

Sauriez-vous me dire quel est le problème dans ma formule?
D’avance merci,

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.