On Error Resume Next Workbooks.Open Filename:=Chemin & "annonces.xls" If Err.Number <> 0 Then MsgBox "n'existe pas"
AV
"CS78" a écrit dans le message news: bo644r$lu9$
Bonjour,
J'ai cette instruction pour ouvrir un fichier :
Workbooks.Open Filename:=Chemin & "annonces.xls" Mais je voudrais tester l'existance de ce fichier avant de l'ouvrir. Comment faire ?
Merci
CS
Frédéric Sigonneau
Bonsoir,
Autre approche possible :
S=Chemin & "annonces.xls" If Dir(S)<>"" Then Workbooks.Open S
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai cette instruction pour ouvrir un fichier :
Workbooks.Open Filename:=Chemin & "annonces.xls" Mais je voudrais tester l'existance de ce fichier avant de l'ouvrir. Comment faire ?
Merci
CS
Bonsoir,
Autre approche possible :
S=Chemin & "annonces.xls"
If Dir(S)<>"" Then Workbooks.Open S
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai cette instruction pour ouvrir un fichier :
Workbooks.Open Filename:=Chemin & "annonces.xls"
Mais je voudrais tester l'existance de ce fichier avant de l'ouvrir.
Comment faire ?
S=Chemin & "annonces.xls" If Dir(S)<>"" Then Workbooks.Open S
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour,
J'ai cette instruction pour ouvrir un fichier :
Workbooks.Open Filename:=Chemin & "annonces.xls" Mais je voudrais tester l'existance de ce fichier avant de l'ouvrir. Comment faire ?
