envoyer un email avec une PJ word

Version imprimable

Bonjour,

Je souhaite via une feuille excel envoyer un email avec une pièce jointe en .txt
Est ce possible ?

J'ai un code mais il plante sur la ligne : :cry:
MonMessage.Attachments.Add nomfich

Voici le code :

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 test()
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim nomfich As String
  Dim Corps As String
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.createitem(0)
 
'faire une imput box demandant la commande à transmettre
 
Sheets("Commandes").Select
Range("I1").Select
Cde = ActiveCell.Value
 
Range("I3").Select
Email = ActiveCell.Value
 
myrep = "\\Serveur-caill\Documents\temporaire\Nicolas\Envoi_BA_par_email\Exple_Cde_clé_USB\20071106"
nomfich = Dir(myrep & "\*" & Cde & "*.txt")
 
 
  MonMessage.To = Email
  MonMessage.Subject = "Lots de votre commande"
  Corps = "Bonjour," & vbCrLf & vbCrLf
  Corps = Corps & "Veuillez trouver ci-joint le fichier." & vbCrLf & vbCrLf & "Cordialement."
  MonMessage.body = Corps
  MonMessage.Attachments.Add nomfich
  MonMessage.Display
  SendKeys "^{ENTER}"
  Set MonOutlook = Nothing
End Sub

Merci d'avance pour votre précieuse aide

Nini

06/11/2007, 15h31
Invité

Bonjour

Je ne sais pas trop, mais à mon avis il ne doit pas aimer les * dans le nom de ton fichier.
Enleves-les pour voir.

Starec
06/11/2007, 15h37
liop49

Même chose sans les *
:cry:

Une autre idée ?
06/11/2007, 15h41
Invité

Re

Fais un debug.print ou affiche dans une message box le contenu de nomfich, pour voir si ce qu'il contient est cohérent.

Starec
06/11/2007, 15h51
liop49

Il affiche en fait le nom du fichier que je souhaite en pj soit dans mon cas 13009.TXT

Par contre, il n'affiche pas le chemin complet pour y accèder, alors peut-être que cela vient de là ?
06/11/2007, 15h54
Invité

Citation:

Envoyé par liop49

Il affiche en fait le nom du fichier que je souhaite en pj soit dans mon cas 13009.TXT

Par contre, il n'affiche pas le chemin complet pour y accèder, alors peut-être que cela vient de là ?

Eh oui, il ne peut trouver le fichier sans le répertoire.
Fais une recherche sur les forums, tu trouveras comment le trouver.

Starec
06/11/2007, 16h17
liop49

Et voilà :yaisse2:

Merci pour ton aide car tes questions m'ont fait réagir sur mon code et l'erreur était toute simple il fallait :

Code:

nomfich = myrep & "\" & Cde & ".txt"

Le Dir d'avant permetait d'aller chercher dans un répertoire mais pas de figer un fichier

Merci encore

Nini