Macro - code VBA fusionnant contenu de 2 feuilles [Fermé]

Signaler
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019
-
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019
-
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

1 réponse

Messages postés
11537
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 juillet 2020
659
bonjour, je pense que le plus simple, dans ton cas, est de rassembler les données à envoyer dans une seule feuille.
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

Effectivement ta solution fonctionne très bien, il n'y a que les logos
Messages postés
11537
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 juillet 2020
659 >
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

et tout se passe bien quand tu envoies un message à la main à partir de outlook, sans utiliser le VBA?
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

J'ai redémarré le fichier et les logos s'affichent. c'est ma première macro peux-tu m'orienter dans les commandes pour intégrer le contenu, j'ai remplacé les "" par ActiveSheet.Range("A1:P67").Select mais sans succès
Messages postés
11537
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 juillet 2020
659 >
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

suggestion:
Dim crg As Range, contenumsg As String, cl As Range
Set crg = ActiveSheet.Range("A1:P67")
    contenumsg = ""
    For Each cl In crg
        contenumsg = contenumsg + CStr(cl)
    Next cl
   '...
        .HTMLBody = contenumsg & .HTMLBody
Messages postés
26
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
9 septembre 2019

oui, le contenu s'est joint à la signature mais pas le format d'affichage. Est-ce qu'il y a une solution joindre la signature Outlook en html et conserver le format des cellules excel?