Menu

Macro - code VBA fusionnant contenu de 2 feuilles

Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
- - Dernière réponse : Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
- 15 avril 2019 à 20:50
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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7733
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 avril 2019
460
0
Merci
bonjour, je pense que le plus simple, dans ton cas, est de rassembler les données à envoyer dans une seule feuille.
Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
Effectivement ta solution fonctionne très bien, il n'y a que les logos
yg_be
Messages postés
7733
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 avril 2019
460 > Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 2019
-
et tout se passe bien quand tu envoies un message à la main à partir de outlook, sans utiliser le VBA?
Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 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
yg_be
Messages postés
7733
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 avril 2019
460 > Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 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
Reggs7
Messages postés
18
Date d'inscription
vendredi 21 décembre 2018
Statut
Membre
Dernière intervention
15 avril 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?
Commenter la réponse de yg_be