Rajouter valeur cellule dans corps mail

Version imprimable

02/10/2014, 12h02
alexandrud

1 pièce(s) jointe(s)

Rajouter valeur cellule dans corps mail

Bonjour,

Je travaille sur un fichier (des congés) . jusque ici j'ai fait pas mal de macros dedans, tout fonctionne comme je le souhaite, sauf que je n'arrive pas à faire une macro qui rajoute la valeur d'une cellule (si <> de vide) dans le corps d'un mail.

j'ajoute un fichier explicatif (en espérant que c'est clair :) )

Merci par avance
Alexandre

Je me permets de faire remonter mon sujet... si quelqu'un pourrait me donner une idée

Merci
07/10/2014, 19h29
SfJ5Rpw8

bonsoir, un début de solution

http://www.developpez.net/forums/d84...s-discussions/

pour t'aider à avoir une réponse .... utilise les balises de [code] [/code]

je t'avoue ne pas "comprendre" le "début de la solution" ...
* si j'ai rajouté le document de suite c'est pour simplifier ma demande ....
* si j'ai pas mis de code, c'est car, tout simplement, je ne demande pas le code tout fait ... je voulais juste avoir une idée sur "comment on peu rajouter la valeur de plusieurs cellules dans le corps d'un mail; ceci seulement si les cellules sont non-vides" ...

je vais quand-même rajouter ma macro pour l'envoie du mail :

Code:

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
32
33
Sub soumettre_n1()
   Dim OutApp As Object
   Dim OutMail As Object
   Dim corps_mail As String
 
 Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
 
     corps_mail = "Bonjour," & vbNewLine & vbNewLine & _
                  "Ceci est un message généré automatiquement. Vous pouvez y répondre." & vbNewLine & vbNewLine & _
                  "Le fichier des congés " & _
                  ActiveWorkbook.Name & " vient d'être modifié par " & Signature & " (" & Application.UserName & ") " & vbNewLine & vbNewLine & _
                  "Les modifications apportées : " & vbNewLine & vbNewLine & _
 
  'ici je souhaiterais rajouter les valeurs des cellules, si non-vides ... pour le mois en cours (explication dans le fichier joint)
                  "Vous pouvez y accéder par ce lien " & _
                  "file://" & ActiveWorkbook.FullName & vbNewLine & vbNewLine & _
                  "Cordialement," & vbNewLine & _
                  Application.UserName & vbNewLine & _
                  Signature
 
    On Error Resume Next
    With OutMail
        .To = "etc@etc.fr"
        .Subject = Signature & " vous demande de valider ses congés pour " & mois
        .Body = corps_mail
         End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

les variable signature et mois sont récupérées par une autre macro ...

Merci

08/10/2014, 19h37
SfJ5Rpw8

bonsoir,

ton code fonctionne-t-il tel-quel ?
si oui retrouve tu dans le corps de ton message les valeurs des variables que tu as placé la ? (nom du classeur par exemple ?)
10/10/2014, 02h45
alexandrud

Bonsoir,

Oui, mon code fonctionne... je retrouve les valeurs que je demandes. Comme je l'ai dis dans mon message (et par rapport à mon fichier joint) je souhaiterais aussi rajouter la concaténation de 3 cellules (mois + jour + congés ) seulement pour le cas où il y a quelque chose dans la cellule "congés" ....

Je vais essayer demain avec un if ....

Merci

Bonjour

Code:

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
32
33
Sub soumettre_n1()
   Dim OutApp As Object
   Dim OutMail As Object
   Dim corps_mail As String
   Dim temp As String
    
 Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
   
   If Range("a3") <> "" Then temp = Range("a1") & " " & Range("a2") & " " & Range("a3")
 
     corps_mail = "Bonjour," & vbNewLine & vbNewLine & _
                  "Ceci est un message généré automatiquement. Vous pouvez y répondre." & vbNewLine & vbNewLine & _
                  "Le fichier des congés " & _
                  ActiveWorkbook.Name & " vient d'être modifié par " & Signature & " (" & Application.UserName & ") " & vbNewLine & vbNewLine & _
                  "Les modifications apportées : " & vbNewLine & vbNewLine & temp & _
                  "Vous pouvez y accéder par ce lien " & _
                  "file://" & ActiveWorkbook.FullName & vbNewLine & vbNewLine & _
                  "Cordialement," & vbNewLine & _
                  Application.UserName & vbNewLine & _
                  Signature
 
    On Error Resume Next
    With OutMail
        .To = "etc@etc.fr"
        .Subject = Signature & " vous demande de valider ses congés pour " & mois
        .Body = corps_mail
         End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub