Discussion :

[Mrfreeze117]

Bonjour,

Est -il possible de vérifier l'existence d'un fichier sans faire appelle à l’instruction Dir?

J'ai besoin de tester l'existence d'un fichier a l'intérieur de ma boucle While or si je mets un Dir à l'intérieur de cette boucle ça l'interrompt.

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
Sub fichier()
 
Dim fichier As Variant
Dim cheminfichier As Variant
Dim Dossiertempasup As Variant
 
Dim n As Integer
 
Dossiertempasup = "C:\Users\xx\Desktop\Dossier tempon à sup"
If Existencedossier(Dossiertempasup) = "" Then
MkDir Dossiertempasup
End If
 
cheminfichier = "C:\Users\xxx\Desktop\Suivi\données essai zip\"
fichier = Dir(cheminfichier & "*.*")
n = 0
While fichier <> ""
n = n + 1
 
fichier = Dir
Wend
 
MsgBox n
MsgBox "Mise à jour fini"
End Sub

Quelqu'un aurai une idée? Merci d'avance

[Ltspitfire]

Bonjour,

Oui c'est possible avec la fonction suivante :

Code :

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

1
2
3
4
5
6
Public Function ExisteFichier(S As String) As Boolean
 Dim f As Object
    'Test si le fichier existe/est trouvé
     Set f = CreateObject("Scripting.FileSystemObject")
     ExisteFichier = f.FileExists(S)
 End Function

Après tu l'appel ou tu veux :

Code :

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

If ExisteFichier("chemin\fichier.xlsm") Then

Cordialement,
Ltspitfire

[Mrfreeze117]

Merci beaucoup ça marche super bien.