Discussion :

[foze81]

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

[Geo2A]

Bonjour,

Vous utilisez les déclaration des API WIN32 pour VB6, forcément ça ne va pas marcher.

Il faut transformer les long en integer, dans un premier temps, ensuite le passage de chaine (lpstring) doit être marshallé ...(AS ANY n'est pas pris en charge)

Un conseil : faire une recherche sur la MSDN avec "déclarer les fonctions API"
Et bon courage !!

A+

[foze81]

Première chose :

Le marshaling du type de données, car comme cité dans la première réponse le "AS any" n'existe plus en vb.net.

Solution retenue :

Le plus simple pour récupérer la ligne de commande permettant d'ouvrir le fichier Excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String

...

[Geo2A]

Bonjour,

Ca ne va pas marcher !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String

Il faut marshaller la valeur de retour.

[foze81]

Bonjour,

Ca ne va pas marcher !



Il faut marshaller la valeur de retour.

Après avoir testé, j'obtiens bien la commande d'exécution d'ouverture de mon fichier Excel.