Discussion :

[tibal]

Bonjour,
Je souhaite écrire une petite fonction réutilisable qui doit recevoir 2 paramètres, dont voici le code :

Code :

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

1
2
3
4
5
6
7
8
Function test(VAR1 As String, VAR2 As String)
  Selection.Font.Size = 24
  Selection.Font.Italic = wdToggle
  Selection.Font.Color = -738131969
  Selection.Font.Name = "Calibria"
  Selection.TypeText (VAR1)
  Selection.InsertFile FileName:=VAR2
 End Function

Lorsque je l'appelle, j'ai erreur de compilation et erreur de syntaxe (voici la code) :

Code :

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

1
2
3
4
5
6
7
Sub use_fct_test()
   Dim v_var1 As String, v_var2 As String, v_var2_file As String
   v_var1 = "Titre"
   v_var2 = "90"
   v_var2_file = "C:\fichier" & v_var2 & ".lst"
   insert_v_var2 (v_var1, v_var2_file)
End Sub

Je ne vois pas ou est la coquille.
Merci d'avance.

[tibal]

J'ai trouvé. Les parenthèses étaient de trop :

Code :

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

1
2
3
4
5
6
7
Sub use_fct_test()
   Dim v_var1 As String, v_var2 As String, v_var2_file As String
   v_var1 = "Titre"
   v_var2 = "90"
   v_var2_file = "C:\fichier" & v_var2 & ".lst"
   insert_v_var2 v_var1, v_var2_file
End Sub

[Sepia]

Salut tibal,

C'est vrai il ne faut pas de parenthèses pour les appels des procédures (Sub) mais il faut des parenthèses pour les appels des fonctions (Function) (<=> procédures qui renvoient une valeur).

Ah les joies du VBA

@+