Oivrir PDF à partir Userform

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.😕

Merci .

Bonne journée à tous.

Philippe
 
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+
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour