[Debutant] Passer a la ligne dans une chaine de caractere

**Keelit95** · 28/11/2008, 16h20

Bonjour,

Voila j'envoie un mail OutLook via VBA excel.

Dans ce mail je décris un tableau en HTML, dans le corps du mail et dans ce tableau se trouve une variable incrémenter dans un code.

Voila mon problème, cette variable contient un ensemble d'erreur que je veux envoyer sous forme de liste.

Voici le code :

Partie du tableau avec la variable :

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
 str = "<body>"
   str = str & "<br>"
   str = str & "<big><b>Une Erreur fonctionnelle a été détectée </b><br> "
   str = str & "Pensez à utiliser la dernière version des fiches (v2.16)</big> "
   str = str & "<br>"
   str = str & " <table border width=1400>"
   str = str & " <tr>"
   str = str & " <td width=1400 colspan=2 bgcolor=#8080FF><b> Erreur </b></td>"
   str = str & " </tr>"
   str = str & " <tr>"
   str = str & "<td width=238><b> Code Erreur  </b></td> <td width=1162> N/A </td >"
   str = str & "</tr>"
   str = str & " <tr>"
   str = str & "<td><b> Description courte </b></td> <td>"
   str = str & Erreur '<----ma variable dans le tableau
   str = str & "</td>"
   str = str & "</tr>"
   str = str & " <tr>"

Exemple d'une alimentation de la variable :

Code :

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

1
2
3
4
5
6
'Verification du champ minimum commande magasin
If Worksheets("fiche n°2").Cells(30, 28) = 0 Or Len(Worksheets("fiche n°2").Cells(30, 28) = 0) > 4 Then                        
     Werreur = "Minimum commande magasin = vide"
     Erreur = Erreur & Werreur & Chr(13)                                    
     t = t + 1                                                
End If

J'ai tester :

Code :

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

Erreur = Erreur & Werreur & Chr(13)

Code :

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

Erreur = Erreur & Werreur & vbcrlf

Code :

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

Erreur = Erreur & vbcrlf & Werreur

Dans les MsgBox chaque erreurs passe à la ligne seulement dans mon tableau ça passe en chaine de caractères.

Et la j'ai beau chercher, je trouve rien qui fonctionne si vous pouvez m'éclairer

merci d'avance

**SilkyRoad** · 28/11/2008, 21h38

Bonsoir,

Je n'ai pas testé mais essaye de remplacer

Code :

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

str = str & Erreur '<----ma variable dans le tableau

par

Code :

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

str = str & "<br>" & Erreur '<----ma variable dans le tableau

et

Code :

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

Erreur = Erreur & Werreur & Chr(13)

par

Code :

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

Erreur = Erreur & Werreur & "<br>"

bon week end
michel

**Keelit95** · 01/12/2008, 14h31

Merci beaucoup

J'ai remplacer

Code :

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

Erreur = Erreur & Werreur & Chr(13)

par

Code :

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

Erreur = Erreur & Werreur & "<br>"

[Debutant] Passer a la ligne dans une chaine de caractere

Macros et VBA Excel

Discussions similaires

Partager

Partager