Répondre à la discussion

Message

<blockquote data-quote="HugoTR35" data-source="post: 20471347" data-attributes="member: 363477">Merci Slylvanu pour cette réponse si rapide, &quot;Voici le résultats : Sub EnvoieMailLigne(N)&nbsp; &nbsp; Dim LeMail As Variant&nbsp; &nbsp; Set LeMail = CreateObject(&quot;Outlook.Application&quot;) 'création d'un objet outlook&nbsp; &nbsp; With LeMail.Createitem(olMailTeam) 'informe le programme que nous voulons envoyer un mail&nbsp; &nbsp; &nbsp; &nbsp; .Subject = &quot;Surveillance à réaliser&quot;&nbsp; &nbsp; &nbsp; &nbsp; .To = Cells(N, &quot;B&quot;) &amp; &quot;;&quot; &amp; Cells(N, &quot;g&quot;)&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; .Body = &quot;Bonjour &quot; &amp; Cells(N, &quot;f&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; Cells(N, &quot;a&quot;) &amp; &quot; concernant un &quot; &amp; Cells(N, &quot;d&quot;) &amp; &quot; de niveau &quot; &amp; Cells(N, &quot;e&quot;) &amp; &quot;, en &quot; &amp; Range(N, &quot;c&quot;) &amp; &quot;, &quot; &amp; Cells(N, &quot;a&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;&nbsp; &nbsp; &nbsp; &nbsp; .display&nbsp; &nbsp; End WithEnd Sub&quot; Cela ne fonctionne pas et m'envoie sur la commande de débogage ... Cela vient peut être du fait que j'ai supprimer la colonne A pour que mon tableau arrive bien sur celle-ci ! Je n'arrive pas à trouver l'erreur !</blockquote>

[QUOTE="HugoTR35, post: 20471347, member: 363477"] Merci Slylvanu pour cette réponse si rapide, "Voici le résultats : Sub EnvoieMailLigne(N) 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 = Cells(N, "B") & ";" & Cells(N, "g") [COLOR=rgb(250, 197, 28)] .Body = "Bonjour " & Cells(N, "f") & "," & vbCrLf & vbCrLf & "Vous avez des surveillances de compétences à réaliser le plus rapidement possible, pour " & Cells(N, "a") & " concernant un " & Cells(N, "d") & " de niveau " & Cells(N, "e") & ", en " & Range(N, "c") & ", " & Cells(N, "a") & " nous vous laissons le soin d'envoyer les documents necessaires à son évaluation," & vbCrLf & "Belle journée à vous deux. Cordialement[/COLOR] " .display End With End Sub" Cela ne fonctionne pas et m'envoie sur la commande de débogage ... Cela vient peut être du fait que j'ai supprimer la colonne A pour que mon tableau arrive bien sur celle-ci ! Je n'arrive pas à trouver l'erreur ! [/QUOTE]

Vérification