Récupérer des paramètres en entrée
Bonjour,
Depuis "Visual studio tools Office", j'ai crée un nouveau Workbook.
Maintenant dans le code vb.net, j'aimerais pouvoir récupérer des paramètres envoyés lors de l'ouverture du fichier excel.
ex : Nomfichier.xlsm "param1=test1"
J'aimerais récupérer "param1"
voici un bout de code fonctionnant avec VBA :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As any) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As any, ByVal lpString2 As any) As Long
'fonction proposée par Tony Proctor sur le forum public de Microsoft : microsoft.public.vb.winapi
Private Function GetCmd() As String
Dim lpCmd As Long
lpCmd = GetCommandLine()
GetCmd = lpCmd
GetCmd = Space$(lstrlen(byval lpCmd))
lstrcpy(byval GetCmd, byval lpCmd)
End Function |
Voici les erreurs de ce code :
Citation:
Erreur 1 'As Any' n'est pas pris en charge dans les instructions 'Declare'.
Erreur 4 Expression attendue. Space$(lstrlen(byval lpCmd))
Merci d'avance pour vos réponses
