Discussion :

[jeff10]

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

[ouskel'n'or]

Code :

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

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 ?

[jeff10]

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

Code :

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

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

[ouskel'n'or]

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

Code :

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

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.