Il reste maintenant toute la programmation à réaliser. En procédant méthodiquement, étape par étape, vous pourrez constater que ce n'est pas si complexe que ça. Prenez le temps de lire les remarques (en vert): elles vous aideront à comprendre.

1. Ajoutez d'abord un nouveau module à votre projet et nommez-le Général.bas. Sauvegardez-le dans le même répertoire que votre projet. Ce module contiendra les déclarations nécessaires pour tout le projet et certaines procédures que nous désirons rendre disponible pour plusieurs feuilles.

2. Voici le code que vous devez y ajouter ainsi que les explications nécessaires.

'Déclaration de variables globales
Global V_item As Integer
Global V_chaine As String
Global V_Source As String

'Déclaration des instances globales (type Internet Explorer)
Public IEType As New ShellUIHelper

'Déclaration de constantes globales
Public Const SHACF_DEFAULT As Long = &H0
Public Const FLAG_ICC_FORCE_CONNECTION = &H1

'Déclaration des fonctions API qui seront nécessaires
'Recherche dans une fenêtre
Public Declare Function FindWindowEx Lib "user32" Alias _
"FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

'Fonction permettant d'établir la connextion Internet
Public Declare Function InternetAttemptConnect _
Lib "wininet" (ByVal dwReserved As Long) As Long

'Vérifier si la connexion internet est établie
Public Function CheckInternetConnection() As Boolean
CheckInternetConnection = (InternetAttemptConnect(ByVal 0&) = 0)
End Function

3. La procédure suivante permet d'afficher le nombre de liens contenus dans une page, de demander si l'usager veut les afficher et de les afficher le cas échéant.

'Cette procédure sert à afficher les liens contenus dans une page
Public Sub Affiche_Liens()
   Dim V_lien, V_i  'Déclaration de variables
   'Affichage du nombre de liens (les 4 lignes vont sur une seule ligne)
   'N'oubliez pas d'enlever les flèches vertes
   V_lien = MsgBox("Cette page contient au total " & -->
    F_Interface.Nav_1.Document.links.Length & " liens textes et " & -->
    F_Interface.Nav_1.Document.images.Length & " liens images. " & -->
    " Désirez-vous voir les liens?", vbQuestion + vbYesNo, "LIENS")
   Select Case V_lien
      Case vbYes    'Si la réponse est oui
         If F_Interface.Nav_1.Document.links.Length = 0 Then
            'Message si la page ne contient pas de liens
            MsgBox "Cette page ne contient pas de liens."
            Exit Sub  'Sortie prématurée de la procédure
         Else
            F_MontreLiens.Show   'Affichage de la fenêtre des liens
            F_MontreLiens.ZL_Liens.Clear  'Vide la liste
            On Error GoTo err   'Capture d'erreur
            'Boucle permettant l'ajout des liens à la page
            For V_i = 1 To F_Interface.Nav_1.Document.links.Length Step 1
               F_MontreLiens.ZL_Liens.AddItem F_Interface.Nav_1.Document.links(V_i) 
            Next V_i
         err:  'Procédure d'erreur
            err.Clear
            End If
      Case vbNo   'Si la réponse est non, aucune réaction
   End Select
End Sub

4. La procédure qui suit devrait vous être familère  puisqu'elle permet la sortie du programme après confirmation.

Public Sub Sortie()
   Dim V_quitte   'Déclaration de variable
   V_quitte = MsgBox("Êtes-vous certain(e)?", vbQuestion + vbYesNo +  -->  
   vbMsgBoxRtlReading, "SORTIE")   'Demande de confirmation
   Select Case V_quitte
      Case vbYes   'Si la réponse est oui
         End   'Fin du programme
      Case no   'Si la réponse est non
         'Ne rien faire
   End Select
End Sub

5. La dernière procédure contenue dans ce module est celle permettant d'enregistrer un favori dans le fichier à cet effet.

Public Sub AjouteFavori()
   Dim V_Fichier As String   'Déclaration de variable
   On Error GoTo vide    'Capture d'erreur
   V_Fichier = App.Path & "\Favoris.txt"   'Initialisation de variable
   Open V_Fichier For Append As #1   'Ouverture du fichier en mode ajout
   Print #1, F_Interface.Nav_1.LocationURL  'Écriture dans le fichier
   Close #1   'Fermeture du fichier
vide:   'Procédure d'erreur qui permet simplement de sortir de la procédure
End Sub

6. Voilà qui complète le module Général.bas. Enregistrez votre programme avant de passe à l'étape suivante.

Suite...