Erreur 1004 sur boucle

[patsyl60]

Bonjour à tous,

Sur une boucle, je récupère plusieurs infos dans plusieurs fichiers. Le nom de fichier est géré par ma boucle ( dans mon exemple 06_05,06_06_,etc...). Mais lorsque le fichier n'existe pas, j'ai une erreur 1004 et je ne sais pas la gérer. Il faudrait que lorsque le fichier n'existe pas, on passe au suivant.

Pouvez vous m'aider ? Je vous joint mon fichier test.

D'avance merci.

Patsyl60

 

[Guest]

Re : Erreur 1004 sur boucle

Bonjour,


Avec DIR('Fichier')

    For I = 5 To anneeencours
        V = Format(I, "0#")
        If Dir("C:\TEST EXCEL\" & mois & "_" & V & "\Total entrant.xls") <> "" Then
            Workbooks.Open Filename:="C:\TEST EXCEL\" & mois & "_" & V & "\Total entrant.xls"
            Range("A5:D5").Copy
            Windows("comparer 2 fichiers.xls").Activate
            Range("A65536").End(xlUp)(2) = "20" & I
            Range("B65536").End(xlUp)(2).Select
            Selection.PasteSpecial Paste:=xlPasteValues
            Windows("Total entrant.xls").Close
            Range("A1").Select
        End If
    Next I

A+

 

[patsyl60]

Re : Erreur 1004 sur boucle

Bonjour Hasco,

merci pour ta réponse rapide et efficace. Tout fonctionne maintenant.

Bonne journée.

Patsyl60