T
tilos
Guest
bonsoir,
j'ai créé une liste déroulante de noms de fichiers (.xls, .doc, .pdf). J'ai deux problèmes :
1 - à chaque fois que je clic sur un nom, la liste le garde en mémoire et me l'affiche plusieurs fois! (exemple : au début j'ai dans la liste "mercure , saturne", quand je clic sur mercure la liste devient : mercure, saturne, mercure).
2- L'orsque je clic sur un nom ayant un lien vers un fichier .doc, pas de pb, par contre pour le fichier pdf impossible de l'ouvrir, il apparait à peine qu'il didparait!
Voici le code :
Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Text
Case "mercure"
ThisWorkbook.FollowHyperlink _
Address:="C:\planetes\mercure.doc", _
NewWindow:=True, AddHistory:=True
Case "saturne"
ThisWorkbook.FollowHyperlink _
Address:="C:\planetes\saturne.pdf", _
NewWindow:=True, AddHistory:=True
End Select
End Sub
Private Sub ComboBox1_GotFocus()
With ComboBox1
.AddItem "mercure"
.AddItem "saturne"
End With
End Sub
Meci d'avance pour votre aide
cordialement.
j'ai créé une liste déroulante de noms de fichiers (.xls, .doc, .pdf). J'ai deux problèmes :
1 - à chaque fois que je clic sur un nom, la liste le garde en mémoire et me l'affiche plusieurs fois! (exemple : au début j'ai dans la liste "mercure , saturne", quand je clic sur mercure la liste devient : mercure, saturne, mercure).
2- L'orsque je clic sur un nom ayant un lien vers un fichier .doc, pas de pb, par contre pour le fichier pdf impossible de l'ouvrir, il apparait à peine qu'il didparait!
Voici le code :
Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Text
Case "mercure"
ThisWorkbook.FollowHyperlink _
Address:="C:\planetes\mercure.doc", _
NewWindow:=True, AddHistory:=True
Case "saturne"
ThisWorkbook.FollowHyperlink _
Address:="C:\planetes\saturne.pdf", _
NewWindow:=True, AddHistory:=True
End Select
End Sub
Private Sub ComboBox1_GotFocus()
With ComboBox1
.AddItem "mercure"
.AddItem "saturne"
End With
End Sub
Meci d'avance pour votre aide
cordialement.