F
FlashVB
Guest
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
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