Discussion :

[casefayere]

Bonjour à tous,

Voila que je reprends le VBA après l'avoir délaissé quelques temps.

Suite aux conseils du forum, je peux ouvrir un site internet (ma banque) avec ce programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub site_cmne_Click()
Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
        IE.navigate "https://www.creditmutuel.fr/cmne/fr/"
        'Attend la fin du chargement pour continuer la procédure
        Do Until IE.readyState = 4
        DoEvents
    Loop
End Sub

mais quand je referme ce site, je dois aussi fermer une page vierge internet et un message de débogage apparait.

je suis sous excel 2007 et vista


Comment l'éviter

Merci d'avance de vos conseils

[casefayere]

en attendant vos conseils j'ai trouvé cette solution en refouillant dans le forum mais j'ai toujours une page vierge supplémentaire qui s'ouvre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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
 IE.Navigate "https://www.creditmutuel.fr/cmne/fr/"
 Debug.Print "Fin ouverture " & "https://www.creditmutuel.fr/cmne/fr/"
 
End Sub

[casefayere]

J'ai ma solution, le pire c'est que je l'ai trouvé dans le forum sur une question posée par qui ... moi-meme

Code :

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

ThisWorkbook.FollowHyperlink "https://www.creditmutuel.fr/cmne/fr/"

l'alseimer me gagne

Bonne journée