Inserer valeur de tableau dans mail outlook
s
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
Bonjour,
Ne prenez pas en compte cette question. J'ai trouvé la solution
Bonne journée à tous