Pour @Thierry !

Bonsoir,


Je te contacte car je suis en train de développer une appli. Excel sous VB, mais je rencontre un petit pb dans une procédure.
Le contexte : j’ai créé une « zone de liste modifiable » qui fait référence à une liste de produits dans une colonne de la même feuille, cette liste sera d’ailleurs masquée. Cette liste est faite de fiches-produits (fichiers en .doc.) et seront tous dans le répertoire C:\Mes documents. Par ailleurs, j’ajoute un bouton GO (image .gif). Tu vois le biz ?

Après avoir choisi, une fiche dans la liste, je clique et puis (normalement) pouf ! word s’ouvre sur le fichier souhaité, malheureusement, je bloque, peux-tu m’aider ?

Voilà le code, (il y a sans doute des erreurs) !

Private Sub ChoixProduits()
Const Path As String = "C:\Mes documents\"
Dim link As String
Dim LeDoc, nvdoc As String
Dim combo As Object
Set combo = Sheet("Liste des Produits").ComboBox1
If combo.ListIndex = -1 Then Exit Sub
LeDoc = combo
For i = 1 To Len(LeDoc)
If Mid(LeDoc, i, 1) <> "" Then nvdoc = nvdoc & Mid(LeDoc, i, 1)
Next
If Right(nvdoc, 4) <> ".doc" Then
link = Chemin & nvdoc & ".doc" 'si la ListBox ne contient pas l'extension ".doc"
Else
link = Chemin & nvdoc
End If
ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True
End Sub


MERCI.
FlashVB