Bonjour j'ai une macro pour ouvrir un fichier pdf mais si le fichier n'existe pas dans mon répertoire, acrobat s'ouvre quand meme avec un message d'anomalie.
Je voudrais que dans ce cas il ne s'ouvre pas ( ou se referme ) et que mon msgbox s'affiche.
Je mets ma macro en dessous
Merci à tous
Option Explicit
Const CHEMIN As String = "c:\"
Sub H2()
Dim rc
Dim A$
On Error GoTo prob
A$ = Trim(Range("a2"))
A$ = Format(Trim(Range("a2")), "00000000")
'If A$ <> "" Then
If LCase(Right(A$, 4)) <> ".pdf" Then A$ = A$ & ".pdf"
On Error Resume Next
rc = Shell(Chr(34) & "C:\Program Files\Adobe\Reader 8.0\Reader\acroRd32.exe" & Chr(34) & CHEMIN & A$, vbNormalFocus)
prob:
MsgBox ("fichier inexistant")
'End If
End Sub
Je voudrais que dans ce cas il ne s'ouvre pas ( ou se referme ) et que mon msgbox s'affiche.
Je mets ma macro en dessous
Merci à tous
Option Explicit
Const CHEMIN As String = "c:\"
Sub H2()
Dim rc
Dim A$
On Error GoTo prob
A$ = Trim(Range("a2"))
A$ = Format(Trim(Range("a2")), "00000000")
'If A$ <> "" Then
If LCase(Right(A$, 4)) <> ".pdf" Then A$ = A$ & ".pdf"
On Error Resume Next
rc = Shell(Chr(34) & "C:\Program Files\Adobe\Reader 8.0\Reader\acroRd32.exe" & Chr(34) & CHEMIN & A$, vbNormalFocus)
prob:
MsgBox ("fichier inexistant")
'End If
End Sub