bonjor j'ai récupére et adapter ce code pour générer un pdf et l'envoyer par mail.
mais il est prévu pour excel 2007 pourriez vous m'aider à l'adapter pour XL2002, Merci de votre aide précieuse.
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
Dim nom As String, ol As New Outlook.Application
Dim olmail As MailItem, mail As String
'ci-dessous, on prend les mails dans une feuille
Sheets("trame").Select
Sheets("trame").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   "D:\orféa\trame" & Date, Quality:= _
   xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
   OpenAfterPublish:=False
nom = "D:\orféa\trame" & ".pdf"
'messmail = "veuillez trouvez ci joint nos réservations pour votre résidence, merci."
messmail = "Ceci est un test ne veuillez pas tenir compte de ces réservations."
 
mail = Sheets("trame").Range("C10")
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
   .To = admail
   .Subject = "TEST" 'Sujet
   .Body = messmail 'Corps du mail
   .Attachments.Add nom
    End If
    .Display '.Send     'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With