Lier url à un item listbox pour l'ouvrir [Résolu]

Signaler
Messages postés
31
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
27 novembre 2014
-
Messages postés
31
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
27 novembre 2014
-
désolé je débute !!! &n


Bonjour et au secours
je m'explique a l'aide d'un tableau excel je rempli des listbox en fonction de paramètres venants de ce tableau mais là n'est pas mon problème.


Public Var1 As String, Var2 As String, Var3 As String, Var4 As String, Var5 As String, Var6 As String, Var7 As String, Var8 As String
Dim appExcel As Object
Dim wbExcel As Object
Dim wsExcel As Object
Dim Rang As Excel.Range
Dim numero As Integer
Dim celltrouv As Variant
Dim heure As String
Dim PauseTime, Start
Dim link As String
Private Looping As Boolean



Public Sub Command1_Click()
Looping = True
Do While Looping
heure = Now
Var1 = ""
Var2 = ""
Var3 = ""
Var4 = ""
Var5 = ""
Var6 = ""
Var7 = ""
Var8 = ""
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear
List6.Clear
List7.Clear
List8.Clear
Label2.Caption = Clear
Label3.Caption = Clear
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("d:\TEMP\Classeur01.xls", ReadOnly:=True)
Set wsExcel = appExcel.ActiveWorkbook.Worksheets(2)
Var4 = wsExcel.Range("M1").Value
Label2.Caption = Var4 & " Changements en cours"
Label3.Caption = heure
If Var4 = "" Then
Label2.Caption = "Pas de changement en cours"
End If
'wbExcel.RefreshAll
'appExcel.DisplayAlerts = False
DoEvents
Set Rang = wsExcel.Range("L2:L1200")
numero = 1
For Each celltrouv In Rang
If celltrouv = numero Then
Var1 = celltrouv.Offset(0, -2).Value & " -- " & "Responsable : " & celltrouv.Offset(0, -6).Value & " -- " & "Description : " & celltrouv.Offset(0, -7).Value & vbCrLf
Var6 = celltrouv.Offset(0, 2).Value
Var7 = celltrouv.Offset(0, -2).Value
Var8 = Val(Right(Var7, 5))
link = "http://URL.asp?Changement="
If Var6 Like ["*MVS*"] Then
List1.AddItem Var1
ElseIf Var6 Like ["*AIX*"] Then
List2.AddItem Var1
ElseIf Var6 Like ["*LINUX*"] Then
List3.AddItem Var1
ElseIf Var6 Like ["*RESEAU*"] Then
List4.AddItem Var1
ElseIf Var6 Like "*WINDOWS*" Then
List5.AddItem Var1
ElseIf Var6 Like ["*HPUX*"] Then
List6.AddItem Var1
ElseIf Var6 Like ["*BULL*"] Then
List7.AddItem Var1
ElseIf Var6 Like ["*POSTPROD*"] Then
List8.AddItem Var1
ElseIf Var6 Like ["*NETWARE*"] Then
List8.AddItem Var1
End If
End If
DoEvents
Next celltrouv
wbExcel.Close SaveChanges:=False
appExcel.Quit
Set Rang = Nothing
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
PauseTime = 30 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
DoEvents
Loop

Loop
End Sub
Private Sub Command2_Click()
Looping = False

End Sub
Private Sub Command3_Click()
End
End Sub

alors déjà c'est que ma boucle ouvre un excel.exe la première fois sans le fermer a la fin de la boucle puis m'en ouvre un deuxième qui lui se ferme a chaque fois. déja ça je ne comprend pas pourquoi. je voudrais qu'il ouvre ce workbooks qui lui même se mets à jours via des données externes, me fasse mes listbox puis de ferme(ou se met à jour avec les nouvelles données externes actualisées)
ensuite je voudrais associé pour chaque item de ces listbox, l'url de la variable link avec la Var8 correspondant à l'item sélectionné.
sachant que la Var8 correspond à la fin de l'url comme ceci:
linkfinal = "http://URL.asp?Changement=" & Var8
je connais la commande pour lancer cet url
Shell "explorer.exe " & Chr(34) & linkfinal & Chr(34)

merci d'avance.

2 réponses

Messages postés
31
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
27 novembre 2014

bon j'ai résolu mon problème en passant par un textbox invisible comme intermédiaire
je récupère une partie du text qui contient la fin de mon url a ouvrir
Messages postés
31
Date d'inscription
mercredi 9 mars 2005
Statut
Membre
Dernière intervention
27 novembre 2014

bon j'ai réglé mon problème excel.exe qui ne se fermait pas mais il me reste toujours ce problème
que quand je click sur un item de ces listbox qu'il m'ouvre
linkfinal = "http://URL.asp?Changement=" & Var8
Var8 correspondant à l'item sélectionné