Salut Willy
Je travaille en Anglais US, donc "zone de liste modifiable" je ne suis pas sûr et certain que l'on parle de la "Combo Box" de la Boite à Outils "Contrôle"...Mais vu que tu parles de "ListFillRange" oui, je pense que c'est une ComboBox ActiveX
Ensuite pour l'incrémentation de données dans ta ComboBox, si tu veux ne travailler qu'avec les Propriété sans VBA, tu peux utiliser ListFillRange, OK
Par contre sur ta feuille, si tu ne veux QUE entrer les noms de fichiers Word au lieu de leur chemin complet tu peux faire ceci (à conditions que tous les Documents Word soient dans le mêmpe répertoire!!!)
Exemple :
Le Doc World se Trouve :
"c:\mes documents\World\mes factures\leDocWord1.doc"
Au lieux de taper dans chaque cellules :
"c:\mes documents\World\mes factures\leDocWord1.doc"
"c:\mes documents\World\mes factures\leDocWord2.doc"
"c:\mes documents\World\mes factures\leDocWord3.doc"
Tu ne tapes QUE :
leDocWord1
leDocWord2
leDocWord3
C'est ce code comme je t'avais déjà indiqué qui va compléter automatiquement :
Const Chemin As String = "c:\mes documents\World\mes factures\"
Dim Link As String
Dim LeDoc As String
LeDoc = Me.ListBox1
Link = Chemin & LeDoc & ".doc"
Explication :
Le ListFillRange va te remplir ta ListBox1 avec "LeDocWord1","LeDocWord2","LeDocWord3"...
Quand tu fais une sélection dans la ListBox1 et que tu clicks sur le bouton OK :
La ListBox1 va retourner (par exemple) LeDocWord3 et le Bouton OK va compléter :
Chemin & ListBox1 & ".Doc"
c'est à dire :
c:\mes documents\World\mes factures\LeDocWord3.doc
Voilà c'est tout
Pour finir "J'insère l'image bouton "GO" c'est quoi ce quer tu entends par une "Image Bouton" ? Si c'est une vrai image... c'est à dire que tu vas avoir ceci :
Sub Picture1_Click()
End Sub
... Dans un Module Standard
Ce serait dix fois plus simple d'avoir un vrai bouton (CommandButton comme décrit dans mon précédent post)...Mais si tu persistes avec une Image, donc tu t'arranges pour mettre ce genre de code dans un module standard et tu affectera (assignera) cette macro...
Sub Image_Click()
Const Chemin As String = "c:\mes documents\"
Dim Link As String
Dim LeDoc As String
If Sheets("Feuil1").ListBox1.ListIndex = -1 Then Exit Sub 'si il n'y a pas de sélection on sort
LeDoc = Sheets("Feuil1").ListBox1
Link = Chemin & LeDoc & ".doc" 'si la listBox ne contient pas l'extension ".doc"
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
End Sub
Bon Courage
@+Thierry