Envoi de pièce jointe

[sarah-geek]

Bonjour, j'essaye desperement d'envoyer mon fichier en pièce jointe mais il bloque sur le chemin du fichier : si quelqu'un connait la solution ...

Code :

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
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim chemin as string
Dim chemin as nom
   'ici on cré le chemin complet de ton fichier qui sera créé plus bas
chemin = ActiveWorkbook.Path & "\" & nom
ActiveWorkbook.SaveAs chemin

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)

ThisWorkbook.ActiveSheet.Copy
 'Enregistre le fichier à envoyer davec le nom que l'on a créé plus haut

'Ferme le fichier
ActiveWorkbook.Close
     With oBjMail
        .To = "mon mail" ' le destinataire
       .Subject = "mail pour " & nom      ' l'objet du mail
       .Body = "Bonjour,Merci de bien vouloir lancer la demande d'extension  """
'le corps du mail ..son contenu
       .Attachments.Add (chemin) 
       .Display (True) '   Ici on met True pour vérifier l'email avant envoie
       .Send
    End With
    ObjOutlook.Quit
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing

End Sub

[Heureux-oli]

Salut,

Je dirais logique.

Code :

1
2
3
 
Dim chemin as string
Dim chemin as nom

L'argument doit être un String et dans ton cas c'est un type défini par l'utilisateur.