Bonjour,
Suite à tes conseils, je suis parvenue à supprimer le message d'erreur sur le nombre de ligne. Merci!!
Grâce à toi, le fichier est comme je l'espérai mais je me suis aperçue qu'une dernière amelioration pouvait être apportée...
Dans le code fonction email, il y a une message box.
Je voudrais pouvoir rajouter un bouton Cancel pour annuler l'envoi.
J'ai trouver qu'il fallait utilizer vbOKCancel mais je ne suis pas parvenue à l'appliquer...
Peux-tu m'aider encore une fois?
Option Explicit
Sub SendMailWithCDO(ByVal semailTO As String, ByVal semailCC As String, ByVal sSujet As String, ByVal sBody As String)
Dim iMsg As Object
Dim iConf As Object
Dim Flds As Variant
Dim sFrom As String
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "mail.domaine.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.to = semailTO
.CC = semailCC
.BCC = ""
If Environ("USERNAME") = "XXXXXX" Then sFrom = """XXXXXXx"" <XXXX@domaine.com>" Else sFrom = "<" & Environ("USERNAME") & "@domaine.com>"
.From = sFrom
.Subject = sSujet
.TextBody = sBody
MsgBox "Envoi TO " + semailTO + " CC " + semailCC + " FROM " + sFrom
.Send
End With
End Sub
Merci