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

contrainte1: retenir uniquement fichiers du jour modifiés en date du jour de l''envoie.

contrainte2 : retenir et attacher tous les documents sans distinction de type

le programme s’arrête lorsqu'une condition est remplie et n'attache qu'un seul et unique document word certe 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

Bonjour,

Pour info, le forum dispose d'un outil de mise en forme automatique du code :

Le problème vient du fait qu'à chaque fois que tu affectes une valeur dans sNew, tu écrases l'ancien contenu... Un essai :

Sub Test()

Dim fso As Object
Dim strFile As String, fsoFile As Variant, fsoFldr As Variant
Dim dtNew As Date, sNew As String

'... code concernant le mail...

strFile = "Z:\test"
Set fsoFldr = fso.GetFolder(strFile)
For Each fsoFile In fsoFldr.Files
    If fsoFile.DateCreated >= Date Then
        If sNew = "" Then
            sNew = fsoFile
        Else
            sNew = sNew & "," & fsoFile
        End If
    End If
Next fsoFile

With OutMail
    .To = contact
    .CC = contactcopy
    .Subject = objet1
    .HTMLBody = "Test"
    .Attachments.Add sNew
    .display
End With

End Sub

Bonjour Pedro22

merci d'avoir pris le temps de répondre.

J'ai intégré la correction que tu proposes, j'ai un message d'erreur "erreur de compilation Next sans For"

pourtant For est bien la, est-ce que cela vient des 2 if qui se suivent ?

Merci

Tarik

Bonjour,

Un oubli de ma part, j'ai rajouté le End If manquant juste avant le Next dans le code de mon 1er post.

Bonjour Pedro,

j'ai rectifié mais le mail se génère sans pièces jointes