Discussion :

[sub1981]

Bonjour tous le monde,

je suis nouveau et débutant sur Excel, j'ai un petit soucie à résoudre si quelqu'un peut m'aider je le remercie d'avance .

j'essaye d'automatiser l’envoie d'un reporting qui fait pas mal de traitement le seul truck que j'arrive pas a faire c'est d'affecter au corps du message une range.

j'ai bien chercher sur le forum mais j'ai pas trouver une solution, ou peut être je n'ai dû la louper.

voila le code que j'utilise:

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
32
33
34
35
36
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String, o As String
Dim strsub As String
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
 
ThisWorkbook.Activate
If Range("DQ2") = "" Then
MsgBox ("Merci de choisir quel point envoyer")
Else
strto = Range("DR2")
strcc = Range("DR3")
strsub = Range("DQ2")
o = Range("DV2")
Workbooks.OpenText Filename:="C:\a\Mail Type.xls"
Windows("Mail Type.xls").Activate
Range("A1") = o
If Range("A1") = "11h" Then
Rows("15:34").Select
Selection.EntireRow.Hidden = True
Sheets("Mail type").Select
strbody = Range("B2:G55") 'Mon Probléme :roll:
End If
With OutMail
.To = strto
.CC = strcc
.Subject = strsub
.Body = strbody
.Send
End With
End If
Set OutMail = Nothing
Set OutApp = Nothing

si quelqu'un pourra me proposer une solution pour garder la même mise en forme de la range ca sera cool

D'avance merci.

[SilkyRoad]

bonjour

Comment insérer une plage de cellules dans le corps du message ?

bonne journée
michel

[sub1981]

Merci pour le lien mais j'ai déjà lu tous ses code et bien sure tester la plus part avant de poster, mais malheureusement ca ne marche pas avec le code que j'utilise pour l'envoie de mail.

j'ai besoin juste de trouver un moyen pour affecter une sélection de ranger précise au corps de mon message.

a+

[rtg57]

Bonjour,


peut être que ceci pourrait vous aider:
http://www.developpez.net/forums/sho...d.php?t=505531