Discussion :

[ctsblv]

Bonsoir à tous
Voilà plusieurs jour que je galère et après moultes recherches je n'ai pas trouvé la solution.
J'ai créé un Userform avec une combobox afin de sélectionner un match.
EX: MATCH OUVERTURE.
Je met le résultat dans la cellule A1 du fichier depuis lequel je lance le Userfrm.
Jusque la tout est OK.
J 'ai une deuxième bouton qui lance une macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Telechar()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
Dim lgStatus As Long
Dim strUrl As String
Dim strFile As String
Dim A1 As Variant
 
strUrl = "http://www.editgrid.com/user/moimeme/MATCH OUVERTURE.html"
strFile = "C:\Documents and Settings\admin\Mes documents\matchs\Sheet1.xls"
lgStatus = DownloadHttpFile(strUrl, strFile)
MsgBox lgStatus, , "Code retour HTML"

Ce que j'aimerais faire c'est remplacer le nom du fichier HTML par la valeur de la combobox choisie.(A1)
J'espère avoir été assez clair ???
Merci d'avance

[SfJ5Rpw8]

si en A1 de la FEUILLE1 tu as "MATCH OUVERTURE" :

Code :

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

strUrl = "http://www.editgrid.com/user/moimeme/" & ThisWorkbook.sheets("FEUILLE1").range("A1") &".html"

[ctsblv]

Bonsoir BBil
Je suis soufflé par la rapidité de la réponse.
Un grand merci ,c'est OK.
Si j'avais su,j'aurai posté plus tôt!!!