Ouverture PDF avec variable et Acrobat8

[2susy]

Bonjour à tous,
j'avais trouvé le moyen d'ouvrir un pdf avec une variable sur Acrobat R 7 mais au bureau on est passés à la v8 (pas moyen de revenir en arrière) et le résultat, c'est que ça ne marche plus !
Si je mets un fichier pdf à ouvrir sans variable, il ouvre le fichier sans problème. Mais depuis que j'ai remplacé la version d' AReader, il fait une erreur avec mon code qui fonctionnait parfaitement avant (message d'erreur : "une erreur est survenue lors de l'ouverture de ce document. Fichier introuvable.")

Private Sub CommandButton26_Click()
'recherche du CV de la sélection en cours
Dim MyVar As Variant, Prenom As Variant, Nom As Variant
UserForm4.ListBox8.TextColumn = 2
Prenom = UserForm4.ListBox8.Text
UserForm4.ListBox8.TextColumn = 1
Nom = UserForm4.ListBox8.Text
MyVar = Nom & " " & Prenom
Const ThePath As String = "C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"
Dim ThePDF As String
ThePDF = "R:\PARIS\Divers\CV\HELENE\CV\" & MyVar & ".pdf"
If Dir(ThePDF) <> "" Then
Shell ThePath + " " + ThePDF, vbNormalFocus
Else
MsgBox ("No CV found")
End If
End Sub

Si vous avez une idée de solution, je suis preneuse !
merci !
2susy

 

[MJ13]

Re : Ouverture PDF avec variable et Acrobat8

Bonjour

Je n'ai pas eu de soucis pour ouvrir ce fichier avec ta macro (j'ai ôter les messages venant des boxs).

Essaies déja avec un exemple simple puis debogue.

Private Sub CommandButton26_Click()
'recherche du CV de la sélection en cours
Dim MyVar As Variant, Prenom As Variant, Nom As Variant
'UserForm4.ListBox8.TextColumn = 2
'Prenom = UserForm4.ListBox8.Text
'UserForm4.ListBox8.TextColumn = 1
'Nom = UserForm4.ListBox8.Text
'MyVar = Nom & " " & Prenom
Const ThePath As String = "C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"
Dim ThePDF As String
ThePDF = "C:\Divers\Test.pdf"
If Dir(ThePDF) <> "" Then
Shell ThePath + " " + ThePDF, vbNormalFocus
Else
MsgBox ("No CV found")
End If
End Sub

 

[2susy]

Re : Ouverture PDF avec variable et Acrobat8

J'ai déjà essayé avec un fichier simple, mais je n'ai rien trouvé à débuguer dans le chemin pour ouvrir mon fichier variable, j'ai toujours cette erreur de fichier introuvable alors qu'il existe dans le dossier...
Quand le fichier n'existe vraiment pas j'ai bien, comme mon code le prévoit, le msgbox ("No CV found") qui apparaît...

Pour info, j'ai déjà fait réinstaller AdobeReader8 et réglé le problème des fichiers temp souvent à l'origine de problèmes à l'ouverture.

 

[2susy]

Re : Ouverture PDF avec variable et Acrobat8

Je relance le sujet car j'ai un peu avancé depuis,
les fichiers que je souhaite ouvrir contiennent un espace, si je le supprime, vba parvient à les ouvrir, mais je ne peux pas renommer tous les fichiers,
mon code prend pourtant en compte cet espace...

Private Sub CommandButton26_Click()
Dim MyVar As Variant, Prenom As Variant, Nom As Variant
UserForm4.ListBox8.TextColumn = 2
Prenom = UserForm4.ListBox8.Text
UserForm4.ListBox8.TextColumn = 1
Nom = UserForm4.ListBox8.Text
[B]MyVar = Nom & " " & Prenom[/B]
Const ThePath As String = "C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"
Dim ThePDF As String
ThePDF = "R:\PARIS\CV\" & MyVar & ".pdf"
If Dir(ThePDF) <> "" Then
Shell ThePath + " " + ThePDF, vbNormalFocus
Else
MsgBox ("No CV found")
End If
End Sub

merci pour vos idées,

 

[Gael]

Re : Ouverture PDF avec variable et Acrobat8

Bonjour 2suzy, MJ13,

A tout hasard, as-tu essayé d'ajouter des " pour définir le nom du fichier, ce qui donnerait par exemple:

Myvar = """" & Nom & " " & Prenom & """"

Peut-être aussii avec des '

@+

Gael

 

[2susy]

Re : Ouverture PDF avec variable et Acrobat8

Merci Gael malheureusement ça ne change rien...
Si quelqu'un est abonné à experts-exchange (ce n'est pas mon cas), la solution réside peut-être là :

Adobe PDF File Open from MS Access Errors after Upgrade to 8.0 : Microsoft, Access, 2003

ou pas...
merci encore de votre aide,

 

[MJ13]

Re : Ouverture PDF avec variable et Acrobat8

Bonjour

Voici un code que j'utilise pour ouvrir les PDF.
Avec RN2 contenant le chemin(R) et nom du fichier(nf)

RN2 = R & "\" & nf
RN = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRD32.exe " & "" & Chr(34) & RN2 & Chr(34) & ""
Shell (RN)

 

[2susy]

Re : Ouverture PDF avec variable et Acrobat8

Super, merci beaucoup Mj13 ! ça fonctionne parfaitement !!
bonne journée à tous,
2susy