IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Insertion d'une plage de Cellule excel dans un email


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Inscrit en
    Décembre 2009
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Décembre 2009
    Messages : 4
    Points : 2
    Points
    2
    Par défaut Insertion d'une plage de Cellule excel dans un email
    Bonjour,

    Je vous contacte car je bute sur un problème.
    J'ai réalisé une macro qui permet d'envoyer un email en appuyant sur un bouton.
    En dessous de ma phrase d'introduction, "Bonjour..." je souhaiterais une ligne d'espace, et la plage de cellule A23:H30.

    Voici le code.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    Sub Mail_workbook_Outlook_1()
    'Working in 2000-2007
    'This example send the last saved version of the Activeworkbook
        Dim OutApp As Object
        Dim OutMail As Object
     
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(0)
     
        On Error Resume Next
        With OutMail
            .To = ActiveSheet.Range("C9").Value & ";" & _
    ActiveSheet.Range("C10").Value & ";" & _
    ActiveSheet.Range("C11").Value & ";" & _
    ActiveSheet.Range("C12").Value & ";" & _
    ActiveSheet.Range("C13").Value & ";" & _
    ActiveSheet.Range("C14").Value & ";" & _
    ActiveSheet.Range("C15").Value & ";"
     
            .CC = ""
            .BCC = ""
            .Subject = "Suivi des dossiers Groupe"
            .HTMLBody = "Bonjour, merci de bien vouloir prendre en compte les informations ci-dessous. Ceci est une relance automatique, veuillez nous excuser si cela croise votre réponse."
            .Display   'or use .Send
        End With
        On Error GoTo 0
     
        Set OutMail = Nothing
        Set OutApp = Nothing
    End Sub
    Merci d'avance pour votre aide

  2. #2
    Membre émérite Avatar de Fvandermeulen
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2007
    Messages
    1 869
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Multimédia et Internet

    Informations forums :
    Inscription : Juillet 2007
    Messages : 1 869
    Points : 2 662
    Points
    2 662
    Par défaut
    Salut Johnfluo,

    Ci dessous le lien vers une discussion à laquelle j'ai participé, regarde les deux dernières réponses, je pense qu'elle peuvent t'inspirer

    http://www.developpez.net/forums/d83...-tableau-mail/

    Joyeux Noël

  3. #3
    Candidat au Club
    Inscrit en
    Décembre 2009
    Messages
    4
    Détails du profil
    Informations forums :
    Inscription : Décembre 2009
    Messages : 4
    Points : 2
    Points
    2
    Par défaut
    Merci Fvandermeulen de ta réponse.
    J'ai regardé ton lien et j'ai trouvé ca très compliqué pas adapté à mon probleme. je suis bien novice en VBA il faut dire aussi.
    Je comprends que & "<br>" créé une ligne d'espace.
    Voici la ligne de code :
    .HTMLBody = "Bonjour, Merci de bien vouloir prendre en compte les informations ci-dessous. Ceci est une relance automatique, veuillez nous excuser si cela croise votre réponse."
    Où mettre l'expression & "<br>" &_ de facon à avoir un espace entre "Bonjour" et "Merci".
    Et un autre espace entre "ci dessous" et "Ceci".
    et finir par une dernière ligne d'espace.
    au bout de laquelle je mettrai mon tableau.

    Pour ce qui concerne le tableau.
    le passage création /destruction htm est trop compliké pour moi.
    n'est-il pas juste possible de coller à la suite la plage de cellule ?

    Merci encore pour votre aide

Discussions similaires

  1. Comparer les valeurs d'une plage de cellules Excel
    Par konig69 dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 13/04/2015, 14h25
  2. Conversion du format d'une plage de cellules Excel
    Par tarbala dans le forum API, COM et SDKs
    Réponses: 0
    Dernier message: 13/06/2009, 00h47
  3. Coller une plage de cellules Excel dans Word
    Par ouskel'n'or dans le forum Contribuez
    Réponses: 0
    Dernier message: 21/09/2007, 01h32
  4. plage de cellule excel dans message outlook
    Par dusud83 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/07/2007, 11h51
  5. [VBA-E]Instancier une plage de cellules prises dans plusieurs feuilles
    Par ouskel'n'or dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 14/03/2007, 13h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo