Bonjour,
J'ai un souci avec ma macro.
Je veux qu'elle m'ouvre un fichier.
Si elle ne trouve pas le fichier, je veux juste qu'elle m'ouvre la fenetre de windows explorer étant censée contenir le fichier.
j'ai commencé par celle-ci :
Dim repertoire As String
repertoire = Sheets("variable").Range("d11")
On Error GoTo erreur
Workbooks.Open Filename:= _
Sheets("variable").Range("c11")
Exit Sub
erreur:
Shell "C:\windows\EXPLORER.EXE /n,/Select," & repertoire, vbNormalFocus
Avec cette macro, si elle trouve le fichier elle me l'ouvre et stope la macro, si elle ne trouve pas elle m'ouvre une fenêtre d'erreur (run time error 1004...) et stope aussi la macro.
Comment faire pour qu'elle exécute la seconde condition "erreur"???
J'ai fait des tests aussi avec if fichier inexistant then ... mais ça ne fonctionne pas non plus...
Quelqu'un aurait-il une idée?
J'ai un souci avec ma macro.
Je veux qu'elle m'ouvre un fichier.
Si elle ne trouve pas le fichier, je veux juste qu'elle m'ouvre la fenetre de windows explorer étant censée contenir le fichier.
j'ai commencé par celle-ci :
Dim repertoire As String
repertoire = Sheets("variable").Range("d11")
On Error GoTo erreur
Workbooks.Open Filename:= _
Sheets("variable").Range("c11")
Exit Sub
erreur:
Shell "C:\windows\EXPLORER.EXE /n,/Select," & repertoire, vbNormalFocus
Avec cette macro, si elle trouve le fichier elle me l'ouvre et stope la macro, si elle ne trouve pas elle m'ouvre une fenêtre d'erreur (run time error 1004...) et stope aussi la macro.
Comment faire pour qu'elle exécute la seconde condition "erreur"???
J'ai fait des tests aussi avec if fichier inexistant then ... mais ça ne fonctionne pas non plus...
Quelqu'un aurait-il une idée?