XL 2016 Problème envoi fichier pièce jointe

[Maxou69]

Bonjour à tous,

J'ai besoins de votre aide concernant l'envoi de mon fichier en pièce jointe en
Je souhaite envoyer un tableau en corps de mail et un feuille en pièce jointe
Je pense avoir trouvé le code adéquate pour l'envoi du tableau dans le corps du mail (en html) mais maintenant le code bug pour l'envoi de la pièce jointe
Pourriez vous m'aider ?
Merci par avance pour votre aide

Bonne journée à vous tous/toutes

 

[kiki29]

Salut, va voir sur RdB

 

[Phil69970]

Boonjourà vous deux

Une piste :
Toute cette partie est à remplacer

For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
        
        .Attachment.Adds FichXl
        .Display
        .Send  => pour envois direct
    End With
    Sheets("Feuil2").Select
End Sub

A remplacer par

For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
'           .Display
'        End With
        
'        .Attachment.Adds FichXl
        .Display
        '*******
        'Attention il y avait 1 pb aussi à la ligne suivante il manquait l'apostrophe avant => pour envois direct
        .Send  '=> pour envois direct
        
    End With
    Sheets("Feuil2").Select
End Sub

Merci de ton retour

 

[Maxou69]

Boonjourà vous deux

Une piste :
Toute cette partie est à remplacer

For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
      
        .Attachment.Adds FichXl
        .Display
        .Send  => pour envois direct
    End With
    Sheets("Feuil2").Select
End Sub

A remplacer par

For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
'           .Display
'        End With
      
'        .Attachment.Adds FichXl
        .Display
        '*******
        'Attention il y avait 1 pb aussi à la ligne suivante il manquait l'apostrophe avant => pour envois direct
        .Send  '=> pour envois direct
      
    End With
    Sheets("Feuil2").Select
End Sub

Merci de ton retour

Bonjour Phil,

Merci pour ton retour ! Effectivement, j'ai oublier ' pour le Send..

Le mail s'ouvre, le tableau et le corps du mail s'affiche sans problème, mais la pièce jointe ne s'attache pas au mail et la ligne de code ci dessous passe en erreur après que la macro se soit lancée

For Each xFileDlgItem In xFileDlg.SelectedItems

 [COLOR=rgb(247, 218, 100)]For Each xFileDlgItem In xFileDlg.SelectedItems[/COLOR]
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
'           .Display
'        End With
       
'        .Attachment.Adds FichXl
        .Display
        '*******
        'Attention il y avait 1 pb aussi à la ligne suivante il manquait l'apostrophe avant => pour envois direct
        '.Send  '=> pour envois direct
       
    End With
    Sheets("Feuil2").Select
End Sub

 

[Phil69970]

Re

Et bien essaye de faire le contraire dans un premier temps

'For Each xFileDlgItem In xFileDlg.SelectedItems
'    .Attachments.Add xFileDlgItem
'Next xFileDlgItem
'Ton probleme vient surement d'ici xFileDlgItem
'Donc on essaye avec juste ceci mais est ce que le chemin "FichXl" ou "xFileDlgItem" est valide !!!!
    .Attachment.Adds FichXl
    .Display    'Visu
    .Send       'Envoi direct
   End With

   Sheets("Feuil2").Select
End Su

 

[Maxou69]

Merci beaucoup Phil ! Une fois de plus tu m'apporte une solution !

Bonne journée à toi !