gestion d'erreur et fermer acrobat reader

sri75 · 28 Janvier 2009

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 · 28 Janvier 2009

Re : gestion d'erreur et fermer acrobat reader

Bonjour,

Code:

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 · 28 Janvier 2009

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 · 28 Janvier 2009

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 · 28 Janvier 2009

Re : gestion d'erreur et fermer acrobat reader

Hasco à dit:
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 · 28 Janvier 2009

Re : gestion d'erreur et fermer acrobat reader

Re,

Autant pour moi:

Code:

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 · 28 Janvier 2009

Re : gestion d'erreur et fermer acrobat reader

C'est parfait, merci beaucoup pour votre aide.

Bonne journée.

gestion d'erreur et fermer acrobat reader

sri75

XLDnaute Occasionnel

Guest

Guest

sri75

XLDnaute Occasionnel

Guest

Guest

sri75

XLDnaute Occasionnel

Guest

Guest

sri75

XLDnaute Occasionnel

Discussions similaires