Ouverture des fichier via ComboBox

negrozoldik Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
ThauTheme Messages postés 1564 Statut Membre -
Bonjour,

j aurai besoin de votre coup de pouce afin d'affecter l fichier sélectionner dans l comboBox au nom du fichier à ouvrir:

Private Sub CommandButton1_Click()
comboBox1.value= "nomfichier"
ThisWorkbook.FollowHyperlink "C:\ANAM\lois\nomfichier.pdf"
End Sub

1 réponse

  1. ThauTheme Messages postés 1564 Statut Membre 160
     
    Bonsoir Negrozoldik, bonsoir le forum,

    Peut-être comme ça (non testé) :

    Private Sub CommandButton1_Click()
    Dim NomFichier As String
    
    NomFichier = ComboBox1.Value
    ThisWorkbook.FollowHyperlink "C:\ANAM\lois\" & NomFichier
    End Sub 

    0