Inserer valeur de tableau dans mail outlook

Bonjour à tous

J'ai réussi à récupérer une partie de code me permettant de préparer un mail sous Outlook lorsque j'appuie sur un bouton.

Mon problème c'est que dans ce mail je souhaite faire une capture d'écran d'une partie du tableau ou bien insérer la valeur de cette partie de tableau. A chaque fois c'est la même ligne et colonne que je souhaite intégrer au mail.

Si quelqu'un peut m'aider je suis preneur.

J'ai fais un essai sur un fichier d'essai. voir en pJ. Je souhaiterai intégrer dans mon mailla ligne I5 à M5.

Le code:

Private Sub CommandButton21_Click()

Dim messagerie As Object
Dim courriel As Object

Dim wb1 As Workbook
Dim TempFilePath As String, TempFileName As String, FileExtStr As String
Dim RepOldName As String, RepNewName As String

Dim cel_demandeur As Range
Dim nom_manager As String, nom_demandeur As String

Set messagerie = CreateObject("Outlook.Application")
Set courriel = messagerie.CreateItem(0)
Set wb1 = ActiveWorkbook

TempFilePath = Environ$("temp") & "\"
TempFileName = wb1.Name & "_V"
FileExtStr = "." & LCase(Right(wb1.Name, Len(wb1.Name) - InStrRev(wb1.Name, ".", , 1)))
wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr

    With courriel
        .to = "adresse_email@rte-france.com"
        .Subject = " COMPLEMENT DE REMPLISSAGE"
        .body = "Bonjour," & Chr(10) & Chr(10) & _
        "Veuillez trouver ci-dessous le complément de remplissage réalisé ce-jour." & Chr(10) & Chr(10) & _
        "Cordialement," & Chr(10) & Chr(10) & _
        .display
        '.send
    End With

Kill TempFilePath & TempFileName & FileExtStr

Set courriel = Nothing
Set messagerie = Nothing

End Sub

Je vous remercie à tous

Bonjour,

Ne prenez pas en compte cette question. J'ai trouvé la solution

Bonne journée à tous

Rechercher des sujets similaires à "inserer valeur tableau mail outlook"