Tester si un fichier existe

Version imprimable

Salut le forum,

Je souhaite créer une macro me permettant de vérifier si un fichier excel existe avant d'aller y chercher des infos...Cf. Code ci-après :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TestFichier()
 
Dim CodeNomenclature As String
 
NomFichier = "Toto"
CodeNomenclature = "titi"
 
Set Nomenclature = GetObject("G:\DonneesClients\DonneesTechniques\" & NomFichier & "\Nomenclature\" & CodeNomenclature & ".xlsx")
 
    If Nomenclature Is Nothing Then
                MsgBox ("La nomenclature :" & CodeNomenclature & ".Xlsx n'a pas été créée!")
            Else
                MsgBox ("La nomenclature :" & CodeNomenclature & ".Xlsx existe")
    End If
    Nomenclature.Close False
End Sub

Cependant lorsque le fichier titi.xlsx n'existe pas le programme plante :oops:

Quelqu'un aurai-il une suggestion???

Merci d'avance,

@+ Jeanvaljean

Bonjour

Code:

1
2
3
4
5
6
Txt = Dir "CheminComplet\" & "toto.XXX"
if Txt = "" then 
   MsgBox "Le fichier n'existe pas"
else
    MsgBox "Le fichier " & Txt & " Existe"
end if

A+

21/12/2007, 16h28
Jeanvaljean44

Bonjour LeForestier!!!

Problème résolu, merci de ton coup de pouce, :yaisse2:

@ bientôt Jeanvaljean44

Bonjour, moi j'utilise ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Set oFSO = New Scripting.FileSystemObject
        If oFSO.fileexists(repertoire) Then
            Set oFSO = Nothing
            Exit Do
        Else
            Set oFSO = Nothing
            tâche
            If on_reessai = vbYes Then
            Else
                End
            End If
        End If

Code:

1 2 NomFich = Dir "G:\DonneesClients\DonneesTechniques\" & NomFichier If NomFich <> "" then msgbox "LeFichier Existe"
C'est plus court et ça ne coûte rien en déclaration ;)