Entrer login et mdp via ShellExecute

Bonjour,

j'ai le code ci-dessous qui m'ouvre mon appli web mais je ne sais pas comment renseigner le login et le mdp :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#If Win64 Then
 
Public 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
 
Public 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 Ouvrir()
 
Dim Fichier As String
 
Fichier = "mon_addresse"
ShellExecute 0, "", Fichier, "", "", 0
 
 
End Sub

De l'aide serait sympa :)
Merci