Discussion :

[casavba]

BONJOUR,$

je récupère une valeur de cellule dans excel pour l'intégrer dans le contenu d'un mail.

j'ai un problème avec le format

Code :

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

CeQueJeRecupere = Format(Range("A1").value, "#,##0 $")

en fait en plus de cette format je veux récupérer le contenu en gras et en couleur si c'est possible.


Merci

[scully2501]

Code :

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

1
2
3
4
5
6
7
8
 
    Range("A1").Select
    Selection.NumberFormat = "#,##0 $"
    With Selection.Font
        .FontStyle = "Gras"
        .ColorIndex = 3
    End With
   CeQueJeRecupere = Range("A1").value

Je ne suis pas sur que ""#,##0 $" existe mais je me trompe peut etre.

Colorindex contient les numero de couleurs:
Numéro Couleur Numéro Couleur
0 Noir 8 Gris
1 Bleu 9 Bleu clair
2 Vert 10 Vert clair
3 Cyan 11 Cyan clair
4 Rouge 12 Rouge clair
5 Magenta 13 Magenta clair
6 Jaune 14 Jaune clair
7 Blanc 15 Blanc pur

Est ce la réponse à ta question?

[casavba]

Non ça ne marche pas cette solution
parce qu'elle s'applique à la cellule telle qu'on la voit sous excel
C'est pas ce que je veux, parce que si tu ajoutes à ton code

Code :

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

msgbox CeQueJeRecupere

tu vas comprendre.

mais celà nempêche que je te remercie pour ton effort

[scully2501]

Peux tu donner un exemple de ce que tu veux car j'ai du mal à comprendre ce que tu veux?

[scully2501]

http://arkham46.developpez.com/artic...sgboxplus/doc/

Est ce cela que tu cherches?

[casavba]

je l'ai bien précisé

je veux récupérer (et pas afficher dans excel) la valeur de la cellule pour la faire afficher dans mon mail en gras et en couleur.*
voilà

CeQueJeRecupere est une variable string que j'inclue dans le texte de mon mail voilà.

[scully2501]

.BodyFormat = olFormatHTML
.HTMLBody =

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
 
Sub SendMail_Outlook()
 
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
 
   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("a3").Value
      .Subject = Range("a1").Value
      '.Body = "Contenu " & Range("a2").Value
      '.Attachments.Add "c:\data\essai.doc"
      .Display '.Send
      .BodyFormat = olFormatHTML
      .HTMLBody = "<font color=silver size=20><b>" + Range("a2").Value + "</b></font color>"
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
   End With
 
End Sub

J'ai trouver pour le Gras et la couleur mais pas les decimales