Bonjour a tous,

j'essaye d'envoyer un classeur actif par mail en piece jointe.

mon soucis "un composant activeX ne peut pas crée un objet"

pourriez-vous m'aider à debuger ce code car je pense avoir encore quelques épines... j'ai ponctionné plusieurs partie de code ci et là.

je suis en excel 2003 et besoin que ça marche aussi sur version supérieur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
 
Dim destinataire As String
Dim copier As String
destinataire = TextBox1.Text
 
If CheckBox1.Value = True Then
copie = Range("D9").Value
End If
Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")  '   <--- ici erreur 
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = destinataire
        .CC = copier
        .BCC = ""
        .Subject = "essais"
        .Body = "ça marche pas !"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
End Sub