comment tester l'existance d'un fichier

[lory]

bonjour forum

j'ai des fichier avec index

je voudrais utlisé while index< 600 and 'fichier' & index & existe

open 'C:\\fichier' &index &

est ce que quelqu'un a une idée?

merci

 

[Arnaud]

Salut 🙂,

 Dim fso, msg
Set fso = CreateObject('Scripting.FileSystemObject')
FichierExiste = IIf(fso.FileExists(filespec), True, False)

Met true ou false dans la variable FichierExiste selon si celui-ci existe ou non.

 

[lory]

salut Arnaud

j'ai pas compris ton code et comment l'integrer dans mon programme

 

[2passage]

Bonjour,

en version simpliste (étant moi même un peu simple...), il y a ca (avec le chemin complet du fichier en A1 dans mon exemple) :

Private Sub CommandButton1_Click()
retval = Dir(Range('A1').Text)
If retval = '' Then
    MsgBox 'Le fichier n'existe pas'
Else
    MsgBox 'le fichier existe'
End If
End Sub

++

Message édité par: 2passage, à: 13/06/2005 11:33