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