Discussion :

[benpinta]

Bonjour,

Je ne sais pas comment coder de facon méthodique (pour éviter de rester bloquer sur l'application pdt 10h!!), une macro perso qui

-verifierait la valeur d'une cellule d'un fichier xls,

-comparerait cette valeur à la date (now),

-enverrait ou non ce fichier suivant une adresse mail contenu dans une autre cellule de ce meme fichier.

et tout cela pour une liste de fichier de même type contenu dans un repertoire commun. en gros un traitement par lot...

à titre indicatif j'ai 500 fichiers à checker, environ une trentaine devront être mailés, et je crains overbookage du pc...

D'avance merci de vos aides sans lesquelles le VBA serait devenu un enfer pour moi!!

[Commodore]

Salut!

Il faut te plonger dans la doc du FileSystemObject pour pouvoir parcourir la collection de fichiers contenus dans ton/tes dossier(s).

A partir du moment où tu boucles sur la collection de fichiers, tu les ouvres l'un après l'autre, checke les cellules et le tour est joué.

Tu peux même coder un envoi automatique des mails si tu utilises Outlook

Pour + d'info, recherche dans le forum les topics sur le parcours de fichiers avec FSO, il y en a quelques uns.

Bon courage, ce n'est pas insurmontable. En cas de pb, je reste à ta disposition pour quelques éclaircissements.

[kiki29]

Jour Bon,
Moyennant une adaptation ce fichier devrait convenir pour la partie : recherche récursive ou non d'une valeur dans n fichiers XL d'un dossier D
Ajouter une seconde valeur à lire : voir le code et l'adapter pour une autre cellule que A1 ( le code le montre )
Pour le Mail voir peut-être via CDO
ainsi que Comment envoyer un fichier par mail sans Outlook ?

[ouskel'n'or]

Pour lister les fichiers d'un répertoire tu as ça

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
16
17
18
19
20
Sub ListFile()
Dim NomRep, Tabnom, NomFich
    NomRep = "C:\LeRep"
    With Excel.Application.FileSearch
        .NewSearch
        .LookIn = NomRep
        '.SearchSubFolders = True
        .Filename = "*.xls"
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                Tabnom = Split(.FoundFiles(i), "\")
                'NomFich = Tabnom(UBound(Tabnom)) 'pour avoir le nom du fichier
                Workbooks.open .FoundFiles(i) '.foundFiles donne le nom complet
                'recherche de la cellule
                'comparaison
                'Envoi ou non par mail -> Tu as le code sur le forum
            Next i
        End If
    End With
End Sub

Bonne soirée

[benpinta]

MERCI à vous 3, je me planche sur le problème mais ca va le faire avec les petits coups de pouces.