Discussion :

[thibautewbank]

bonjour a tous je cherche le moyen d'envoyer un e-mail automatique en vba j ai deja une partie du code mais ca bloque a louverture d'outlook je n arrive pas a mettre une adresse de destination automatique
voici mon code: ca bloque au niveau du rouge

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
Sub create()
'
' create Macro
'
' Keyboard Shortcut: Ctrl+y
'
Range("A15:Q42").Select
Selection.Copy
Workbooks.Open Filename:= _
"M:\marketing\Yield Management\YM CCB Dashboards\Price tool\Price tool 2012\template essais.xlsx"
lig = Range("a42").End(xlUp).Offset(1, 0).Select
Selection.Paste
ActiveWorkbook.Save
Application.Dialogs(xlDialogSendMail).ShowActiveWindow.Close
Range("A15").Select
End Sub

quelqu un pourrait il maider c est super important merci d avance

[Daniel.C]

Bonjour,

La ligne 14 contient deux instructions non séparées par ":". Soit tu mets :

Code :

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

1
2
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close

soit :

Code :

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

Application.Dialogs(xlDialogSendMail).Show: ActiveWindow.Close

[SfJ5Rpw8]

bonjour,

Code :

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

Application.Dialogs(xlDialogSendMail).Show "thibautewbank@gmail.com"