Discussion :

[nathalie.de]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nathalie.de]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

une idée ???

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

je me croyais encore dans le forum VB6

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nathalie.de]

merci francis...

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

[nathalie.de]

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