XL 2013 VBA - insérer une plage de cellule dans un courriel

Staple1600 à dit:

Re

Le but n'est pas de l'intégrer mais de l'adapter
(voir plus loin dans le fil ce que j'ai proposé et qui fonctionne
test tout frais de ce matin)
Faites un test simple qui vous convaincra que cela fonctionne
Et ensuite je vous aiderai volontiers à faire les adaptations nécessaires.

PS: Dans votre message#1, vous avez oublié de poster la fameuse fonction GetBoiler de Dick Kusleika.
Je la poste ci-dessous (pour ceux que cela pourrait interesser)

VB:

Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

[/code]

Cliquez pour agrandir...