Modofier une macro complémentaire

bonjour,

j'imagine qu'il faudrait créer une fonction personnalisée, utilisant la
macro complémentaire et du code perso....


Cordialement

Bourby




sunguess wrote:

Bonjour,

Y a t'il un moyen d'avoir le code d'une macro complémentaire pour la mettre
à jour?

je souhaiterai modifier le code de la formule amordreg() qui appartient aux
macros complémentaires de l'utilitaire d'analyse.

Il s'agit d'une formule pour calculer l'amortissement dégréssif, mais les
coefficients ont changé au 1 janvier 2001 et la formule n'a pas été
actualisée.

Je souhaiterai donc :
1/ integrer les nouveaux coeffs
2/ selectionner automatiquement en fonction de la date d'achat les bons
coefficients.

Si vous savez comment extraire le code ou si vous avez eu vent d'une
fonction mise à jour, merci de m'aider.

Tanguy

Bonsour® Sunguess,
ce que l'on peut accéder ...???
ouvrir les Macros Excel à vos risques et périls, car elles sont en général
incompréhensibles ou utilisent parfois des bibliothèques
de liens dynamiques (.dll) qui sont en langage compilé. (F.Brobecker)

pouvoir comprendre c'est une chose déja hors de ma portée
pouvoir modifier sans casser Excel je n'oserai pas....

Essaie une question sur la KB peut-etre proposent-il un "Workaround" ???

@+

' ANALYSIS TOOLPAK - Excel AddIn
' The following function declarations provide interface between VBA and ATP
XLL.

' These variables point to the corresponding cell in the Loc Table sheet.
Const XLLNameCell = "B8"
Const MacDirSepCell = "B3"
Const WinDirSepCell = "B4"
Const LibPathWinCell = "B10"
Const LibPathMacCell = "B11"

Dim DirSep As String
Dim LibPath As String
Dim AnalysisPath As String
Dim WorkbookName As String

Dim FunctionIDs(130, 0 To 1)

FunctionIDs(92, 0) = "fnAmorDegrc"

Function Amordegrc(cost As Variant, date_purchased As Variant, first_period
As Variant, salvage As Variant, period As Variant, rate As Variant, Optional
year_basis As Variant) As Variant
Amordegrc = Application.Run(GetMacroRegId("fnAmorDegrc"), cost,
date_purchased, first_period, salvage, period, rate, year_basis)
End Function

Private Function GetMacroRegId(FuncText As String) As String
Debug.Print ("[GetMacroRegId] '" & FuncText & "' <")
For i = LBound(FunctionIDs) To UBound(FunctionIDs)
If (LCase(FunctionIDs(i, 0)) = LCase(FuncText)) Then
If (Not (IsError(FunctionIDs(i, 1)))) Then
GetMacroRegId = FunctionIDs(i, 1)
Debug.Print ("[GetMacroRegId] '" & FuncText & "' -> '" &
GetMacroRegId & "' >")
Exit Function
End If
End If
Next i
Debug.Print ("[GetMacroRegId] Error while finding '" & FuncText & "' >")
End Function


sunguess wrote:

Bonjour,

Y a t'il un moyen d'avoir le code d'une macro complémentaire pour la
mettre à jour?

je souhaiterai modifier le code de la formule amordreg() qui
appartient aux macros complémentaires de l'utilitaire d'analyse.

Il s'agit d'une formule pour calculer l'amortissement dégréssif, mais
les coefficients ont changé au 1 janvier 2001 et la formule n'a pas
été actualisée.

Je souhaiterai donc :
1/ integrer les nouveaux coeffs
2/ selectionner automatiquement en fonction de la date d'achat les
bons coefficients.

Si vous savez comment extraire le code ou si vous avez eu vent d'une
fonction mise à jour, merci de m'aider.

Tanguy

merci pour le code, mais comment as tu fait pour le récuperer?

"GD" <nomail@nomail.net> a écrit dans le message de news:
uGGsoqPEFHA.1124@TK2MSFTNGP14.phx.gbl...

Bonsour® Sunguess,
ce que l'on peut accéder ...???
ouvrir les Macros Excel à vos risques et périls, car elles sont en général
incompréhensibles ou utilisent parfois des bibliothèques
de liens dynamiques (.dll) qui sont en langage compilé. (F.Brobecker)

pouvoir comprendre c'est une chose déja hors de ma portée
pouvoir modifier sans casser Excel je n'oserai pas....

Essaie une question sur la KB peut-etre proposent-il un "Workaround" ???

@+

' ANALYSIS TOOLPAK - Excel AddIn
' The following function declarations provide interface between VBA and
ATP
XLL.

' These variables point to the corresponding cell in the Loc Table sheet.
Const XLLNameCell = "B8"
Const MacDirSepCell = "B3"
Const WinDirSepCell = "B4"
Const LibPathWinCell = "B10"
Const LibPathMacCell = "B11"

Dim DirSep As String
Dim LibPath As String
Dim AnalysisPath As String
Dim WorkbookName As String

Dim FunctionIDs(130, 0 To 1)

FunctionIDs(92, 0) = "fnAmorDegrc"

Function Amordegrc(cost As Variant, date_purchased As Variant,
first_period
As Variant, salvage As Variant, period As Variant, rate As Variant,
Optional
year_basis As Variant) As Variant
Amordegrc = Application.Run(GetMacroRegId("fnAmorDegrc"), cost,
date_purchased, first_period, salvage, period, rate, year_basis)
End Function

Private Function GetMacroRegId(FuncText As String) As String
Debug.Print ("[GetMacroRegId] '" & FuncText & "' <")
For i = LBound(FunctionIDs) To UBound(FunctionIDs)
If (LCase(FunctionIDs(i, 0)) = LCase(FuncText)) Then
If (Not (IsError(FunctionIDs(i, 1)))) Then
GetMacroRegId = FunctionIDs(i, 1)
Debug.Print ("[GetMacroRegId] '" & FuncText & "' -> '" &
GetMacroRegId & "' >")
Exit Function
End If
End If
Next i
Debug.Print ("[GetMacroRegId] Error while finding '" & FuncText & "'

")
End Function

sunguess wrote:

Bonjour,

Y a t'il un moyen d'avoir le code d'une macro complémentaire pour la
mettre à jour?

je souhaiterai modifier le code de la formule amordreg() qui
appartient aux macros complémentaires de l'utilitaire d'analyse.

Il s'agit d'une formule pour calculer l'amortissement dégréssif, mais
les coefficients ont changé au 1 janvier 2001 et la formule n'a pas
été actualisée.

Je souhaiterai donc :
1/ integrer les nouveaux coeffs
2/ selectionner automatiquement en fonction de la date d'achat les
bons coefficients.

Si vous savez comment extraire le code ou si vous avez eu vent d'une
fonction mise à jour, merci de m'aider.

Tanguy