Répondre à la discussion

Message

<blockquote data-quote="HugoTR35" data-source="post: 20471296" data-attributes="member: 363477">Bonjour à vous, Dans un premier temps merci à ce forum d'exister il m'a dépatouillé de nombreuses fois, je me lance donc aujourd'hui à également demander votre aide.J'ai créé un fichier Excel où je voudrais faire une macro pour l'envoi de mail en cliquant dessus, j'utilise la macro suivante et je souhaiterai trouver une astuce pour passer à la ligne suivante sans recréer cette macro des centaines fois,&quot;Sub Ligne()End SubDim LeMail As VariantSet LeMail = CreateObject(&quot;Outlook.Application&quot;)&nbsp; 'création d'un objet outlookWith LeMail.Createitem(olMailTeam) 'informe le programme que nous voulons envoyer un mail.Subject = &quot;Surveillance à réaliser&quot;.To = Range(&quot;c5:C3000&quot;) &amp; &quot;;&quot; &amp; Range(&quot;H5:H3000&quot;).Body = &quot;Bonjour &quot; &amp; Range(&quot; g5:G3000&quot;) &amp; &quot;,&quot; &amp; vbCrLf &amp; vbCrLf &amp; &quot;Vous avez des surveillances de compétences à réaliser le plus rapidement possible, pour &quot; &amp; Range(&quot;B5:B3000&quot;) &amp; &quot; concernant un &quot; &amp; Range(&quot;e5:E3000&quot;) &amp; &quot; de niveau &quot; &amp; Range(&quot;f5:f3000&quot;) &amp; &quot;, en &quot; &amp; Range(&quot;D5<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite8" alt=":D" title="Big Grin&nbsp; &nbsp; :D" loading="lazy" data-shortname=":D" />3000&quot;) &amp; &quot;, &quot; &amp; Range(&quot;B5:B3000&quot;) &amp; &quot; nous vous laissons le soin d'envoyer les documents necessaires à son évaluation,&quot; &amp; vbCrLf &amp; &quot;Belle journée à vous deux. Cordialement &quot;.SendEnd With&quot;Avez vous une idée ? En espérant avoir été suffisamment clair ...Belle soirée à vous et merci d'avance ! Cordialement Hugo</blockquote>

[QUOTE="HugoTR35, post: 20471296, member: 363477"] Bonjour à vous, Dans un premier temps merci à ce forum d'exister il m'a dépatouillé de nombreuses fois, je me lance donc aujourd'hui à également demander votre aide. J'ai créé un fichier Excel où je voudrais faire une macro pour l'envoi de mail en cliquant dessus, j'utilise la macro suivante et je souhaiterai trouver une astuce pour passer à la ligne suivante sans recréer cette macro des centaines fois, "Sub Ligne() End Sub Dim LeMail As Variant Set LeMail = CreateObject("Outlook.Application") 'création d'un objet outlook With LeMail.Createitem(olMailTeam) 'informe le programme que nous voulons envoyer un mail .Subject = "Surveillance à réaliser" .To = Range("c5:C3000") & ";" & Range("H5:H3000") .Body = "Bonjour " & Range(" g5:G3000") & "," & vbCrLf & vbCrLf & "Vous avez des surveillances de compétences à réaliser le plus rapidement possible, pour " & Range("B5:B3000") & " concernant un " & Range("e5:E3000") & " de niveau " & Range("f5:f3000") & ", en " & Range("D5:D3000") & ", " & Range("B5:B3000") & " nous vous laissons le soin d'envoyer les documents necessaires à son évaluation," & vbCrLf & "Belle journée à vous deux. Cordialement " .Send End With" Avez vous une idée ? En espérant avoir été suffisamment clair ... Belle soirée à vous et merci d'avance ! Cordialement Hugo [/QUOTE]

Vérification