Discussion :

[mjanbar]

Bonjour, mon problème est le suivant :

J'aimerais envoyer par Outlook et ce automatiquement par VBA une plage, située dans une feuille d'un classeur xls.

Il s'agit du tableau situé entre les cellules F6 et J12 de la feuille "Sheet1" du fichier data.xls

j'ai déniché le code suivant mais ça bloque au niveau de .body

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
Public Sub SendMail_Outlook()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
 
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
 
    .To = RANGE("B1").Value
    .Subject = RANGE("B2").Value
    .Body = sheets.("sheet1").RANGE("F6:J12").Value
    .Send
End With
End Sub

Rq1 : je peux aussi concaténer les données du tableau mais je perds la mise enforme du tableau dans ce cas

Rq2 : je peux aussi joindre tout le classeur : .Attachments.Add "C:\OUTLOOK\ExampleVBA.xls"
mais je veux envoyer uniquement le tableau voir la feuille ki le contient

Merci de vos éclaircissements

[SilkyRoad]

bonjour


Comment placer une plage de cellules dans le corps du message ?



La fonction suivante (de Random) permet la mise forme d'une plage de cellules dans la chaîne de caractères, pour ensuite l'insérer dans le corps du message:

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
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

bonne journée
michel

[mjanbar]

Merci de ta réponse,

j'ai inséré la fonction "Random" dans une cellule xls que j'ai défini en .body

j'ai alors pu récupérer mon tableau en contenu du message Outlook mais malheureusement sans mise en forme. Cela ressemble plutôt à du concaténer.

J'aimerais cependant garder mon tableau en contenu du message avec sa mise en forme (tel qu'il figure sur la feuille xls)

J'éspère que mon souci est solvable et je compte sur vos réponses

[SilkyRoad]

Relit le premier lien fourni dans mon précédent message ...

bon week end
michel