Manipuler DialogBox

Bonjour,

Je viens demander de l'aide parce que je suis en train d'automatiser une connexion à un site pour déposer un fichier excel.

Je suis capable de me connecter au site, de m'authentifier et d'atteindre le dossier recherché. Mon problème c'est lorsque je déclenche le clic, une fenêtre DialogBox me demande de sélectionner le fichier.

1- Comment insérer le lien du dossier contenant le fichier dans la barre d'adresse du DialogBox et sélectionner le fichier?

2- Cliquer sur le bouton Ouvrir pour joindre le fichier?

Est-ce que vous pouvez-m'aider?

Merci beaucoup

N.B: Je précise que c'est le clic qui ouvre la fenêtre de dialogue, donc il me faut un code pour interagir avec ce DialogBox.

Sub AccesIE ()

Dim IE As InternetExplorer

Dim HTMLDoc As HTMLDocument

Set IE = New InternetExplorerMedium

IE.AddressBar = 1

IE.StatusBar = 1

IE.Toolbar = 1

IE.Visible = True

IE.Navigate "https://myserver.com"

While IE.Busy: DoEvents: Wend

Application.Wait Now + TimeValue("00:00:10")

Set HTMLDoc = IE.document

With HTMLDoc

.getElementById("A_username").Value = "myusername"

.getElementById("A_password").Value = "mypassword"

End With

'HTMLDoc.getElementByname("login")(0).Click

IE.document.getElementById("login").Click

While IE.Busy: DoEvents: Wend

Application.Wait Now + TimeValue("00:00:10")

IE.Navigate "https://myserver.com/link.folder

While IE.Busy: DoEvents: Wend

Application.Wait Now + TimeValue("00:00:10")

Set HTMLDoc = IE.document

With HTMLDoc

.getElementById("name").Value ="foldername"

End With

IE.document.getElementById("addButton").Click

While IE.Busy: DoEvents: Wend

Application.Wait Now + TimeValue("00:00:10")

IE.Navigate " IE.Navigate "https://myserver.com/link.folderfind1

While IE.Busy: DoEvents: Wend

Application.Wait Now + TimeValue("00:00:10")

IE.document.getElementById("Button").Click

End Sub

Edit : merci de mettre le code entre balise grâce au bouton </>