Discussion :

[Thierry60440]

Bonjour a tous, merci de accueillir sur ce forum.
j'expose mon problème: j'ai crée une macro pour enregistrer une feuille excel en PDF en envoi par mail, ça fonctionne très bien en insérant la feuille dans le corps du message. Sauf que je voudrais l’insérer en pièce jointe. J'ain donc modifier certaines choses mais j'ai systématiquement un bug sur cette ligne : Item.Attachments.Add nomFichier. J'utilise W10 et office 2016. Merci pour votre aide. Voici ma macro.

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
35
36
37
38
39
Sub Envoi()
    Dim nomFichier As String
    Dim cheminFichier As String
    Dim CorpsMessage As String
 
    nomFichier = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "-" & Range(" E9") & "-" & Range("B16")
    cheminFichier = "C:\Users\Thierry\Desktop\sauvegarde\" & nomFichier
 
    ActiveSheet.Range("A1:G47").Select ' la plage de cellules à envoyer
 
    ' Partie du code permettant l'enregistrement du fichier
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=cheminFichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
    ' Partie permettant l'envoi avec pièce jointe
 
 
    ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
    .Item.to = "xxx@xxx.fr"
    .Item.Subject = Range("e9")
    .Introduction = "Bonjour," & vbCrLf & vbCrLf _
                    & "Veuillez trouver ci-joint le bon de commande pour le véhicule" & " " & Range("E9").Value & vbCrLf & vbCrLf _
                    & "Cordialement"
        .Item.Attachments.Add nomFichier
        .Item.Send
 
        Range("e7,e9,g12,a36").Value = ""
 
        ActiveWorkbook.Save
        If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
    End With
 
End Sub

[halaster08]

Bonjour,

Sauf erreur de ma part, dans ta variable nomFichier il n'y a pas le chemin or le chemin est nécessaire pour l'insertion de la PJ dans le mail

Code :

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

1
2
3
 
 nomFichier = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "-" & Range(" E9") & "-" & Range("B16")
    cheminFichier = "C:\Users\Thierry\Desktop\sauvegarde\" & nomFichier

Remplace donc

Code :

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

 .Item.Attachments.Add nomFichier

Par

Code :

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

 .Item.Attachments.Add cheminFichier

[Thierry60440]

Merci, mais ça fait la même chose.

[MarcelG]

Bonsoir,

Personnellement, ayant rencontré des problèmes quant à l'emploi de la méthode EnvelopeVisible, je préfère
- Piloter l'application Outlook en fermant la session éventuelle et en ouvrant une nouvelle
- Créer un item et lui attacher la pièce jointe
- Adresser celui-ci

J'ai reporté ce développement dans cette discussion.

[Thierry60440]

Merci pour ce retour, mais n'étant pas très a l'aise avec la programmation, je n'arrive pas à l'adapter.

[halaster08]

Merci, mais ça fait la même chose.

Peux-tu vérifier si dans ta variable nomFichier tu as l'extension ou pas ?
Si la réponse est non, essaye:

Code :

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

 .Item.Attachments.Add cheminFichier &".pdf"

edit: si ça ne fonctionne toujours pas, peux-tu nous donner le contenu exact de tes variables au moment de l'erreur
Peux-tu aussi essayer d'écrire en dur le chemin + le nom + l'extension du fichier et ainsi voir si ça fonctionne sans variable

[Thierry60440]

Merci beaucoup, ça fonctionne . Sans vouloir abuser, ça m'affiche toujours la PJ dans le corps du message, y a t'il moyen de le supprimer ?

[halaster08]

Merci beaucoup, ça fonctionne . Sans vouloir abuser, ça m'affiche toujours la PJ dans le corps du message, y a t'il moyen de le supprimer ?

Peut-être parce que tu utilise MailEnvelope ? Je n'ai jamais testé

Ci-dessous, la macro d'envoi de mail que j'utilise:

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
 
Dim ObjOutlook As Object
Set ObjOutlook = CreateObject("outlook.application")
 
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
        With oBjMail
            .Display 'pour la signature
            .To = "" 'destinataire
            .CC = "" 'copie
            .Subject = "" 'titre
            .Body = ""  'message
            .Attachments.Add "chemin et nom avec extension de la pj"  'pièces jointes
 
            'au choix l'une des trois lignes suivantes
            .Display 'pour afficher le message dans outlook
            '.Save 'pour le sauver dans les brouillons
            '.send 'pour l'envoyer
 
        End With

[Thierry60440]

Bonjour, j'ai modifié en passant envelopeVisible de true en false, mais ça ne change rien. C'est pas grave, ce n'est pas ce qui me gêne le plus. Merci pour vos collaboration.