Tester l'existence d'un fichier dans un sous répertoire VBA Excel

Bonjour,

Normalement cela devrait marcher sous Mac également mais je n'ai pas d'expérience sous Mac :

chemin = ActiveWorkbook.Path

PathSep = Application.PathSeparator

nom = Format([E5], "0000") & ".xls"

Sheets("Devis").Copy

On Error GoTo SUITE

Workbooks.Open Filename:=chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:=xlExcel8

ActiveWorkbook.Close False

MsgBox "Fichier déjà existant !!"

Exit Sub

SUITE:

On Error GoTo 0

ActiveWorkbook.SaveAs chemin & PathSep & "Archives Devis" & PathSep & nom, FileFormat:=xlExcel8

suite de ton programme...

End Sub

L'idée est de tenter d'ouvrir le fichier en testant si il y a erreur.

Si erreur : fichier inexistant et le programme peut continuer à se poursuivre normalement au branchement SUIVANT: (attention ne pas oublier les : après SUIVANT- je le précise car on ne les vois pas très bien)

Si pas erreur : fichier existant donc on ferme le fichier que l'on vient d'ouvrir et on envoie un message pour signaler Fichier déjà existant et on arrête la procédure pour pouvoir corriger.

En fonction de tes besoins, on peut,  bien évidemment, adapter cette procédure et réagir différemment.

Merci de me tenir informer

A+

Chris