Envoi mail script en vbs

Bonjour,

j'aurais besoin d'un petit coup de pouce sur un script d'envoi d'un message outlook tous les jours avec une pièces jointes.

Mon problème est que la pièce jointe est un fichier excel qui comporte la date du jour sous forme FICHIER19-09-2014 et qui change donc tous les jours. comment notifier à mon script qu'il faut qu'il prenne le fichier du jour ?

Voici ce que j'avais fais mais ca ne marche pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set objEmail = CreateObject("CDO.Message") objEmail.From = "toto@toto.com" objEmail.To = "tata@tata.com" objEmail.Subject = "Sujet: Toto a la plage" objEmail.Textbody = "Texte: Il fait beau, le soleil brille ____" objEmail.addAttachment("C:\FICHESDUJOUR" & Format(date, "dd-mm-yyyy")" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =_ "smtp.colt.net" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Send

---

Merci pour votre aide !

:salut:

Code:

---

Msgbox "FICHER_" & Day(Now) & "-" & Month(Now) & "-" & Year(Now)

---

merci Mehdi !

Je viens de tester et il me répond comme erreur "le fichier spécifié est introuvable".

Pourtant lorsque je retire les days, month et year en lui demandant d'aller chercher le fichier sans date ca marche.

Code:

---

objEmail.addAttachment("P:\ADM\FICHESDUJOUR" & day(now) & "-" & month(now) & "-" & year(now) & ".xls")

---

une idée ???

Salut

Code:

---

MsgBox "P:\ADM\FICHESDUJOUR" & Format(Day(Now), "00") & "-" & Format(Month(Now), "00") & "-" & Year(Now) & ".xls"

---

:oops: je me croyais encore dans le forum VB6

Code:

---

1 2 3 4 5 6

MsgBox "P:\ADM\FICHESDUJOUR" & StrFormat(Day(Now)) & "-" & StrFormat(Month(Now)) & "-" & Year(Now) & ".xls"   Private Function StrFormat(Quoi) StrFormat = Quoi If Len(Quoi) < 2 Then StrFormat = "0" & Quoi End Function

---

merci francis...

Désolée mais encore un message d'erreur : type incompatible:'format'....

:?

yearh...... ca marche ! merci beaucoup pour ton aide !

:D