Discussion :

[choji5]

Bonjour,

Je travaille depuis très peu de temps sur un fichier excel que l'on m'a demandé de compléter.

En fait, une macro est réalisée, son objectifs est de parcourir dans 3 dossiers différents tout les fichiers qu'ils contiennent succesivement pour en extraire des valeurs.

Cependant j'avais besoin lorsque un fichier était en cours de traitement, d'en ouvrir un autre en parralèle pour aller chercher une valeur spécifique.

Tout ceci fonctionne très bien, j'utilise la fonction Dir() pour parcourir l'ensemble de mes fichiers et ceci marche très bien.

En revanche lorsque j'ouvre mon deuxième fichier, ça fonctionne car je n'utilise pas la fonction Dir() (car sinon je perds mon chemin mémorisé je crois). J'utilise un chemin absolu et je peux lire deux fichiers à la fois.
Cependant lorsque le fichier que je cherche n'existe pas, j'aimerais ne rien faire mais impossible ..

J'aimerai juste pouvoir dire Si Fichier Existe Alors .... Sinon ....
En parlant bien sur du deuxième fichier à ouvrir. Sauf que la problème je ne sais pas comment vérifier ceci sans utiliser la méthode Dir().

J'aurais juste besoin de savoir comment puis je faire pour dire Si telle chemin de fichier (X:\ ....\ Monfichier.xls) existe ou non.

Merci pour votre aide (je débute en programmation et dans les forums)

[Invité]

Tu peux utiliser 'FileSystemObject':

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
Option Explicit
 
Private Sub FichierExiste()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
 
    'Instanciation du FSO
    Set oFSO = New Scripting.FileSystemObject
    'Instanciation de l'objet File
    If oFSO.FileExists("X:\ ....\ Monfichier.xls") Then
       ...
    Else
       ...
    End If
 
End Sub

[choji5]

J'ai bien fait comme tu m'as montré à prioris. Sauf que (l'erreur vient surement de moi, j'ai du oublier un truc ou bien ne pas être dans la bonne version d'excel) quand je compile, au moment ou j'appelle le sub FichierExiste, il me dit
Erreur compilation
type défini par l'utilisateur non défini.

Et ceci pour la ligne

Code :

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

 Dim oFSO As Scripting.FileSystemObject

Soit pour la première ligne de ma fonction. comme si il ne savait pas ce qu'était Scripting.FileSystemObject

Désolé et vraiment merci de m'aider.

[Marc-L]

Bonjour,

une autre solution est de n'utiliser que Dir via une fonction renvoyant un tableau pour tout ton programme,
c'est à dire en gérant autant de variables tableau que nécessaire …

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
21
22
23
24
25
26
Function DirList(SpecFic, Optional Dossier = "", Optional Attrib As VbFileAttribute = vbNormal)
         If Dossier > "" And Right(Dossier, 1) <> "\" And _
                              Left(SpecFic, 1) <> "\" Then Dossier = Dossier & "\"
 
         F = Dir(Dossier & SpecFic, Attrib)
         U = -(F > "")
         ReDim T(U To U) As String
 
         Do Until F = ""
            ReDim Preserve T(1 To U)
            T(U) = Dossier & F
               F = Dir
               U = U + 1
         Loop
 
         DirList = T
End Function
 
 
Private Sub Demo()
    T = DirList("*.txt", "D:\Tests")
 
    For N = 1 To UBound(T)
        Debug.Print Format(N, "@@@  "); T(N)
    Next
End Sub

Exécuter la procédure Demo et voir le résultat dans la fenêtre Exécution de l'environnement VBA.

UBound renvoie la valeur zéro si pas de fichier trouvé.


_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

C'est parce qu'il faut que tu actives la référence Microsoft Scripting Runtime.

Sinon tu peux utiliser le 'late binding' auquel cas tu n'as pas besoin d'activer la référence:

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
Option Explicit
 
Private Sub FichierExiste()
Dim oFSO As Object
 
    'Instanciation du FSO
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    'Instanciation de l'objet File
    If oFSO.FileExists("X:\ ....\ Monfichier.xls") Then
       ...
    Else
       ...
    End If
 
End Sub

http://warin.developpez.com/access/fichiers/

[choji5]

Ca fonctionne!

J'ai utilisé ta méthode vcottineau, car c'était la plus courte, je n'ai pas encore regardé la tienne Marc-L car elle me semblait plus complexe mais par curiosité je vais y jeter un oeil pour essayer de comprendre.

En tout cas merci beaucoup c'était exactement ce que je cherchais et tout marche comme je voulais, tout va bien dans le meilleur des mondes.

Je vous remercie vous êtes très fort Je comprend enfin le pouvoir des forums.