LISTE DEROULANTE

[Will]

Bonjour,

Je considère la cellule A1 comme la cellule qui accueillera la liste déroulante, soit :

Données >>> validation>>>"autoriser" sélectionne "liste" puis indication de la source, jusque-là ok.

MAIS, les items sont des fichiers word que je voudrais ouvrir (par un double-clic dessus ou bouton GO, ou autres...).

Quelqu'un connaît-il une méthode ou le code VB correspondant ?


Merci par avance.
Will

 

[@+Thierry]

Bonjour Will, le Forum


Tu es toujours avec çà depuis ces fils :
Lien supprimé

Lien supprimé

Enfin vu que tu essaies de faire un effort en explication voici un code :

Sub OpenWordDoc()
Const Chemin As String = "c:\mes documents\"
Dim Link As String
Dim LeDoc As String

LeDoc = ActiveSheet.Range("A1")

Link = Chemin & LeDoc & ".doc"
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
End Sub

Il ne te reste qu'à le lier à ton bouton GO!

Bonne Fin d'Aprèm et Bon Week End à tous et toutes

@+Thierry

 

[@+Thierry]

Re ...

Et une variante avec gestion d'erreur au cas où ton fichier listé n'existe pas dans le répertoire...

Sub OpenWordDocPath()
Dim Chemin As String
Dim Link As String
Dim LeDoc As String

Chemin = ThisWorkbook.Path
LeDoc = ActiveSheet.Range("A1")
Link = Chemin & "\" & LeDoc & ".doc"

On Error GoTo Fin
ActiveWorkbook.FollowHyperlink Address:=Link, NewWindow:=True
Exit Sub
Fin:
MsgBox "Le Fichier : " & LeDoc & " n'existe pas dans " & Chemin
End Sub


A noter que, contrairement à la précédente méthode, tu n'as pas à indiquer le chemin ("c:\mes documents\") avec une constante, car là le code utilisera le chemin où a été sauvé le classeur contenant ce code... (Si celà peut mieux convenir)

Voilà je pense que cette fois ci on a fait le tour de ton problème (j'espère)

@+Thierry