Utilisation de PublishObjects

Bonjour,

Je recherche de l'aide pour l'utilisation d'un PublishObjects car je ne le maitrise pas du tout et j'ai du mal a comprendre en détail son fonctionnement.

Voici mon code :

With ThisWorkbook.PublishObjects.Add(xlSourceRange, "C:\Users\FirstUser\Desktop" & Now() & ".htm", "Feuil1", ThisWorkbook.Worksheets("Feuil1").UsedRange.adress, xlHtmlStatic)

.Publish (True)

End With

Sauf que ça ne fonctionne pas, ça me quitte directement ma fonction.

Quelqu'un saurait pourquoi ?

Bonjour,

Il faut mettre deux d à "adress" : Address

Je vais clore le sujet car entre temps j'ai trouver une autre solution fonctionnel

Voici ce que j'ai utilisé (au cas ou cela serve a quelqu'un un jour)

Dim OutApp As Object
Dim OutMail As Object
Dim wDoc As Object
Dim rng As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set wDoc = OutMail.GetInspector.WordEditor

SigString = Environ("appdata") & "\Microsoft\Signatures\MySignature.htm"

If Dir(SigString) <> "" Then
    Signature = GetBoiler(SigString)
Else
    Signature = ""
End If

'Objet, destinataire, copie, copie caché, envoi du mail
    With OutMail
        .display
        .To = "aaa@bbb.fr"
        .CC = "aaa@bbb.fr"
        .BCC ="aaa@bbb.fr"
        .Subject = "Sujet Test"

        Worksheets("Feuil1").Range("F16:N17").Copy
        Set rng = wDoc.Content
        .HTMLBody = strbody & "<br>" & rng.Paste & "<br>" & .HTMLBody & Signature

    End With

ainsi que la fonction GetBoiler pour la signature

Function GetBoiler(ByVal sFile As String) As String
    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

Merci en tout cas pour l'info sur la syntaxe