Discussion :

[Moustafito]

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 !

[ProgElecT]

Salut

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

Code :

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

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

[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.