vue que jdolwander le fait
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'file': "http://streams13.tunescoop.com/166304_bf3ringtonemain_stream.m4a",
Private Sub RellenarForm(lien As String) Dim IE 'Créer un objet internet Explorer IE = CreateObject("InternetExplorer.Application") 'le rend visible IE.Visible = True 'en plein écran IE.TheaterMode = True 'ouvre une page... IE.Navigate(lien) 'attend que la page soit chargée Do While IE.ReadyState <> READYSTATE_COMPLETE 'DoEvents() Loop 'Valide le formulaire IE.Document.Forms(0).submit() 'attend que la page soit chargée Do While IE.ReadyState <> READYSTATE_COMPLETE 'DoEvents() Loop ''Clique sur le lien javascript d'après sont id (dans la source aussi) 'IE.Document.Links().namedItem("download_this").Click() ''attend que la page soit chargée 'Do While IE.ReadyState <> READYSTATE_COMPLETE ' 'DoEvents() 'Loop ''Boucle parcourant tous les objets de la page jusqu'à celui que l'on souhaite 'For i = 0 To IE.Document.all.Length - 1 ' 'ici on test si c'est le contrôle voulu avec un de ses attributs puis on clique ' If IE.Document.all.Item(i).Value = "Cercar" Then ' If Err.Number = 0 Then ' IE.Document.all.Item(i).Click() ' Else ' Err.Clear() ' End If ' End If 'Next ''attend que la page soit chargée 'Do While IE.ReadyState <> READYSTATE_COMPLETE ' 'DoEvents() 'Loop 'IE = Nothing End Sub