Envoie de tableau dans un message

Bonjour forum,

J'utilise un code pour générer des fichiers tableau à partir d'une base de données et les sauvegardés sur le D. Les tableaux sont différents les uns des autres ( nombre de ligne différents)

Je voudrais maintenant envoyer des courriels avec le tableau affecté au groupe à différents destinataires dans le corps du message à partir du fichier info et si le tableau est vide ne rien envoyé. Cependant, mon code ne fonctionne pas.

Pouvez-vous m'aider s'il vous plait?

Merci

3infos-test.xlsm (17.66 Ko)

Bonjour,

.Htmlbody = "Test <br>" & Cells(cell.Row, "E").Value & " /> <br>Test"

... ce serait trop simple !

Il faut ouvrir le fichier annexe puis lire et transformer les données en html avec les balises

<table><tr><td>__________</td><td>____________</td></tr></table>

et attention aux caactères accentués !

Bonjour Steelson, merci de ton aide. pour un noviste, je pense pas avoir bien compris. Si possible pourrais tu me fournir un exemple.

Merci

Voici les fonctions à utiliser pour transformer les données en html

Function tableauhtml(plage As Range) As String
Dim cel As Range
Set cel = plage.Cells(1, 1)
    tableauhtml = "<table>"
    For i = 1 To plage.Rows.Count
        tableauhtml = tableauhtml & "<tr>"
        For j = 1 To plage.Columns.Count
            tableauhtml = tableauhtml & "<td>" & texthtml(cel.Offset(i - 1, j - 1).Value) & "</td>"
        Next
        tableauhtml = tableauhtml & "</tr>"
    Next
    tableauhtml = tableauhtml & "</table>"
End Function

Function texthtml(texte As String)
    texthtml = ""
    For i = 1 To Len(texte)
        Select Case Asc(Mid(texte, i, 1))
        Case Is = 10
            texthtml = texthtml & "<br/>"
        Case Is = 39
            texthtml = texthtml & "&#" & Application.Trim(Str(Asc(Mid(texte, i, 1)))) & ";"
        Case Is > 127
            texthtml = texthtml & "&#" & Application.Trim(Str(Asc(Mid(texte, i, 1)))) & ";"
        Case Else
            texthtml = texthtml & Mid(texte, i, 1)
        End Select
    Next
End Function
6tableau-html.xlsm (15.69 Ko)

Bonjour Steelson,

Désolé pour le retard de la réponse, merci pour ton aide.

Je suis à mes premiers pas avec vba comme je l'ai mentionné et je suis fasciné par vos compétences.

Cependant, je voudrais savoir savoir comment pratiquement je peux aller chercher mes 5 fichiers et les envoyés à 5 destinataires différents en me basant sur ton code. Dois-je le mettre dans un module à part ou l'insérer dans le code qui va chercher les fichiers?

Dans l'attente, je te remercie d'avance.

Rechercher des sujets similaires à "envoie tableau message"