Discussion :

[Wolfgang31]

Bonjour,

Avant d'ouvrir un classeur Excel je souhaiterai savoir si le fichier existe sinon j'ai une erreur dans ma macro sur la méthode open.

Est-ce qu'une âme charitable pourrait m'indiquer quel ordre je peux rajouter avant mon ordre open ?

Vous remerciant d'avance.

[Invité]

Bonsoir Wolfgang31,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
mfich = Dir("Lecteur/dossier/sous-dossier(éventuellement aucun ou plusieurs)/nom_fichier (avec le point et l'extension)".
 
If mfich = ""
Msgbox "Fichier non trouvé !"
Exit sub  ' c'est un exemple
' le fichier n'a pas été trouvé
 
else
 
'votre code, il a été trouvé 
 
end if

[kiki29]

Code :

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

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

If ExistenceFichier(NomDuFichierATester) then .... Else ....

[lucfrfr]

bonjour,
moi j'utilise ça :

Code :

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

1
2
3
4
5
6
7
Dim oFSO As Scripting.FileSystemObject
repertoire = (directory et nomfichier)
Set oFSO = New Scripting.FileSystemObject
If oFSO.fileexists(repertoire) Then
    MsgBox ("Le fichier " & repertoire & " existe.")
End If
Set oFSO = Nothing