Ouvrir un fichier pdf depuis une listbox
Bonjour le forum,
Je viens vers vous suite à un problème que je n’arrive pas à résoudre.
Je souhaite ouvrir des fichiers en format PDF et jpeg depuis un bouton grâce à une listbox déjà alimentée.
Pour le bon fonctionnement du programme, il faut l’extraire dans C:/
J’ai trouvé un bout de code mais sans succès
Avez-vous une proposition.
Merci d’avance.
Bonjour,
Bizarre ce code … comprends pas tout
- pourquoi une boucle au moment d'ouvrir le fichier sélectionné ?
- pourquoi un if ? il n'y pas besoin de test si le nom de fichier apparaît dans la listebox c'est qu'il existe !
- Pour finir le répertoire de travail sur c:\ certains windows n'aime pas çà du tout.
Quand les pdf sont dans le même répertoire de travail que le fichier excel .... on se prend pas la tête avec l'adresse ; on utilise "Thisworkbook.path" ainsi on peut mettre le Répertoire de travail ou on veut.
oops autant pour moi. le if est nécessaire si on ne selectionne aucun fichier et que l'on clic sur le bouton.
Private Sub CBOuvrir_Click()
Dim nomfichier As String
Dim chemin As String
If Me.LBListeDocument.ListIndex = -1 Then
MsgBox "Vous devez selectionner le fichier à ouvrir avant d'utiliser le bouton"
Exit Sub
End If
nomfichier = Me.LBListeDocument.Value
chemin = ThisWorkbook.Path & "\"
ThisWorkbook.FollowHyperlink chemin & nomfichiertop ça fonctionne comme une horloge merci beaucoup