script VBS qui envoi le dernier fichier du dossier par mail en pièce jointe !

Version imprimable

31/10/2014, 22h13
Moustafito

script VBS qui envoi le dernier fichier du dossier par mail en pièce jointe !

Bonjour,

j'aurais besoin d'un petit coup de pouce sur un script script VBS qui envoi le dernier fichier du dossier par mail en pièce jointe !

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

Merci d’avance !

Salut

Citation:

comment notifier à mon script qu'il faut qu'il prenne le fichier du jour ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim fso, f, f1, fc
Dim TermeRechercher
TermeRechercher = Day(Date) & Month(Date) & Year(Date)
Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder("C:\Provisoir\") '<<<<<<<<<<<<<<<<< ici ton dossier contenant le fichier .csv
   Set fc = f.Files
   For Each f1 In fc
    If InStr(1, f1.Name, TermeRechercher) Then
        If LCase(Right(f1.Name, 3)) = "csv" Then
            MsgBox "fichier correspondant: " & f1.Name
            Exit For
        End If
    End If
Next

01/11/2014, 10h27
Moustafito

Merci pour ta réponse rapide !

J'ai peut-être pas été assez explicite je m'en excuse.

Mon script doit envoyé par mail le ou les derniers fichier(s) reçu(s).
Sachant que le dossier (où je pioche les fichiers) est alimenté par des fichiers cvs.

le script doit donc :

- Envoyer en pièce jointe "le dernier nouveaux fichiers récus
- Ou les derniers fichiers reçus s'il y'en a plusieurs.

MErci pour votre aide.