Bonjour à tous,
Après de longue recherche avec mon ami google je n’ai pas trouvé la solution à mon problème.
J'ai fait un userform avec une macro sous Excel pour faire des recherches sur internet. Il boucle plusieurs recherche et tout fonctionne parfaitement sauf quand le lien numéro 7 n'existe pas.
Est-ce que quelqu'un connait le moyen de vérifier si le lien existe avant de vouloir l'ouvrir?
Merci pour votre aide.
Après de longue recherche avec mon ami google je n’ai pas trouvé la solution à mon problème.
J'ai fait un userform avec une macro sous Excel pour faire des recherches sur internet. Il boucle plusieurs recherche et tout fonctionne parfaitement sauf quand le lien numéro 7 n'existe pas.
Est-ce que quelqu'un connait le moyen de vérifier si le lien existe avant de vouloir l'ouvrir?
Merci pour votre aide.
Code:
Private Sub Rechercher_Click()
Dim plaN
If Not TextBox1 = "" Then
plaN = TextBox1
' référence Microsoft Internet Controls
Dim IE As InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
Dim Cible As HTMLAnchorElement
Debut: Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate "http://www.excel-downloads.com"
' attente de fin de chargement
Do Until IE.ReadyState = 4
DoEvents
Loop
Set IEdoc = IE.Document
Set DOCelement = IEdoc.getElementsByName("number").Item
DOCelement.Value = "*" & plaN & "*"
Do Until IE.ReadyState = 4
DoEvents
Loop
Set DOCelement = IEdoc.getElementsByName("submitbn").Item
Do Until IE.ReadyState = 4
DoEvents
Loop
DOCelement.Click
If Not TextBox1 = "" Then
'simuler l'appui de la touche entrée
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "{enter}"
End If
Application.Wait (Now + TimeValue("0:00:7"))
Set DOCelement = IE.Document
Set Cible = DOCelement.Links(7)
Cible.Click
Do Until IE.ReadyState = 4
DoEvents
Loop
Set DOCelement = IE.Document
Application.Wait (Now + TimeValue("0:00:3"))
Set Cible = DOCelement.Links(25)
Cible.Click
Do Until IE.ReadyState = 4
DoEvents
Loop
'Fermeture
IE.Quit