Macro - code VBA fusionnant contenu de 2 feuilles

Reggs7 Messages postés 26 Statut Membre -  
Reggs7 Messages postés 26 Statut Membre -
Bonjour,
J'utilise la macro suivante afin d'acheminer par mail le contenu des cellules D50:u105 de la feuille soumission et pour compléter l'info j'aimerais joindre le contenu des cellules F12 à G20 de la feuille "coût" à la feuille soumission.

Pouvez vous m'aider à coder la fusion de la feuille "coût" à la feuille "soumission"

merci

Sub c_soum_pol_vig()

Dim horagent As Worksheet

Set horagent = ThisWorkbook.Sheets("Soumission")
ActiveSheet.Range("d50:u105").Select
ActiveWorkbook.EnvelopeVisible = True


With ActiveSheet.MailEnvelope
.Item.to = horagent.Range("ac53").Value
.Item.Subject = horagent.Range("ac54").Value
.Item.send 'envoie

End With


Configuration: Windows / Internet Explorer 11.0
A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 585
 
bonjour, je pense que le plus simple, dans ton cas, est de rassembler les données à envoyer dans une seule feuille.
0
Reggs7 Messages postés 26 Statut Membre
 
c'est que la seconde partie peut être appelée par d'autres macro. je voulais éviter de l'ajouter sur chacune des feuilles
0
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   1 585 > Reggs7 Messages postés 26 Statut Membre
 
tu peux temporairement copier les deux parties dans une feuille de travail.
0
Reggs7 Messages postés 26 Statut Membre
 
merci et pour compléter mon projet, sais-tu comment insérer la signature Outlook (texte + logo) à la fin du courriel, mes tentatives ont échoués
0
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   1 585 > Reggs7 Messages postés 26 Statut Membre
 
un exemple: 
Private Sub ttt()
 Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
    Set OutApp = New Outlook.Application
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Display
        .To = "gg@hh.ii"
        .Subject = "ss"
        .HTMLBody = "" & .HTMLBody
        .send
    End With
End Sub
0
Reggs7 Messages postés 26 Statut Membre
 
je viens de la tester ta suggestion et ça fonctionne sauf que logos sont remplacer par le message "impossible d'afficher l'image liée. le fichier a peut-être été déplacé, renommé ou supprimé, Vérifiez que la liaison pointe vert le fichier et l'emplacement corrects. As-tu une idée pour m'orienter
0