SendMail

[momo2394]

Bonjour

Voici une macro qui envoie le fichier par outlook, serait il possible de n'envoyer que la feuille1 seule ou de la transformer en pdf avant de pouvoir l'envoyer merci

 

[PMO2]

Re : SendMail

Bonjour,

Une piste avec le code suivant

Sub EnvoiMailUneFeuille()
Dim objet$
Dim WB As Workbook
Dim WB2 As Workbook
objet$ = "Envoi classeur"
Set WB = ActiveWorkbook
Set WB2 = Workbooks.Add(xlWBATWorksheet)
WB2.Sheets(1).Name = "___pmo"
WB.Sheets(1).Copy After:=WB2.Sheets(1)
Application.DisplayAlerts = False
WB2.Sheets(1).Delete
WB2.SendMail "toto@free.fr", objet$  'A adapter
WB2.Close savechanges:=False
Set WB2 = Nothing
Application.DisplayAlerts = True
End Sub

Cordialement.

PMO
Patrick Morange