Réference nom de cellule dans un mail automatique
J
Bonjour à tous,
Je débute totalement en VBA et je suis bloquée sur une partie de mon code que voici :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adresse As String, olApp As Object, M As Object
If Target.Column = 8 And Target.Row > 1 And Cells(Target.Row, 19) <> "" Then
MsgBox "Vous avez modifié la date de réponse de l'étude," & vbCrLf & "un mail a été envoyé au Dirigeant.", vbOKOnly + vbInformation, "Changement de date de réponse"
Adresse = "xxxxxxx@xxxxxx.fr;" & _
"xxxxxxx@xxxxxx.fr;"
Set olApp = CreateObject("Outlook.Application")
Set M = olApp.CreateItem(olMailItem)
With M
.To = Adresse
.CC = "xxxxxxxx@xxxxxx.fr"
.Subject = "Fichier des Etudes - Modification Date Réponse"
.Body = "Bonjour," & vbCrLf & "La cellule " & Target.Address(0, 0) & " du fichier des études a été modifiée." & vbCrLf & "Merci de modifier la date CDG correspondante." & vbCrLf & "Cordialement."
.Send
End With
End If
End SubDans le corps du mail envoyé au dirigeant, je souhaiterais pouvoir faire référence au nom d'une cellule (colonne B de mon fichier) qui indique le numéro de l'étude correspondante. Car pour l'instant mon responsable reçoit un mail avec la référence de la cellule modifiée (H380 par exemple) mais il souhaiterait également avoir le numéro de l'étude qui se situe sur la colonne B de la même ligne.
J'espère être suffisamment claire.
Merci pour votre aide !