* Bonjour *

voilà avec mon code ci dessous lorsque je l'éxecute il me renvoie une erreur sur la ligne ".send"
la valeur de configuration "sendusing" est non valide.
une petite idée?
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
34
35
36
Sub courriel()
Dim temp As String
temp = "C:\temp.xls"
    Sheets("trame").Select
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\temp.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWindow.Close
Dim CdoMessage As Object
Dim fichier As Variant
    fichier = temp
 
    If fichier = False Then Exit Sub
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "xxxxx@wanadoo.fr"
        .To = "yyyyy@orange.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
    Kill temp
End Sub