Bonjour,

J'ai une macro qui fonctionne mais je souhaite y apporter une modification.
En effet la macro initiale envoyait le classeur actif ("impr V5.xlsm"), comme pièce jointe à un classeur.
Maintenant j'ai exporté un pdf à partir d'une des feuille du classeur et je ne souhaite envoyer que ce fichier .pdf.

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
Sub MailOutlookExpress()
 
  Dim Chemin$, Repertoire$, Fichier$
    With Sheets("DataDev")
    Chemin = .Range("C10")
    Repertoire = .Range("C13")
    Fichier = .Range("C25")
 
    'Ci dessous le fichier que je souhaite joindre
    'Chemin & Repertoire & "\" & Fichier & ".pdf"
 
    Workbooks("impr V5.xlsm").SendMail Recipients:="monmail@gmail.com", _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End Sub
Mon soucis, je ne sais pas comment, ni par quoi remplacer " Woorkbooks("impr V5.xlsm")

Si qqun à une piste à me donner,

Merci d'avance.