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
quelqu un pourrait il maider c est super important merci d avance
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
Partager