Sur macro

bonjour, voici une petite macro simplement pour enregistrer un fichier et l envoyer par gmail.

l enregistrement marche bien mais pas l envoi ....

une idee ?

Sub test_Cliquer()
'
' test_Cliquer Macro
'

'
Dim DateDuJour As String
Dim Prefixe As String
Dim Extension As String

Worksheets(Array("F1", "F3")).Copy

Count = Len(ActiveWorkbook.Name)
Name = Left(ActiveWorkbook.Name, Count - 4)
DateDuJour = Format(Date, "dd-mm-yy") & " à " & Format(Time, "h-mm")
Prefixe = "Nom "
Extension = ".xlsm"
ChDir "C:\Users\moi\Dropbox\parexemple"
ThisWorkbook.SaveCopyAs Filename:=Prefixe & DateDuJour & Heure & Extension
End Sub

Sub email()
Const username = "moi@gmail.com"
Const password = "pass"

Dim objEmail, objConfig
Set objEmail = CreateObject("CDO.Message")

objEmail.From = "moi@gmail.com"
objEmail.To = InputBox("destinataire")
objEmail.Subject = "subject"
objEmail.cc = "toi@gmail.com"

Do While Len(objEmail.TextBody) = 0
objEmail.TextBody = InputBox("message")
Loop

Set objConfig = objEmail.Configuration

objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = username
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password
objConfig.Fields.Update
.AddAttachment ("C:\et Là il faudrait que cela choisisse le fichier que je viens d enregistrer mais comment faire ?
.Send
objEmail.Send

Set objEmail = Nothing
Set objConfig = Nothing
End Sub

merci de votre aide

Bonsoir

il faut mettre

ObjEmail.AddAttachment ("tonchemin")

ou le faire comme cela :

With objEmail
    .AddAttachment ("tonchemin")
    .Send
End If

A+

Benoît Marchand

[Benead]