Un exemple ... mais le mot de passe est mis sur autre page et la coordination entre les 2 ne se fait pas correctement.
#If VBA7 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If
Sub login_orange()
nav = ShellExecute(0, "open", Range("B2"), 0, 0, 1)
Application.Wait (Now + TimeValue("00:00:02"))
Application.SendKeys "{TAB 14}", True
SendKeys Range("C2"), True
End Sub