C/erreur d’exécution -2147467259 (80004005)-code VBA

Bonsoir,

j'essaie d'envoyer par mail une sélection d'une feuille excel. Mais un message d'erreur s'affiche lorsque j'active le macro.

erreur d’exécution -2147467259 (80004005)

Quelqu'un pourrait-il m'aider sur ce problème, svp?

Merci à l'avance.

Juju

Bonjour MJB77

Pas très conventionnel comme code pour M365, plutôt utilisé pour des versions anciennes, mais il fonctionne chez moi

Sinon https://docs.microsoft.com/fr-fr/office/troubleshoot/excel/run-time-error-2147467259-80004005

@+

Bonjour BrunoM45,

merci pour la réponse mais je ne suis pas très calée en programmation. Et j'avoue que j'ai regardé dans le lien mais je suis bloquée

Ce sont ce que j'ai mis en vert (commentaire) qui ne fonctionnent pas

Cela ne vous ennuie pas de m'éclairer +++, svp?

à+

Juju

Re,

Pour moi l'erreur est dû au fait que l'objet oMail n'est pas affiché,
vVous pouvez essayer comme ceci

Sub envoyerParMail()
  Dim oOutlook As Object
  Dim oMail As Object
  Dim oObjetWord As Object
  ' Créer les instances
  Set oOutlook = CreateObject("Outlook.Application")
  Set oMail = oOutlook.CreateItem(0)

  With oMail
    .Display
    Set oObjetWord = .GetInspector.WordEditor
    .To = "monmail@monmail.com"
    .Subject = "Extrait de la feuille" & ThisWorkbook.Name
    .Body = ActiveCell
    Selection.Copy
    oObjetWord.Range(0).Paste
  End With
End Sub

@+

Bonsoir BrunoM45,

je vous remercie beaucoup.

Après test, cela fonctionne bien

Bonne soirée et à bientôt
Juju