Discussion :

[une_tite_question]

Bonjour,
Je vous soumet la boucle que j'utilise pour parcourir un répertoire et rechercher les fichiers xls.

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
g = Dir("C:\Test\*.xls", 7)
Do While g <> ""
 nom = rechercher_nom(g)
 If nom <> "alain" Then _
            f = FichierExiste("c:\test\" & nom & ".xlsx")
                     If f = True Then copier_fichier (nom) _
                     Else: MsgBox ("OK")
      
     End If
     
     
        g = Dir()
      
Loop

   End Sub

Quand je commente la partie en rouge, la boucle parcourt bien tout le répertoire, par contre quand je le décommente elle ne boucle plus.
En effet

Code :

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

 g=Dir()

renvoie une chaine vide.
Que faut il faire pour que ça puissse fonctionner.

Merci de votre aide

[une_tite_question]

Bonjour,

Mon pb venait du fait que la fonction :

Code :

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

f = FichierExiste("c:\test\" & nom & ".xlsx")

Utilise aussi la fonction Dir donc le

Code :

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

 g= Dir()

me donne une chaine vide, je cherche donc un moyen de contourner ce pb.
J'ai pensé à ne pas utiliser Dir dans ma fonction FichierExiste, et je pensais le coder de cette manière

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function FichierExiste(nom) As Boolean
    On Error Resume Next
     Set returnValue = Workbooks.Open(Filename:="c:\test\" & nom & ".xlsx")
          result = TypeOf returnValue.Object Is Workbook
       If result = True Then _    
    Workbooks(nom & ".xlsx").Close _
        FichierExiste = True _
      Else: FichierExiste = False
      'End If
End Function

Par contre je n'arrive à faire le test, j'ai toujours false, est ce la bonne utilisation de typeOf ou avez vous un autre moyen.

Merci

[une_tite_question]

Je viens de tomber sur ce poste, qui indique l'utilisation de Fileexists, ça marche.
http://www.developpez.net/forums/d33...er-fileexists/

Merci DVP