Cela donne quelque chose du genre:
Private Sub Form_Load()
On Error Resume Next
Dim Objexc As Object
Dim I As Integer
Set Objexc = CreateObject("Excel.Application")
Objexc.Visible = True
Workbooks.Open ("c:\Infoessai.xls")
Application.Run ("Infoessai.xls!Macro1", arg1, arg2)
End Sub
Je t'ai fait une copie de l'aide Microsoft:
Cette méthode exécute une macro ou appelle une fonction. Elle peut être utilisée pour exécuter une macro écrite en Visual Basic ou dans le langage de macro de Microsoft Excel ou pour exécuter une fonction dans une DLL ou une XLL.
expression.Run(Macro, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)
expression Obligatoire. Expression qui renvoie un objet Application.
Macro Argument de type Variant facultatif. Macro à exécuter. Il peut s'agir d'une chaîne de caractères contenant le nom de la macro, d'un objet Range indiquant l'endroit où se trouve la fonction ou encore d'un identificateur de Registre pour une fonction DLL (XLL) inscrite dans le Registre. En cas d'utilisation d'une chaîne de caractères, celle-ci sera évaluée dans le contexte de la feuille active.
Arg1-Arg30 Argument de type Variant facultatif. Arguments à transmettre à la fonction
Bonne chance
Christophe dit Watergate
-------------------------------
Réponse au message :
-------------------------------
> des paramétres de type string et integer
>
> laurent207
>
|