récuperer des données numériques

boujour à tous,

je réalise un courrier sur excel accompagner d'une macro pour l' envoyer par mail sur outlook.
Je commence mon corps de texte par : MyMail.body = "text" & chr(13)&
Je sélectionne les données à récuperer avec "select.range=(b5).value" Ca marche avec des données text mais, lorsque je rentre des données numérique, j'obtient un message d'erreur "erreur format (13)".

quelqu'un pourrait il m'aiguiller

Merci

Code:

---

1 2 3 4 5

if isnumeric (Lavaleur) then MyMail.body = cstr(LaValeur) & chr(13)&... else MyMail.body = LaValeur & chr(13)&... endif

---

Ça ne t'irait pas ?

Je n'arrive pas à insérer la formule dans la mienne.

Code:

---

1 2 3 4 5

Set MyMail = MyOlApp.CreateItem(olMailItem) Set MyRecipient = MyMail.Recipients.Add(Destinataire) MyMail.Cc = "ENFERT Bruno" + ";" + "BARRAS Anne" MyMail.Subject = "Suivi expedition " + Range("b1").Value MyMail.body = "Cher client," & Chr(13) & Chr(13) & "Nous vous informons que votre expédition, " & Chr(13) & "numéro : " + Range("C8").Value & Chr(13) & ...

---

Je dois pouvoir inserer plusieurs valeurs numériques. Comment definir (LaValeur) si elle peut être plusieurs Range("la valeur").value

Si tu n'as pas d'opération sur les valeurs dans ta chaîne, tu peux essayer ça

Code:

---

MyMail.body = "Cher client," & vbcr & vbcr & "Nous vous informons que votre expédition, " & vbcr & "numéro : " & Range("C8").Value & vbcr &

---

& convertit les nombres en strings quand tu concatènes des données.