Oivrir PDF à partir Userform

PFRANCO

XLDnaute Junior
Bonjour à tous,
Aprés plusieurs essais, je rencontre une difficulté pour ouvrir un pdf à partir d'un UserForm.
J'ai essayé le code suivant trouvé sur le forum et il me dit :erreur 53 fichier introuvable
Code:
RetVal = Shell("S:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe S:\INTERNE\Documents_partagés\RHCI_CLIENTS\ENTREPRISES_C_MOULOT_COMMUNS\LOGICIELS\MALETTE_TEST_MOULOT\douments_malette\Avenant 13.pdf", 1)
Code:
Je ne souhaite pas utiliser un système de liens car mon Userform est déjà entièrement réalisé.

Si quelquen peut me mettre sur une piste car j'ai exploré le forum et .. en fiat je ne suis pas trés pointu, du tout.:confused:

Merci .

Bonne journée à tous.

Philippe
 

job75

XLDnaute Barbatruc
Re : Oivrir PDF à partir Userform

Bonjour PFRANCO, Jean-Claude, Papou :)

La méthode FollowHyperlink permet d'ouvrir n'importe quel fichier, voyez donc :

Code:
Dim chemin As String
With ThisWorkbook
  chemin = "S:\INTERNE\Documents_partagés\RHCI_CLIENTS\ENTREPRISES_C_MOULOT_COMMUNS\LOGICIELS\MALETTE_TEST_MOULO T\douments_malette\Avenant 13.pdf"
  'chemin = .Path & "\Avenant 13.pdf" 'peut-être plus simple ?
  .FollowHyperlink chemin
End With
Bien sûr le chemin d'accès doit être correct...

.Path est recommandé si les fichiers sont dans le même dossier.

A+
 

job75

XLDnaute Barbatruc
Re : Oivrir PDF à partir Userform

Re,

Et peut-être faut-il auparavant masquer l'UserForm par :

Code:
Me.Hide 'Unload Me pour fermer l'USF

Edit 1 : sur Excel 2010 en tout cas ce n'est pas indispensable.

Edit 2 : comme l'a fait remarquer Paritec il manque sans doute un "c" à "doument"...

A+
 
Dernière édition:

Statistiques des forums

Discussions
312 215
Messages
2 086 324
Membres
103 179
dernier inscrit
BERSEB50