XL 2019 Envoyer image et mise en forme conditionnelle dans un mail

ICE_SACCO

XLDnaute Junior
Bonjour,

Je souhaiterai savoir s'il existe un moyen d'envoyer dans le corps d'un mail une image sachant que cette dernière est à prendre dans la feuille Excel et non sur un chemin disque.
de plus j'ai une mise en forme conditionnelle de couleur qui n'est pas reprise dans mon mail si vous avez une idée.

J'utilise cette macro:

Function mail_outlook_Expert_RangetoHTML(rng As Range)

Dim fso As Object

Dim ts As Object

Dim TempFile As String 'déclaration du fichier temporaire

Dim TempWB As Workbook 'déclaration du classeur temporaire



With Application

.EnableEvents = False

.ScreenUpdating = False

.Calculation = xlCalculationManual

End With



'Création du fichier HTML (.htm et .html créent exactement le même fichier)

TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".html"



'Copie la plage de données et crée un nouveau classeur pour coller les données dedans

rng.Copy

Set TempWB = Workbooks.Add(1)

With TempWB.Sheets(1)

.Cells(1).PasteSpecial Paste:=8

.Cells(1).PasteSpecial xlPasteValues, , False, False

.Cells(1).PasteSpecial xlPasteFormats, , False, False

.Cells(1).Select

Application.CutCopyMode = False

On Error Resume Next

.DrawingObjects.Visible = True

.DrawingObjects.Delete

On Error GoTo 0

End With



'Publier la feuille dans un fichier htm

With TempWB.PublishObjects.Add( _

SourceType:=xlSourceRange, _

Filename:=TempFile, _

Sheet:=TempWB.Sheets(1).Name, _

Source:=TempWB.Sheets(1).UsedRange.Address, _

HtmlType:=xlHtmlStatic)

.Publish (True)

End With



'Lire toutes les données du fichier htm dans RangetoHTML

Set fso = CreateObject("Scripting.FileSystemObject")

Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)

mail_outlook_Expert_RangetoHTML = ts.ReadAll

ts.Close

mail_outlook_Expert_RangetoHTML = Replace(mail_outlook_Expert_RangetoHTML, "align=center x:publishsource=", _

"align=left x:publishsource=")



'Ferme le classeur temporaire TempWB

TempWB.Close savechanges:=False



'Tue le fichier .htm utilisé dans cette fonction

Kill TempFile



Set ts = Nothing

Set fso = Nothing

Set TempWB = Nothing





With Application

.EnableEvents = True

.ScreenUpdating = True

.Calculation = xlCalculationAutomatic

End With



End Function



Merci d'avance
 

patricktoulon

XLDnaute Barbatruc
bonjour
il y a plus simple
insérer la copypicture de la plage dans le mail c'est une image mais elle reproduit plus fidèlement ta plage

perso j'ai mes propres fonction range to html mais bon si tu maîtrise pas .....sur les ancienne version de outlook on pouvait paster aussi je me souviens plus comment peut être que c'est encore possible aujourd'hui
 

Discussions similaires

Réponses
2
Affichages
577
Réponses
12
Affichages
453

Membres actuellement en ligne

Statistiques des forums

Discussions
314 499
Messages
2 110 249
Membres
110 711
dernier inscrit
chmessi