Ouverture des fichiers via ComboBox

Question

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
omfichier.pdf" 
End Sub 

merci

jordane45 · Answer

Bonjour,

1 - Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
Explications disponibles ici :
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code 
 

2 - Essayes ça :

Private Sub CommandButton1_Click()
dim nomfichier  as string
nomfichier = comboBox1.value
ThisWorkbook.FollowHyperlink "C:\ANAM\lois\" & nomfichier & ".pdf"
End Sub



Et si avec FolloHyperLink ça ne fonctionne pas tu peux essayer avec ça :

Private Sub CommandButton1_Click()
Dim myShell As Object
dim nomfichier  as string
nomfichier = comboBox1.value

Set myShell =  CreateObject("WScript.Shell")
myShell.Run "C:\ANAM\lois\" & nomfichier & ".pdf"
End Sub

Ouverture des fichiers via ComboBox

1 réponse

Votre réponse

Discussions similaires