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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 :
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