Bonjour,
Je voudrais attacher un fichier .PDF dans un mail excel.
Lors de l'exécution cela bloque à la Ligne 6 !
Un peu d'aide svp
Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
With ActiveSheet.MailEnvelope
      .Item.To = Range("H6")
      .Item.CC = Range("H7") '& ";" & Range("H8")
      .Item.Subject = Range("H5")
    ' possibilité de mettre : & " " & Range("I3")
      .Item.Attachments.Add "Mail GCP" & "_" & Sheets("Mail GCP").Range("H4").Value & ".pdf"
      .Item.Send 'remplacer par Send pour mettre en prod. ou display pour visu avant envoi
 
   End With