Discussion :

[wago91]

Bonjour,

3 jours que je suis dessus, là je craque.
J'essaye d'envoyer un mail automatiquement depuis Excel.
ce que je ne comprends pas c'est que la méthode display fonctionne, mais pas la send, et l'idée c'est que justement cela s'envoie tout seul...
ci dessous le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub envoimail2()
Dim CeFichier As String
CeFichier = ThisWorkbook.Name
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application" )
Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)
Dim oObjetWord As Object
Set oObjetWord = oMail.GetInspector.WordEditor
 
With oMail
    .To = Workbooks(CeFichier).Worksheets("surveillance" ).Range("K2" )
    .Subject = Workbooks(CeFichier).Worksheets("surveillance" ).Range("K4" )
'ca, ca marche, mais il me faut envoyer un tableau
'    .Body = Workbooks(CeFichier).Worksheets("surveillance" ).Range("C2" )
'    .Send
 
'ca, ca marche aussi mais c'est display
'     Workbooks(CeFichier).Worksheets("surveillance" ).Range("C2:F3" ).Copy
'    oObjetWord.Range(0).Paste
'    .Display
 
'ca, ca ne marche pas, ca bloque sur .send avec Erreur 5
'argument ou appel de procédure incorrect
     Workbooks(CeFichier).Worksheets("surveillance" ).Range("C2:F3" ).Copy
     oObjetWord.Range(0).Paste
    .Send
 
End With

Vous auriez des pistes?

[Invité]

Bonjour Wago91

Voici ce que l'on peut faire, car à ma connaissance, ce n'est pas si simple sans afficher l'email créé
Wago91_TestRangeToHtml.xlsm

A+

[wago91]

Je sais pas quoi te dire, t'es un champion, je te remercie GRANDEMENT BrunoM45.

RESOLU