XL 2010 [Résolu]Ouvrir un fichier à partir d'une liste déroulante

[Toubabou]

Bonjour à tous,
Je voudrai créer une liste déroulante me permettant d'ouvrir un fichier PDF,
Pourriez-vous m'aider? Tout en sachant que le fichier à ouvrir peut se trouver sur mon ordinateur ou sur une clé USB.
Merci beaucoup
Djodjo

 

[Toubabou]

Re Hervé
Bien reçu ton fichier. Par contre je n'arrive pas à ouvrir mon PDF. a première vue il ne trouve pas mon fichier. J'ai vérifié le chemin du fichier tout est correct, j'ai essayer de l'enregistré à nouveau sous un autre nom aucuns résultat.
A nouveau il a fallu que j'enregistre ton fichier pour avoir accès à la liste déroulante

 

[herve62]

Peux tu me joindre un fichier pdf ? ( si accepté ici , sinon passe par mp je te redonnerai mes coord.) je vais tester , j'ai aussi eu le tour , les pdf c'est du précis Maj/min

 

[Toubabou]

Oups j'ai voulu reproduire la même situation avec la seconde liste déroulante, mais je ne me souviens plus comment on fait pour la remplir et je suppose qu'avec un fichier Word c'est encore différent?

 

[herve62]

J'ai le même soucis , je suis passé par une autre méthode de code tu peux l'insérer à la place de openpdf dans la combo
vérifie si tu as Reader 11.0 car cela peut encore être 9 ou 10

If Direction = fichierpdf Then
Shell ("C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe " _
  & chemin & fichierpdf), vbMaximizedFocus
  GoTo fin
End If
Direction = Dir()
Loop
fin:

je commence à m'arracher les cheveux car certains fichiers passent nickel , essaye avec TI-30X met le dans ta liste à la fin peu importe
sinon ouvre un Post titré genre: Pb ouverture pdf en VBA

 

[Toubabou]

J'ai un problème avec le "GOTO

 

[herve62]

yups ligne collé manquante aprèsla ligne loop > fin:

 

[Toubabou]

?????

 

[herve62]

Shell ("C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe " _
  & chemin & fichierpdf), vbMaximizedFocus
  GoTo fin
End If
Direction = Dir()
Loop
fin:  ' ICI !!!!!!'
End Sub

 

[Toubabou]

Je viens d'éssayer avec ton fichier, cela ne fonctionne toujours pas. Je viens de créer un nouveau post. Peut-être que quelqu'un pourra nous dépanner

 

[herve62]

Bin oui , doit y avoir un truc qui m'échappe , avec le TI-30 je viens de fermer / ouvrir excel x fois il s'affiche bien à 100% ??

 

[herve62]

Bon ç'est ok , j'ai trouvé une autre méthode ( plus de shell !! c'est peut être une raison)
reprend ce fichier ou fait du copier/coller : Sub Combo et la fonction dans Module1
remet ton chemin aussi

PS : c'est pas Excel qui va me barrer la route .... non mais !!

 

[Toubabou]

Yes cela fonctionne super.
Pour un fichier WORD je procède pareil?

 

[herve62]

oui Idem , tu mets bien l'extension .docx et utilise exactement la même fonction (OuvrirFichier ())
tu me dis si ok et si c'est fini pour ici
Dernier conseil : il te faut faire un 'clear' de la Combo pour relancer un autre choix , c'est mieux et aussi dans les Sub ou tu sors de l'USF remettre Application.visible = true , sinon si tu es dans VBA tu peux pas revenir dans Excel !!

PS : je te mets un mp pour un truc qui n'interresse pas le forum

 

[Toubabou]

Salut Hervé,
Tu pourrais contrôler le code? mise à part La ComboBox "Cours", que tu m'as faite rien ne fonctionne alors que je pense avoir recopier fidèlement ton travail. Les Combo "Contrôles de vos connaissances" et " Ce que vous venez de voir" sont en format Word "DOCX"
Merci par avance
Toubabou

 

[herve62]

Bsr
Je rentre demain à la maison je regardais