Bonjour,
J'utilise une macro à travers un bouton qui fonctionne très bien.
Elle n'est utilisée que pour des cellules précises (h17,c17 et e17).
J'aimerai pouvoir la transformer pour positionner un bouton sur chaque ligne et qu'elle traite les éléments de la ligne concernée.
Est-ce possible?
Voici ma macro
Dim adresse As String
Dim expediteur As String
Dim responsable As String
Dim contenu As String
Dim Objet As String
Dim Envoi As String
Dim texte1 As String
Dim texte2 As String
Dim texte3 As String
texte1 = "Nous vous informons:%0A %0A"
texte2 = "%0A %0AL'expéditeur de cette signalisation est:%0A"
texte3 = "%0A %0ACe service à pour adresse mail: %0A"
adresse = Range("h17:hxxxxx")
expediteur = Range("e17:exxxxx")
contenu = Range("c17:cxxxx")
Objet = Msg & Range("d17:dxxxxx")
Envoi = "mailto:" & adresse & "?subject=" & Objet & "&body=" & texte1 & contenu & texte2 & expediteur & texte3
ActiveWorkbook.FollowHyperlink Address:=Envoi
Pouvez-vous m'aider?
J'utilise une macro à travers un bouton qui fonctionne très bien.
Elle n'est utilisée que pour des cellules précises (h17,c17 et e17).
J'aimerai pouvoir la transformer pour positionner un bouton sur chaque ligne et qu'elle traite les éléments de la ligne concernée.
Est-ce possible?
Voici ma macro
Dim adresse As String
Dim expediteur As String
Dim responsable As String
Dim contenu As String
Dim Objet As String
Dim Envoi As String
Dim texte1 As String
Dim texte2 As String
Dim texte3 As String
texte1 = "Nous vous informons:%0A %0A"
texte2 = "%0A %0AL'expéditeur de cette signalisation est:%0A"
texte3 = "%0A %0ACe service à pour adresse mail: %0A"
adresse = Range("h17:hxxxxx")
expediteur = Range("e17:exxxxx")
contenu = Range("c17:cxxxx")
Objet = Msg & Range("d17:dxxxxx")
Envoi = "mailto:" & adresse & "?subject=" & Objet & "&body=" & texte1 & contenu & texte2 & expediteur & texte3
ActiveWorkbook.FollowHyperlink Address:=Envoi
Pouvez-vous m'aider?