Discussion :

[guillome29]

Bonjour,

Malgré que le fichier soit inexistant, excel lance l’explorateur pour que je cherche manuellement le fichier.
(Et il me le demande 150 fois car je suis dans une boucle )

J’ai testé avec la fonction erreur mais ca ne fonctionne pas ..

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
Dim Chemin As Variant
 
On Error GoTo erreur
    Worksheets("Etat").Select
    Chemin = "='\\chemin\[AP "
        For I = 2 To 153
        Range("D" & I).FormulaR1C1 = Chemin & Range("E1") & ".xlsx]Procédures_envoyées'!R" & I & "C5"
        Next I
    Worksheets("Accueil").Select
    Exit Sub
 
'mini-programme erreur :
erreur:
MsgBox ("Le fichier avec le nom indiqué n’existe pas.")
 
End Sub

Merci d’avance

[Invité]

Bonjour,
Une erreur ouvrir le debuger pas un explorateur!

Faire une formule sur un fichier inexistant en boucle ça relève de l'obsession!
Pourquoi ne pas tester avant?

Regards la méthode calculate

[Nico Chg]

Bonjour,

Voici un bout de code que j'ai piquer sur la FAQ de developpez.net, qui permet de tester l'existence d'un fichier :

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
26
27
28
29
 
Function ExistingFile(FileName As String, FilePath as string)
'FAQ Developpez.net
 
On Error GoTo err
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Instanciation de l'objet File
If oFSO.FileExists(FilePath & "\" & FileName) Then
    ExistingFile = True
Else
    ExistingFile = False
End If
 
fin:
    Exit Function
 
err:
        Select Case err.Number
            Case 53: MsgBox "Le fichier est introuvable"
            Case Else: MsgBox "Erreur inconnue"
        End Select
 
Resume fin
 
End Function

Je récupère le FilePath sans le "\", C'est pour ça que je le rajoute entre FilePath et FileName.

ça te renvoie "True" si le fichier existe, sinon "False"

[kiki29]

Salut, lire et assimiler : Manipulation des fichiers en VBA

[guillome29]

J'ai eu quelques soucis avec ton code, Nico Chg, du coup je l’ai arrangé, directement dans un Sub, comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oFSO
Dim FileName As String
Dim FilePath As String
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
FilePath = "\\Repertoire"
FileName = "fichier.xlsx"
 
If oFSO.FileExists(FilePath & "\" & FileName) Then ' Si le fichier existe 
        Msgbox("Fichier trouvé")
Else                                                ' Si le fichier n'existe pas 
    Msgbox("Fichier non trouvé")
End If

Et ce code fonctionne parfaitement.

Merci beaucoup !
Guillaume

[kiki29]

Salut,

Code :

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

1
2
3
Private Function ExistenceFichier(sFichier As String) As Boolean
    ExistenceFichier = Dir$(sFichier) <> ""
End Function