inserer valeur de tableau dans mail outlook

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
sebmika974
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 5 septembre 2017
Version d'Excel : 2013

Message par sebmika974 » 6 août 2018, 09:12

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
s
sebmika974
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 5 septembre 2017
Version d'Excel : 2013

Message par sebmika974 » 6 août 2018, 15:21

Bonjour,

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

Bonne journée à tous
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message