Discussion :

[FUN Elendraug]

Bonjour,


Je tente d'avoir dans une feuille excel, un bouton m'ouvrant un document pdf avec un lien relatif.
Le nom du document à ouvrir est "SP07 - Final Report.pdf".
Ce document est situé dans un sous dossier (du nom de "Final Reports") qui est lui-même situé dans le même dossier (du nom de "test") que la feuille excel.

Pour l'instant mon code ne fonctionne pas et ressemble à ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe ActiveWorkbook.Path & "\Final Reports\SP07 - Final Report.pdf"", vbNormalFocus
End Sub

Si je met des ' à l'intérieur des "", ce code va bien m'ouvrir Adobe Acrobat Reader, mais visiblement il ne trouve pas le document que je tente de mettre en chemin relatif...





Les codes partiels suivants fonctionnent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe D:\test\Final Reports\SP07 - Final Report.pdf", vbNormalFocus
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
Workbooks.Open Filename:=ActiveWorkbook.Path & "\Final Reports\test.xls", ReadOnly:=True
Worksheets("PROMO").Activate
End Sub

Mais
- le 1er n'ouvre le pdf qu'en chemin absolu (je souhaiterais ouvrir le pdf avec un chemin relatif (afin de pouvoir librement deplace le dossier test)...)
- le 2ème n'ouvre que les xls en chemin relatif


=> Est-ce que quelqu'un sait quoi faire et pourrait m'aider svp ?


Merci d'avance,


Meilleures salutations


FUN

[Invité]

Bonjour

ActiveWorkbook.Path doit être ajouté à ta chaine par concaténation, comme si c'était une variable.

Starec

[FUN Elendraug]

Tout d'abord merci de la réponse rapide (ça fait toujours plaisir )

J'ai essayé toute les variantes possibles avec des ' et des " mais soit le code ouvre Acrobat Reader mais ne trouve pas le document, soit ça me dit qu'il y a une erreur dans le code ...

Voici mon code actuel (avec la concaténation):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe & ActiveWorkbook.Path & \Final Reports\SP07 - Final Report.pdf", vbNormalFocus
End Sub

Qu'est-ce que je fais de faux ?


FUN

[FUN Elendraug]

Finalement une des combinaison de " s'est révélée gagnante

Voici le code final fonctionnant (si jamais une fois qqn en a besoin):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub CommandButton1_Click()
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe " & ActiveWorkbook.Path & "\Final Reports\SP07 - Final Report.pdf", vbNormalFocus
End Sub

Merci pour l'aide M


Meilleures salutations,


FUN