Discussion :

[Jeanvaljean44]

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 :

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
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

Quelqu'un aurai-il une suggestion???

Merci d'avance,

@+ Jeanvaljean

[LeForestier]

Bonjour

Code :

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

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+

[Jeanvaljean44]

Bonjour LeForestier!!!

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

@ bientôt Jeanvaljean44

[lucfrfr]

Bonjour, moi j'utilise ca :

Code :

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

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

[ouskel'n'or]

Code :

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

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