Boncle sur fichiers dans repertoire

Bonjour,

Mon code actuel fait une boucle dans un répertoire pour retenir en pièces jointes uniquement les fichiers du jour lastmodifieddate>=date.

contrainte : retenir uniquement fichiers du jour modifiés en date du jour de l''envoie quelque soit le format/extension.

le programme s’arrête lorsqu'une condition est remplie et n'attache qu'un seul et unique document word certes bien modifié en date du jour.

au lieu d'attacher l'ensemble des docs modifiés du jour.

Le programme devrait attacher tous les docs modifiés du jour au lieu de s’arrêter a la première itération.

code :

Dim fso As Object

Dim strFile As String

Dim fsoFile

Dim fsoFldr

Dim dtNew As Date, sNew As String

strFile = "Z:\test"

Set fsoFldr = fso.GetFolder(strFile)

For Each fsoFile In fsoFldr.Files

If fsoFile.DateCreated >= Date Then

sNew = fsoFile

End If

Next fsoFile

With OutMail

.To = contact

.CC = contactcopy

.Subject = objet1

.HTMLBody = "Test"

.Attachments.Add sNew

.display

End With

Merci par avance

Tarik

Bonsoir,

regarde ici

EDIT : C'est la réponse en dessous qu'il faut regarder hein... Pas la question !

A+

Hello Galopin

Merci pour ton aide ca me met sur la voix...

hello

j'ai intégré une partie du code du forum stackoverflow cela me rapproche de ce que je souhaite mais de façon imprécise car le mail attache tous les documents sans distinguer uniquement les documents du jour.

mon erreur se trouve au niveau de Do While (StrFile) >= Date

Il me manque la syntaxe correcte de ce code : Do While (StrFile).DateCreated >= Date

de sorte que seuls les documents créés ce jours soient retenus en pièces jointes

Merci

With OutMail
 .To = contact
 .CC = contactcopy
 .Subject = objet1 
 .HTMLBody = "Hi," & "<BR>" & "<BR>" & phrase1 & "<BR>" & "<BR>" & "<BR>" & "<BR>" & "<BR>" & Signature

   StrFile = Dir(StrPath & "*.*")

        Do While (StrFile) >= Date
            .Attachments.Add StrPath & StrFile
            StrFile = Dir
        Loop

 .display
End With

hello

solution trouvée en contournant la contrainte :

identifier les noms des fichiers du jour sans un range dans un sheet

faire une boucle for each dans ce range et y associer un attachement.add

ca fonctionne

cheers