gestion d'erreur et fermer acrobat reader

[sri75]

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

 

[Guest]

Re : gestion d'erreur et fermer acrobat reader

Bonjour,

if Dir("C:\Program Files\Adobe\Reader 8.0\Reader\acroRd32.exe" & Chr(34) & CHEMIN & A$)<>"" then
On Error Resume Next
rc = Shell(Chr(34) & "C:\Program Files\Adobe\Reader 8.0\Reader\acroRd32.exe" & Chr(34) & CHEMIN & A$, vbNormalFocus)
Else
MsgBox ("fichier inexistant")
End If

P.S.: dans l'éditeur des post il y a sur la barre de mise en forme un bouton '#' qui permet d'insérer la balise code dans le message.


A+

 

[sri75]

Re : gestion d'erreur et fermer acrobat reader

Bonjour, malheureusement ca ne marche pas, ca génère une erreur 52 ou si je met le on error avant ca ouvre quand meme acrobat.

je continue de chercher, merci pour votre aide

 

[Guest]

Re : gestion d'erreur et fermer acrobat reader

Re,

Erreur 52: Nom ou numéro de fichier incorrect

Ton nom de fichier est sûrement mal composé ou comporte des signes interdits.

A+

 

[sri75]

Re : gestion d'erreur et fermer acrobat reader

Re,

Erreur 52: Nom ou numéro de fichier incorrect

Ton nom de fichier est sûrement mal composé ou comporte des signes interdits.

A+

J'ai l'erreur 52 si mon fichier n'existe pas dans mon CHEMIN, ma gestion d'erreur est de zapper l'ouverture d'acrobat si le fichier que je cherche, A$ ,n'existe pas dans CHEMIN.
A+

 

[Guest]

Re : gestion d'erreur et fermer acrobat reader

Re,

Autant pour moi:

if Dir([B]CHEMIN & A$[/B])<>"" then
rc = Shell(Chr(34) & "C:\Program Files\Adobe\Reader 8.0\Reader\acroRd32.exe" & Chr(34) & CHEMIN & A$, vbNormalFocus)
Else
MsgBox ("fichier inexistant")
End If

A+

 

[sri75]

Re : gestion d'erreur et fermer acrobat reader

C'est parfait, merci beaucoup pour votre aide.

Bonne journée.