Discussion :

[Mickaël|Mitch]

Sachant que dans certaines cellules d’Excel, il y a des liens internet (http://www......). Je souhaiterais pouvoir ouvrir une page internet et inscrire ces liens internet les uns après les autres dans la même page internet (dès que le premier lien est ouvert jusqu’au bout passer au deuxième lien et ainsi de suite). Une fois tous les liens affichés fermer le navigateur internet.
Est-ce possible :
Merci d’avance

[SfJ5Rpw8]

tiens un peu de code à étudier.....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
' Penser à
' Rajouter la référence "Mircrosof Internet control" 
'
Dim IE As InternetExplorer
 
'
' Verifie si IE déjà lancé et le relance si c'est pas le cas
' !! Attention utilise une variable globale IE as Internet Explorer...
'
Sub VerifieIE()
  On Error GoTo CreerIE
   If Not IE Is Nothing Then
     IE.Visible = True
    Exit Sub
   End If
CreerIE:
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
End Sub
'
' Fonction ouvre lien
' Param : stLien : url à ouvrir
'     Optionel :bAttentOuverture.. si True ne rend la "main" qu'une fois l'url totalement chargée
'
Sub OuvreLien(stLien As String, Optional bAttenteOuverture As Boolean = True)
        VerifieIE
        IE.Navigate stLien
        Cancel = True
    While Not IE.ReadyState = READYSTATE_COMPLETE And bAttenteOuverture
      DoEvents
    Wend
    Debug.Print "Fin ouverture " & stLien
End Sub
 
'
' test
' exemple d'utilisation...
' Sélectionné d'abords une plage de cellule contenant adresses à ouvrir...
'
Sub test()
 Dim c
 For Each c In Selection
  OuvreLien c.Value
  Application.Wait (Now + TimeValue("00:00:02"))
 
 Next
End Sub

[Mickaël|Mitch]

Merci beaucoup ca marche parfaitement.
Vous etes vraiment ingénieux.
Merci encore