Répondre à la discussion

Message

<blockquote data-quote="fanch55" data-source="post: 20467275" data-attributes="member: 253705">Sinon une autre alternative si possible de mettre une formule dans une autre colonne de la table :[ATTACH=full]1120721[/ATTACH]Le code serait alors:[CODE=vb]Option ExplicitPrivate Sub Button1_Click()Dim ObjOutlook&nbsp; &nbsp; &nbsp; As ObjectDim ObjMail&nbsp; &nbsp; &nbsp; &nbsp;&nbsp; As ObjectDim Outlook_Was_Active&nbsp; As Boolean&nbsp; &nbsp; On Error Resume Next&nbsp; &nbsp; &nbsp; &nbsp; Set ObjOutlook = GetObject(, &quot;Outlook.Application&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Outlook_Was_Active = Not ObjOutlook Is Nothing&nbsp; &nbsp; &nbsp; &nbsp; If Not Outlook_Was_Active Then Set ObjOutlook = CreateObject(&quot;Outlook.Application&quot;)&nbsp; &nbsp; On Error GoTo 0&nbsp; &nbsp; &nbsp; &nbsp; Set ObjMail = ObjOutlook.CreateItem(0)&nbsp; &nbsp; &nbsp; &nbsp; With ObjMail&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Subject = &quot;Rappel&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .To = Replace(Application.Trim(Join(Application.Transpose(ActiveSheet.[F18:F26]))), &quot; &quot;, &quot;;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Body = &quot;Ceci est un mail de rappel généré automatiquement.&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Display 'Afficher le mail&nbsp; &nbsp; &nbsp; &nbsp; End With&nbsp; &nbsp; Set ObjMail = Nothing&nbsp; &nbsp; &nbsp; &nbsp; If Not Outlook_Was_Active Then ObjOutlook.Quit&nbsp; &nbsp; Set ObjOutlook = Nothing&nbsp; &nbsp; End Sub[/CODE]</blockquote>

[QUOTE="fanch55, post: 20467275, member: 253705"] Sinon une autre alternative si possible de mettre une formule dans une autre colonne de la table : [ATTACH type="full"]1120721[/ATTACH] Le code serait alors: [CODE=vb]Option Explicit Private Sub Button1_Click() Dim ObjOutlook As Object Dim ObjMail As Object Dim Outlook_Was_Active As Boolean On Error Resume Next Set ObjOutlook = GetObject(, "Outlook.Application") Outlook_Was_Active = Not ObjOutlook Is Nothing If Not Outlook_Was_Active Then Set ObjOutlook = CreateObject("Outlook.Application") On Error GoTo 0 Set ObjMail = ObjOutlook.CreateItem(0) With ObjMail .Subject = "Rappel" .To = Replace(Application.Trim(Join(Application.Transpose(ActiveSheet.[F18:F26]))), " ", ";") .Body = "Ceci est un mail de rappel généré automatiquement." .Display 'Afficher le mail End With Set ObjMail = Nothing If Not Outlook_Was_Active Then ObjOutlook.Quit Set ObjOutlook = Nothing End Sub[/CODE] [/QUOTE]

Vérification