Comment le code vba pour ouvrir internet explorer en nouvelle session?

J'ai du mal à le faire depuis des mois, comment code VBA pour ouvrir internet explorer en nouvelle session j'ai une application avec de nombreuses connexions-je besoin pour ouvrir simultanément à l'aide de l'automation , j'ai utilisé

  set ie=new InternetExplorer

mais il ouvre l'ie au sein de l'ancienne session, je veux ouvrir une nouvelle session pour chaque login s'il vous plaît aidez moi, j'ai googlé beaucoup pour elle, mais a terminé avec n'importe quelle solution.
c'est mon code

 Function GetIE() As InternetExplorer

  Dim WScript
Dim objShellWindows

 Set objShell = CreateObject("Shell.Application")
 Set objShellWindows = objShell.Windows
 Set WScript = CreateObject("WScript.Shell")


 Dim ieStarted
 ieStarted = False

  Dim ieError
  ieError = False

    Dim seconds
      seconds = 0

  While (Not ieStarted) And (Not ieError) And (seconds < 30)

If (Not objShellWindows Is Nothing) Then
    Dim objIE As InternetExplorer
    Dim IE


    For Each objIE In objShellWindows

        If (Not objIE Is Nothing) Then

            If IsObject(objIE.Document) Then
                Set IE = objIE.Document

                If VarType(IE) = 8 Then

                    If IE.Title = EmptyTitle Then
                        If Err.Number = 0 Then
                            IE.Write LoadingMessage

                            objIE.navigate Sheet1.Login.Text
                        ieStarted = True
                        Set GetIE = objIE


                      Else

                       MsgBox ErrorMessage
                            Err.Clear
                            ieError = True

                            Exit For
                        End If
                    End If
                End If
            End If
        End If

        Set IE = Nothing
        Set objIE = Nothing
    Next
End If

Application.Wait Now + TimeValue("00:00:1")
seconds = seconds + 1
Wend

 Set objShellWindows = Nothing
 Set objShell = Nothing



   End Function

avec ce code im en mesure d'ouvrir le navigateur, mais malheureusement, ma page web est l'ouverture à des perspectives, ce qui est déjà ouvert pls aider

OriginalL'auteur nothingisimpossible | 2013-01-06

6

Apparemment le -nomerge argument peut empêcher session de la fusion.
```
Shell("iexplore.exe -nomerge http://www.yoursite.com")
```
Mise à JOUR

Que par votre commentaire, vous avez besoin pour obtenir l'IE objet. Vous pourriez être en mesure de travailler avec ceci:
```
Dim wshShell
Set wshShell = WScript.CreateObject("WScript.Shell")

wshShell.Run "iexplore -nomerge http://www.google.com"

Dim objShell
Set objShell = CreateObject("Shell.Application")

Dim objShellWindows
Set objShellWindows = objShell.Windows

Dim i
Dim ieObject
For i = 0 To objShellWindows.Count - 1
    If InStr(objShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then
        Set ieObject = objShellWindows.Item(i)
        If VarType(ieObject.Document) = 8 Then
            MsgBox "Loaded " & ieObject.Document.Title
            Exit For
        End If
    End If
Next

Set ieObject = Nothing
Set objShellWindows = Nothing
Set objShell = Nothing
Set wshShell = Nothing
```
c'est l'ouverture d'un navigateur dans une nouvelle session, mais je ne pouvais pas obtenir ie objet, s'il vous plaît vérifier le code, j'ai joint. j'ai besoin d'avoir la fonctionnalité de travailler en tant que "lorsque nous avons ouvert une Nouvelle Session à partir d'un fichier de menu"
Vous pourriez être en mesure de s'adapter cette réponse. Je vais voir si je peux l'obtenir simplifié et mise à jour de mon post, si je peux.
merci beaucoup le code dans le lien que vous avez donné fonctionne parfaitement sauf que j'ai besoin d'avoir ma page d'accueil vide pour que cela fonctionne:(
avec le code que vous avez donné im obtenir l'objet de l'explorer qui est déjà ouvert avant cette exlorer
Malheureusement, je ne suis pas un programmeur VBA et j'ai vraiment juste piraté cet ensemble. Vous pourriez avoir à la recherche de votre IE instance par URL, ou d'inspecter les propriétés de la fenêtre pour trouver des indices sur la fenêtre dans laquelle est la vôtre.

OriginalL'auteur Cᴏʀʏ

À l'aide d'Excel 2010 - C'est ce que j'utilise avec un bouton de commande. Remplacer google.com avec le site web que vous souhaitez ouvrir dans un autre navigateur.

Private Sub commandname_Click()

'Opens an Explorer with a web site 

Dim IE As InternetExplorer

  Set IE = CreateObject("InternetExplorer.Application")

  IE.navigate ("http://WWW.GOOGLE.COM")

  IE.Visible = True

End Sub

OriginalL'auteur Melissa D

1

Cette réponse fonctionne pour moi après la modification:
```
Dim IE As InternetExplorer
```
à
```
Dim IE As Object
```
OriginalL'auteur hod

Vous devez vous connecter pour publier un commentaire.