Sub Macro2() Sheets("EDI GATE IN EMPTY").Select Range("B1").Select Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String Dim Maplage As Range Set Maplage = Range("B1:B10") 'definition de la plage contenant le Message MailAd = Range("f2") Subj = Range("f4") 'boucle qui récupère le texte du message For Each Cell In Maplage 'dans chaque cellule de MaPlage... Msg Msg & " " & Cell.Value ' Message Message + Valeur de ma cellule Next 'Suite de la boucle URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto Sheets("GATE OUT EXP").Select Range("a3").Select End Sub
Range("b1:c100").Selectne renvoie pas le contenu de ta plage.. mais la Selectionne
Dim Maplage As Range Dim Texte As String Set Maplage = Range("B1:B10") For Each Cell In Maplage Texte = Texte & " " & Cell.Value Next
Sub Macro2() Sheets("EDI GATE IN EMPTY").Select Range("B1").Select Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String Dim Maplage As Range Dim Texte As String MailAd = Range("f2") Subj = Range("f4") Msg Msg & Set Maplage Range("B1:B10") For Each Cell In Maplage Texte = Texte & " " & Cell.Value URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto Sheets("GATE OUT EXP").Select Range("a3").Select End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'boucle qui récupère le texte du message For Each Cell In Maplage 'dans chaque cellule de MaPlage... Msg Msg & vbCrLf & Cell.Value ' Message Message + Valeur de ma cellule Next 'Suite de la boucle
'boucle qui récupère le texte du message For Each Cell In Maplage 'dans chaque cellule de MaPlage... Msg Msg & " " & Cell.Value & "%0D%0A" ' Message Message + Valeur de ma cellule Next 'Suite de la boucle
ActiveWorkbook.FollowHyperlink Address:=URLto
Sub Envoi_Mail() Sheets("EDI GATE IN EMPTY").Select Range("B1").Select Dim MailAd As String Dim Msg As String Dim Subj As String Dim URLto As String Dim Maplage As Range Set Maplage = Range("B1:B10") 'definition de la plage contenant le Message MailAd = Range("f2") Subj = Range("f4") 'boucle qui récupère le texte du message For Each Cell In Maplage 'dans chaque cellule de MaPlage... Msg Msg & " " & Cell.Value & "%0D%0A" ' Message Message + Valeur de ma cellule Next 'Suite de la boucle URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg ActiveWorkbook.FollowHyperlink Address:=URLto Sheets("GATE OUT EXP").Select Range("a3").Select End Sub