Discussion :

[Loglana]

Bonjour à tous !

Voilà mon soucis.
J'ai un fichier avec une base de donnée où nous prendrons comme exemple qu'elle est complétée de différentes maques de voitures, modèles, caractéristiques etc..
Dans cette base de donnée chaque marque possède un lien dans une colonne envoyant vers un dossier du style "C://Mes documents/Audi"

Dans mon userform, j'ai 2 combobox qui permettent de faire le choix en cascade de la marque et du modèle désiré.
Il faudrait qu'en fonction du choix de la marque fait dans la Combobox1, le bouton nous ouvre le fichier de la marque concernée à partir du lien rentré dans la base de donnée.

J'ai fais un code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CommandButton3_Click()
Dim Rep As String
Rep = "Lien vers dossier Audi" 'Chemin et répertoire à ouvrir
If Dir(Rep, vbDirectory) <> "" And ComboBox1 = "Audi" Then
Application.Dialogs(xlDialogOpen).Show Rep
Else
MsgBox "Chemin introuvable"
End If

Mais il faudrait faire cela pour chaque marque ce qui représente un code énorme.. Il doit y avoir un moyen de raccourcir ce code pour qu'en fonction de la marque affichée dans la Combobox1, le bouton aille chercher le lien sur la ligne correspondante à la marque et la colonne correspondant au liens .

Auriez-vous une petite idée sur le sujet ?
Merci d'avance

[Menhir]

A mon avis, pour faire ce genre de chose, il n'y a pas besoin de code. Utiliser les liens hypertexte est beaucoup plus simple et plus souple.