Adapter feuille excel dans mail Outlook

[jjjerome]

Bonjour le forum,

J'ai trouvé sur le forum (je n'ai pas retrouvé l'auteur) un code très intéressant pour insérer une feuille excel dans le corps d'un mail Outlook (via HTML) . J'aimerai maintenant ajuster ce code, pour qu'elle puisse être lu,
1/ que la taille de la feuille excel soit réduite dans le mail,
2/ que l'image soit également insérée
3/ que les colonnes masquées n'apparaissent pas...

Pour être plus clair, ci-joint un exemple de ce code (qui pourra peut être servir à d'autres).

 

[jjjerome]

Re : Adapter feuille excel dans mail Outlook

Bonsoir le forum,
En cette fin de week-end Quelqu'un a t il une idée sur l'un de ces points ?

 

[jjjerome]

Re : Adapter feuille excel dans mail Outlook

Bonjour le forum,
J'aurais peut être plus de chance en ce début de semaine

Comment adapter le code

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