XL 2016 Envoi pièce jointe par mail

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion SALAH
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

SALAH

XLDnaute Occasionnel
Bonjour le forum

Je reviens vers vous car j' avais posté une discussion concernant l' envoi de mail avec pièce jointe en pdf.

Serait il possible que vous m' aidiez à utiliser le même code qui marche parfaitement mais au lieu d' avoir le fichier en pdf il serait en xls

En fait je m' explique, j' aimerais créer un mail et envoyer l' onglet du classeur en xls

Ci-joint le code ci-dessous à remodifier

Merci à vous tous

Private Sub CommandButton2_Click()
Dim destinataire, sujet, fichierjoint As String
destinataire = "cerise@free.fr"
sujet = "Fichier " & Range("D9").Value

Sheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & "Sheet1.pdf"

text1 = " Bonjour " & "<br>"
text2 = "<br>"
text3 = " Je te prie de trouver ci-joint le fichier en pdf " & "<br><br>"
text4 = "Bien Cordialement" & "<br><br>"
text5 = "Salah" & "<br><br>"
text6 = "Tél.: 01-45-23-12-11"

Body = text1 & text2 & text3 & text4 & text5 & text6


fichierjoint = "C:\Users\Salah\Desktop\donnees\Sheet1.xls"

strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body=" & Body
strcommand = strcommand & "," & "attachment=file:///" & fichierjoint
'MsgBox strcommand

Call Shell(strcommand, vbNormalFocus)

End Sub
 
Trier par date Trier par votes
Bonjour,

Si ton fichier est déjà présent avec le nom "Sheet1.xls" dans le dossier "donnees" alors je pense qu'il te suffit de supprimer la ligne qui s'occupe d'imprimer ton excel en pdf.
Par contre un truc me titille, pourquoi fichierjoint est déjà Sheet1.xls ? Tu dis pourtant envoyer un pdf à l'heure actuelle ?

Bonne continuation
 
Vote positif 0 Vote négatif
Bonjour Salah et le forum,
une solution à tester:
VB: 
Private Sub CommandButton2_Click()

    Dim NewWbk    As Workbook
    Dim destinataire As String, Sujet As String, Message As String
    Dim FilePath As String, FileName As String

    destinataire = "cerise@free.fr"
    FilePath = Environ$("temp") & "\"
    Sujet = "Fichier " & ThisWorkbook.Sheets(1).Range("D9").Value
        
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    ActiveSheet.Copy
    
    Set NewWbk = ActiveWorkbook
    
    With NewWbk
        FileName = .Sheets(1).Name
        .SaveAs FilePath & FileName, FileFormat:=51 '56 pour xls
    End With
    
    PieceJointe = NewWbk.FullName
    
    text1 = " Bonjour " & "<br>"
    text2 = "<br>"
    text3 = " Je te prie de trouver ci-joint le fichier......." & "<br><br>"
    text4 = "Bien Cordialement" & "<br><br>"
    text5 = "Salah" & "<br><br>"
    text6 = "Tél.: 01-45-23-12-11"
    
    Message = text1 & text2 & text3 & text4 & text5 & text6
    
   strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
   strcommand = strcommand & " -compose " & "to= '" & destinataire & "'"
   strcommand = strcommand & "," & "subject=" & Sujet & ","
   strcommand = strcommand & "body=" & Message
   strcommand = strcommand & "," & "attachment=" & PieceJointe
    
    Call Shell(strcommand, vbNormalFocus)
    
    NewWbk.Close
    
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
End Sub
 
Vote positif 0 Vote négatif
Bonjour le forum, Sequoyah, xUpsilon

Sa marche à merveille Sequoyah, exactement ce que je veux
sinon une autre précision si cela ne te dérange pas serait il possible que la pièce jointe porte le même nom que la cellule D9,?
En te remerciant par avance
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour Salah,
merci pour ton retour. J'espère ne pas avoir mal compris, si le nom de l'onglet est dans la cellule D9, la feuille correspondante est copiée. J'ai aussi ajouté le code pour supprimer les boutons de la copie du fichier. Voici le code corrigé:
VB: 
Private Sub CommandButton2_Click()
'https://www.excel-downloads.com/threads/envoi-piece-jointe-par-mail.20038977/

    Dim NewWbk    As Workbook
    Dim destinataire As String, Sujet As String, Message As String, Feuille As String
    Dim FilePath As String, FileName As String
    Dim btn As Shape

    destinataire = "cerise@free.fr"
    FilePath = Environ$("temp") & "\"
    Sujet = "Fichier " & ThisWorkbook.Sheets(1).Range("D9").Value
    Feuille = ThisWorkbook.Sheets(1).Range("D9").Value
    
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    Sheets(Feuille).Copy
    
    Set NewWbk = ActiveWorkbook
    
    With NewWbk
        FileName = .Sheets(1).Name
                
        For Each btn In ActiveSheet.Shapes
            If btn.AutoShapeType = msoShapeStyleMixed Then btn.Delete
        Next
                
        .SaveAs FilePath & FileName, FileFormat:=51 '56 pour xls
    End With
    
    PieceJointe = NewWbk.FullName
    
    text1 = " Bonjour " & "<br>"
    text2 = "<br>"
    text3 = " Je te prie de trouver ci-joint le fichier......." & "<br><br>"
    text4 = "Bien Cordialement" & "<br><br>"
    text5 = "Salah" & "<br><br>"
    text6 = "Tél.: 01-45-23-12-11"
    
    Message = text1 & text2 & text3 & text4 & text5 & text6
    
    strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
    strcommand = strcommand & " -compose " & "to= '" & destinataire & "'"
    strcommand = strcommand & "," & "subject=" & Sujet & ","
    strcommand = strcommand & "body=" & Message
    strcommand = strcommand & "," & "attachment=" & PieceJointe
    
    Call Shell(strcommand, vbNormalFocus)
    
    NewWbk.Close
    
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
End Sub
 
Vote positif 0 Vote négatif
Sequoyah à dit:
Bonjour Salah,
merci pour ton retour. J'espère ne pas avoir mal compris, si le nom de l'onglet est dans la cellule D9, la feuille correspondante est copiée. J'ai aussi ajouté le code pour supprimer les boutons de la copie du fichier. Voici le code corrigé:
VB: 
Private Sub CommandButton2_Click()
'https://www.excel-downloads.com/threads/envoi-piece-jointe-par-mail.20038977/

    Dim NewWbk    As Workbook
    Dim destinataire As String, Sujet As String, Message As String, Feuille As String
    Dim FilePath As String, FileName As String
    Dim btn As Shape

    destinataire = "cerise@free.fr"
    FilePath = Environ$("temp") & "\"
    Sujet = "Fichier " & ThisWorkbook.Sheets(1).Range("D9").Value
    Feuille = ThisWorkbook.Sheets(1).Range("D9").Value
   
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
    End With
   
    Sheets(Feuille).Copy
   
    Set NewWbk = ActiveWorkbook
   
    With NewWbk
        FileName = .Sheets(1).Name
               
        For Each btn In ActiveSheet.Shapes
            If btn.AutoShapeType = msoShapeStyleMixed Then btn.Delete
        Next
               
        .SaveAs FilePath & FileName, FileFormat:=51 '56 pour xls
    End With
   
    PieceJointe = NewWbk.FullName
   
    text1 = " Bonjour " & "<br>"
    text2 = "<br>"
    text3 = " Je te prie de trouver ci-joint le fichier......." & "<br><br>"
    text4 = "Bien Cordialement" & "<br><br>"
    text5 = "Salah" & "<br><br>"
    text6 = "Tél.: 01-45-23-12-11"
   
    Message = text1 & text2 & text3 & text4 & text5 & text6
   
    strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
    strcommand = strcommand & " -compose " & "to= '" & destinataire & "'"
    strcommand = strcommand & "," & "subject=" & Sujet & ","
    strcommand = strcommand & "body=" & Message
    strcommand = strcommand & "," & "attachment=" & PieceJointe
   
    Call Shell(strcommand, vbNormalFocus)
   
    NewWbk.Close
   
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = True
        .EnableEvents = True
    End With
   
End Sub
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Bonjour Salah et le forum🙂,
je n’avais pas bien compris ta demande, la solution est encore plus simple, voici le code adapté:
VB: 
Private Sub CommandButton2_Click()

    Dim NewWbk    As Workbook
    Dim destinataire As String, Sujet As String, Message As String
    Dim FilePath As String, FileName As String

    destinataire = "cerise@free.fr"
    FilePath = Environ$("temp") & "\"
    Sujet = "Fichier " & ThisWorkbook.Sheets(1).Range("D9").Value
    
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    ActiveSheet.Copy
    
    Set NewWbk = ActiveWorkbook
    
    With NewWbk
        FileName = .Sheets(1).Range("D9").Value
        
        For Each btn In ActiveSheet.Shapes
            If btn.AutoShapeType = msoShapeStyleMixed Then btn.Delete
        Next
        .SaveAs FilePath & FileName, FileFormat:=51 '56 pour xls
    End With
    
    PieceJointe = NewWbk.FullName
    
    text1 = " Bonjour " & "<br>"
    text2 = "<br>"
    text3 = " Je te prie de trouver ci-joint le fichier......." & "<br><br>"
    text4 = "Bien Cordialement" & "<br><br>"
    text5 = "Salah" & "<br><br>"
    text6 = "Tél.: 01-45-23-12-11"
    
    Message = text1 & text2 & text3 & text4 & text5 & text6
    
    strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
    strcommand = strcommand & " -compose " & "to= '" & destinataire & "'"
    strcommand = strcommand & "," & "subject=" & Sujet & ","
    strcommand = strcommand & "body=" & Message
    strcommand = strcommand & "," & "attachment=" & PieceJointe
    
    Call Shell(strcommand, vbNormalFocus)
    
    NewWbk.Close
    
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
XL 2021 Envoi d'email et PJ en VBA
Réponses
3
Affichages
721
JPaul78
J
S
  • Question Question
XL 2019 Envoi plusieurs pièces jointes
Réponses
1
Affichages
719
sylvanu
sylvanu
S
  • Question Question
XL 2019 Pièces jointes avec thunderbird
Réponses
7
Affichages
2 K
sylvanu
sylvanu
Y
  • Question Question
XL 2016 sélection du dernier fichier modifié dans un dossier+ pièce jointe
Réponses
1
Affichages
566
kiki29
kiki29
ELSONCe
  • Question Question
XL 2019 Envoi Mail avec Destinataires dans Userform avec CheckBox (1 mail par destinataire)
2
Réponses
16
Affichages
1 K
Oneida
Oneida
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
2 K
mathieu20
M
C
  • Question Question
XL 2019 Envoi mail : Condition dans un HTMLBODY
Réponses
2
Affichages
785
Cheyenne_2021
C
B
  • Question Question
Microsoft 365 Envoi pièce jointe html avec Outlook en VBA
Réponses
5
Affichages
1 K
bennp
B
S
  • Résolu(e)
Microsoft 365 Fusion de 2 macro VBA (selection envoi de mail + envoie de fichier PDF)
Réponses
6
Affichages
2 K
soNZOOO
S
S
  • Question Question
Autres envoi fichier en pièce jointe par mail
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
G
  • Question Question
Envoi mail avec pièce jointe
Réponses
2
Affichages
1 K
Gwendoline
G
E
  • Question Question
XL 2013 Envoi mail par macro via exchange
Réponses
1
Affichages
1 K
Hasco
Hasco
R
  • Question Question
envoi mail avec pièce jointe
Réponses
1
Affichages
3 K
fanch55
fanch55
S
  • Résolu(e)
Microsoft 365 Bouton : Envoi du classeur Excel par mail
Réponses
10
Affichages
4 K
Sylvain29
S
R
  • Résolu(e)
Microsoft 365 Envoi document Excel en PDF par mail
Réponses
2
Affichages
2 K
rubis54
R
pompaero
  • Question Question
Microsoft 365 ouvrir mail avec pièce jointe
Réponses
10
Affichages
2 K
_Thierry
_Thierry
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
1 K
MONTREAL2020
M
L
  • Question Question
XL 2016 Sélection onglet Excel envoi par mail en PDF
Réponses
4
Affichages
3 K
LuanaDDC
L
M
  • Question Question
XL 2013 Macro envoi mail par SendMail
Réponses
0
Affichages
1 K
MCB
M
S
  • Question Question
Microsoft 365 Publipostage de masse avec pièce jointe personnalisé avec outlook
Réponses
1
Affichages
5 K
Sebast6945
S
Retour