Bonjour à tous !
J'utilisais jusqu'à présent la fonction PH (voir ci-dessous) qui me permettait de copier le contenu d'un tableau Excel dans le corps d'un message Thunderbird çà l'aide de la fonction Envoi mail.
Depuis l'installation de la nouvelle version de Thunderbird , mon tableau ne s'affiche pas correctement ; le texte s'affiche avec les balises HTML , ... ; si quelqu'un a une idée pour me venir en aide ...??
Function PH(LaPlage As Range) As String
' transforme une plage en tableau HTML
Dim l As Long, c As Long
PH = "<html><table width='100%'>" 'balises de début du code HTML et de début de table
For l = 1 To LaPlage.Rows.Count ' pour chaque ligne de la plage
PH = PH & "<tr>" ' balise de début de ligne
For c = 1 To LaPlage.Columns.Count 'pour chaque colonne de la ligne
' balise début de colonne + contenu de la cellule + balise fin de colonne
PH = PH & "<td>" & LaPlage.Cells(l, c) & "</td>"
Next c
PH = PH & "</tr>" ' balise fin de ligne
Next l
PH = PH & "</table></html>" ' balises de fin de table et de fin de code HTML
'MsgBox PH
End Function
J'utilisais jusqu'à présent la fonction PH (voir ci-dessous) qui me permettait de copier le contenu d'un tableau Excel dans le corps d'un message Thunderbird çà l'aide de la fonction Envoi mail.
Depuis l'installation de la nouvelle version de Thunderbird , mon tableau ne s'affiche pas correctement ; le texte s'affiche avec les balises HTML , ... ; si quelqu'un a une idée pour me venir en aide ...??
Function PH(LaPlage As Range) As String
' transforme une plage en tableau HTML
Dim l As Long, c As Long
PH = "<html><table width='100%'>" 'balises de début du code HTML et de début de table
For l = 1 To LaPlage.Rows.Count ' pour chaque ligne de la plage
PH = PH & "<tr>" ' balise de début de ligne
For c = 1 To LaPlage.Columns.Count 'pour chaque colonne de la ligne
' balise début de colonne + contenu de la cellule + balise fin de colonne
PH = PH & "<td>" & LaPlage.Cells(l, c) & "</td>"
Next c
PH = PH & "</tr>" ' balise fin de ligne
Next l
PH = PH & "</table></html>" ' balises de fin de table et de fin de code HTML
'MsgBox PH
End Function
