Discussion :

[goninph]

Bonjour,

Comment envoyer une ou plusieurs pièces jointes avec la même macro ?

J'ai une macro pour envoyer un mail à plusieurs destinataires, l'un après l'autre, j'ai 3 pièces jointes possibles, certains en recevront 2, d'autres 3 ou d'autres 1, selon ma sélection

Voici un bout de mon code, mais lorsque je vide la cellule contenant le lien ça bug, comme si le fichier n'existait pas

Merci pour votre aide et bon weekend
Philippe

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
24
25
26
27
28
29
30
31
32
33
34
'Boîte de message si OK
    MsgBox _
    "À… " & vaRecipients & _
    vbCrLf & vbCrLf & _
    "Cc… " & vaCopyTo & _
    vbCrLf & vbCrLf & _
    stSubject _
    , vbInformation, "Le mail suivant est prêt à être envoyé :"
    With email
        .To = vaRecipients
        .CC = vaCopyTo
        .Subject = stSubject
        .HTMLBody = vaMsg
        .Attachments.Add (OutFilePath)
        .Attachments.Add Range("CellAttachFichier1").Value
        .Attachments.Add Range("CellAttachFichier2").Value
        .Attachments.Add Range("CellAttachFichier3").Value
        .Display
    End With
    Set email = Nothing
    Set messagerie = Nothing
Exit Sub
Fichiers_joints:
        MsgBox _
        "Vérifier la présence et le nom des 2 documents dans le dossier :" & _
        vbCrLf & vbCrLf & _
        "- R:\SCH\Pool\Allgemein\Fulfillment WEST\- Documents outils de suivi" & _
        vbCrLf & vbCrLf & _
        "- Instruction de démontage K_40105391.pdf" & _
        vbCrLf & vbCrLf & _
        "- SUVA travailler en toute sécurité dans les cages d'ascenseurs.pdf" & _
        vbCrLf & vbCrLf _
        , vbExclamation, "! Oups !"
End Sub

[parmi]

Bonjour,

Voici un bout de mon code, mais lorsque je vide la cellule contenant le lien ça bug, comme si le fichier n'existait pas

Je ne suis pas certain de bien comprendre, mais si tu effaces le chemin du fichier dans la cellule comme ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Attachments.Add Range("CellAttachFichier1").Value

Il te faudrait vérifier si celle-ci est vide avant de joindre le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Range("CellAttachFichier1").Value <> "" Then .Attachments.Add Range("CellAttachFichier1").Value