Message-ID: <38107291.ACF@wanadoo.fr><longre@wanadoo.fr>
Date: Fri, 22 Oct 1999 16:20:01 +0200
From: Laurent longre 
X-Mailer: Mozilla 3.0 (Win95; I)
MIME-Version: 1.0
Subject: Re: Utilisation structure OPER
References: <7upfjg$ld6$1@front6.grolier.fr>
Content-type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Newsgroups: microsoft.public.fr.excel
NNTP-Posting-Host: Lyon-19-165.abo.wanadoo.fr 164.138.233.165
Path: cppssbbsa01.microsoft.com!cppssbbsa05
Lines: 25
Xref: cppssbbsa01.microsoft.com microsoft.public.fr.excel:16038

Par exemple :

Sub TestDLL()

  dim Mafonction As long  ' num&eacute;ro de registre de la fonction

  ' Mise en registre de la fonction
  application.ExecuteExcel4Macro "REGISTER(""C:\Temp\MaDLL""," _
    & """Mafonction"",""PPPP"",""Mafonction"",,0)"
  Mafonction = [Mafonction]

  ' Appel de la fonction
  Result = run(Mafonction, [A1:A10], [B1:B10], [C1:C10])

  ' Suppression du num&eacute;ro de registre et fermeture de la DLL
  application.ExecuteExcel4Macro "UNREGISTER(" & Mafonction & ")"

end Sub

Laurent
-------
MVP Excel


dominique Tellitocci wrote:
> 
> Bonjour,
> 
> Je tente d'utiliser une fonction incluse dans une DLL. La d&eacute;claration de la
> fonction est :
> 
> OPER *FAR PASCAL _export Mafonction( OPER *xlCol1, OPER *xlCol2, OPER
> *xlCol3)
> 
> Comment faut-il d&eacute;clarer et utiliser la fonction dans une macro Excel 8
> sachant que les 3 parametres representent des colonnes d'une feuille excel.
> 
> Merci d'avance pour votre aide