Liste déroulante permettant d'ouvrir des fichiers

Bonjour à tous,

Je voudrai créer une liste déroulante me permettant d'ouvrir un fichier PDF,

sur le modèle 'ouverture de fichier joint

Merci beaucoup

Djodjo

Private Sub CommandButton6_Click()

'par Excel-Malin.com ( https://excel-malin.com )

On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
   Dim MonFichier As String
   Set MonApplication = CreateObject("Shell.Application")

   MonFichier = "C:\Users\djodj\Documents\MEGA\Mycologie\Cours Rouen\Cours\" 'à remplacer par votre fichier
   MonApplication.Open (MonFichier)

   Set MonApplication = Nothing
Exit Sub

OuvertureFichierErreur:
   Set MonApplication = Nothing
    MsgBox "Erreur lors de l'ouverture de fichier..."
End Sub

Bonsoir djodjo, le forum,

Peut-être ici:

https://forum.excel-pratique.com/viewtopic.php?p=315391#p315391

Cordialement,

Bonsoir Xorsankukai,

Je te remercie, mais cela n'est pas vraiment ce que je cherche. Je ne suis pas très doué en VBA. et je voudrai absolument avoir cette liste déroulante pour ouvrir mes fichier PDF

Merci beaucoup

Djodjo

Re,

Peux-tu joindre un fichier exemple avec ta liste déroulante ?

Les pdf sont-ils tous dans le même dossier ?

Chemin du dossier ?

Tu veux ouvrir le pdf directement à partir de la liste où sélectionner dans la liste puis clic sur un bouton ?

Cordialement,

Bonjour

peux être comme ca

a mettre dans un module

Private Sub ChoixFic()
Dim dossier As FileDialog
ChoixChemin = ActiveWorkbook.Path & Application.PathSeparator
   Set dossier = Application.FileDialog(msoFileDialogFilePicker)
      With dossier
         .AllowMultiSelect = False
         .InitialFileName = ChoixChemin
         .Title = "Choix d'un fichier PDF"
         .Filters.Clear
         .Filters.Add "Fichier PDF ", "*.pdf", 1
            If .Show = -1 Then
               Chemin = .SelectedItems(1)
               LectPdf Chemin
            End If
      End With
   Set dossier = Nothing
End Sub

Sub LectPdf(Chemin)
    ThisWorkbook.FollowHyperlink Chemin
End Sub

A+

Maurice

Bonsoir djodjo, Archer , le forum,

J'attendais des précisions de djodjo et brouillonné ce code:

Si les pdf sont tous dans le même dossier et que la liste déroulante est en B1:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim monfichier As String
  Dim monfichier2 As String, emplacement As String

  If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
    monfichier = Target.Value
    Application.DisplayAlerts = False
    On Error Resume Next
   ThisWorkbook.FollowHyperlink "C:\Users\maison\Desktop\documents PDF\" & monfichier & ".pdf", NewWindow:=True
   cancel = True
  End If
    'Application.DisplayAlerts = True
end sub

Si les pdf sont dans des dossiers différents, j'établis un tableau de correspondance et je recherche la valeur de la liste déroulante F1:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim monfichier As String
  Dim monfichier2 As String, emplacement As String

  If Not Application.Intersect(Target, Range("F1")) Is Nothing Then
    monfichier2 = Target.Value & ".pdf"
    emplacement = WorksheetFunction.VLookup(Range("F1"), Sheets("Feuil1").Range("J1:K10"), 2, False)
   Application.DisplayAlerts = False
   On Error Resume Next
    ThisWorkbook.FollowHyperlink emplacement & monfichier2, NewWindow:=True
   cancel = True
  End If
    'Application.DisplayAlerts = True
 End Sub

Bonne soirée et bonnes fêtes,

Désolé, cela ne fonctionne toujours pas

Merci tout de même

Bonnes fêtes de fin d'année

Djodjo

Bonjour djodjo, archer, le forum,

Désolé, cela ne fonctionne toujours pas

Pour ce qui me concerne,

As-tu modifié le chemin ?

ThisWorkbook.FollowHyperlink "C:\Users\maison\Desktop\documents PDF\"

Car si le chemin est incorrect, ça ne fonctionnera jamais,

De plus, tu n'as pas répondu à mes questions:

Peux-tu joindre un fichier exemple avec ta liste déroulante ?

Les pdf sont-ils tous dans le même dossier ?

Chemin du dossier ?

Tu veux ouvrir le pdf directement à partir de la liste où sélectionner dans la liste puis clic sur un bouton ?

Difficile de t'aider d'avantage dans ces conditions,

Cordialement,

Bonjour à tous

Nous avons réussit à ouvrir les fichiers PDF, par contre, nous avons un soucis avec les fichiers sous Word ".docx". Impossible de les ouvrir.

Merci par avance

Bonjour Djodjo, le forum,

Un essai......j'ai essayé d'appliquer la méthode trouvée ici:https://excel-malin.com/codes-sources-vba/vba-ouvrir-un-fichier-de-tout-type/

Avec:

• choix des cours en .pdf

• choix des connaissances en .docx

• choix de venez de voir en .docx

• choix de fiches champignons en .pdf

A tester....

Cordialement,