Private Sub Envois_Click()
Dim Chaine As String
Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Chaine = Chaine & " " & ListBox1.List(i) & ";"
End If
Next i
Dim olApp As Outlook.Application
Dim Msg As Outlook.MailItem
Dim Chemin
Chemin = Application.GetOpenFilename("*.*, *.*")
ChDrive "D"
ChDir ("D:\Dossiers Excel\Formulaires\Carnet d'adresses\")
Set olApp = Outlook.Application
Set Msg = olApp.CreateItem(olMailItem) 'C'est sur cette ligne: Erreur 462
With Msg
.To = Nouveau.Email.Value
.cc = ""
.BCC = Trim(Chaine)
.Subject = ""
.Body = ""
.Display
End With
If VarType(Chemin) <> 11 Then
Msg.Attachments.Add Chemin
End If
End Sub