Macro - code VBA fusionnant contenu de 2 feuilles

Fermé

Reggs7 Messages postés 26 Date d'inscription vendredi 21 décembre 2018 Statut Membre Dernière intervention 9 septembre 2019 - 30 mars 2019 à 01:57
Reggs7 Messages postés 26 Date d'inscription vendredi 21 décembre 2018 Statut Membre Dernière intervention 9 septembre 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

A voir également:

Macro - code VBA fusionnant contenu de 2 feuilles
Code asci - Guide
Fusionner le contenu de 2 cellules excel - Guide
Fusionner feuilles excel - Guide
Fusionner 2 pdf - Guide
2 comptes whatsapp - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
30 mars 2019 à 21:22

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 26 Date d'inscription vendredi 21 décembre 2018 Statut Membre Dernière intervention 9 septembre 2019
1 avril 2019 à 02:18

c'est que la seconde partie peut être appelée par d'autres macro. je voulais éviter de l'ajouter sur chacune des feuilles

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > Reggs7 Messages postés 26 Date d'inscription vendredi 21 décembre 2018 Statut Membre Dernière intervention 9 septembre 2019
Modifié le 1 avril 2019 à 11:06

tu peux temporairement copier les deux parties dans une feuille de travail.

Reggs7 Messages postés 26 Date d'inscription vendredi 21 décembre 2018 Statut Membre Dernière intervention 9 septembre 2019
13 avril 2019 à 12:51

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

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

Reggs7 Messages postés 26 Date d'inscription vendredi 21 décembre 2018 Statut Membre Dernière intervention 9 septembre 2019
15 avril 2019 à 02:12

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

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Discussions similaires

Newsletters