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