Bonjour
Merci pour ce post, j'ai pu adapter le code "alignement à gauche"
Un truc de bizarre tout fonctionne avec le code ci-dessous dans une nouveau fichier,
par contre quand j’insère ce code dans un fichier existant, le centrage ne se fait pas
d'où ça peut venir ?
Pouvez-vous m'aider ?
Merci d'avance
voici mon code (adapté des différents auteurs merci à eux) :
__________________________________________________________________________________________
Public Function ReadFile(sFileName) As String
Dim fso As Object, fFile As Object
Dim sTemp As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set fFile = fsOpenTextFile(sFileName, 1, False)
sTemp = fFile.ReadAll
sTemp = Replace(sTemp, "align=center x
ublishsource=", "align=left x
ublishsource=")
fFile.Close
Set fFile = Nothing
ReadFile = sTemp
End Function
__________________________________________________________________________________________
Sub PrepareOutlookMail(ByVal sFileName As String)
Dim appOutlook As Outlook.Application
Dim oMail As Outlook.MailItem
Set appOutlook = CreateObject("Outlook.Application")
If Not (appOutlook Is Nothing) Then
Set oMail = appOutlook.CreateItem(olMailItem)
oMail.HTMLBody = ReadFile(sFileName)
oMail.Display
Set oMail = Nothing
Set appOutlook = Nothing
End If
End Sub
__________________________________________________________________________________________
Sub SendRangeByMail()
Dim rngeSend As Range
With Application
On Error Resume Next
Set rngeSend = Range("c5:j12")
.ActiveWorkbook.PublishObjects.Add(4, "C:\Users\Public\XLRange.htm", rngeSend.Parent.Name, rngeSend.Address, 0, "", "").Publish True
Call PrepareOutlookMail("C:\Users\Public\XLRange.htm")
Kill "C:\Users\Public\XLRange.htm"
End With '
End Sub