plage de cellule excel dans message outlook

**dusud83** · 02/07/2007, 16h29

Bonjour,
Dans le corps du mail, je souhaite mettre autre chose que du texte. Savez-vous comment copier/coller une plage de cellule en provenance d'excel?
Merci d'avance

**SilkyRoad** · 02/07/2007, 22h48

bonsoir

Il existe plusieurs possibilités pour insérer une plage de cellules dans le corps du message par macro

Si tu utilises Excel2002 ou ultérieur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub envoiPlageCellules_Excel2002()
ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "destinataire@dvp.fr"
    .Item.Subject = "le sujet"
    .Item.Send
End With
End Sub

Sinon, tu peux essayer

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
37
38
39
40
41
42
43
44
Sub PlageDeCellulesDansCorpsDuMessage()
'testé avec XP
'Send using the Pickup directory on the IIS server.
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim i As Byte, j As Byte
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>"
strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"
 
For i = 1 To 5 'nombre de lignes (exemple plage A1:B5)
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    For j = 1 To 2 'nombre de colonnes
        strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _
        & Cells(i, j) & "</FONT></TD>"
    Next j
    strHTML = strHTML & "</TR>"
Next i
 
 
strHTML = strHTML & "</TABLE>"
 
strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Application.UserName
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""
 
With iMsg
    Set .Configuration = iConf
    .To = "destinataire@dvp.fr" 'renvoie une erreur si l'adresse est non valide
    '.From = "youralias@yourdomain.com"
    .Subject = "Test Envoi Tableau par mail"
    .HTMLBody = strHTML
    .Send
End With
 
End Sub

bonne soirée
michel

**random** · 04/07/2007, 10h51

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
 
Function corps(x As Range) As Variant
Dim ligne As Integer
Dim col As Integer
Dim moncorps As Variant
ligne = x.Rows.Count
col = x.Columns.Count
For ligne = 1 To x.Rows.Count
For col = 1 To x.Columns.Count
moncorps = moncorps & " " & x.Cells(ligne, col)
Next col
moncorps = moncorps & Chr(10)
Next ligne
corps = moncorps
 
 
End Function

plage de cellule excel dans message outlook

Macros et VBA Excel

Discussions similaires

Partager

Partager