Discussion :

[MONANGE]

Bonjours,

J'ai fait ce qui suit à partir du tuto de Fabrice Constant :

Une Macro Autoexec execute code : StartUp( )

Un Module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function StartUp( )
Dim monparam as Variant  ' déclare une variable 
 
compact = Command( )     ' affecte la valeur transmise à la variable
	If Not IsNull(compact) Then 	'si la variable est nulle
		If Len(compact)>0 Then 	'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier
			'code de traitement
		End If
	End If
 
End Function

Cela semble fonctionner... mais je ne suis pas sur

Pouvez vous me dire si tout ceci est conforme; éventuellement me conseiller

Merci

Bien Cordialement

[Jean-Philippe André]

Salut,

tu peux voir le code de base dans ce tuto :
http://jpcheck.developpez.com/tutori...metres/#LXII-B

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function StartUp( )
Dim monparam as Variant  ' déclare une variable 
 
monparam = Command( )     ' affecte la valeur transmise à la variable
	If Not IsNull(monparam) Then 	'si la variable est nulle
		If Len(monparam)>0 Then 	'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier
			'code de traitement
		End If
	End If
 
End Function

[MONANGE]

Salut,

tu peux voir le code de base dans ce tuto :
http://jpcheck.developpez.com/tutori...metres/#LXII-B

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function StartUp( )
Dim monparam as Variant  ' déclare une variable 
 
monparam = Command( )     ' affecte la valeur transmise à la variable
	If Not IsNull(monparam) Then 	'si la variable est nulle
		If Len(monparam)>0 Then 	'on s'assure qu'un paramètre a été passé, sinon pas de comportement particulier
			'code de traitement
		End If
	End If
 
End Function