sub DescribeFunction pour le personal.xlsb
Bonjour a vous, chers amis !!!
Certains d'entre vous connaissent un code qui circule sur internet permettant d'alimenter l'assistant de la fonction Excel.
sois :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub DescribeFunction()
Dim FuncName As String
Dim FuncDesc As String
Dim Category As String
Dim ArgDesc(1 To 3) As String
FuncName = "EXTRACTELEMENT"
FuncDesc = "Returns the nth element of a string that uses a separator character"
Category = 7 'Text category
ArgDesc(1) = "String that contains the elements"
ArgDesc(2) = "Element number to return"
ArgDesc(3) = "Single-character element separator"
Application.MacroOptions _
Macro:=FuncName, _
Description:=FuncDesc, _
Category:=Category, _
ArgumentDescriptions:=ArgDesc
End Sub |
Le code fonctionne a merveille lorsque le code est dans un module d'une feuille quelconque mais lorsque le code en question est dans un module du fichier personal.xlsb, il y a un erreur que la méthode MacroOptions de l'objet Application a échoué ...
Avez-vous une piste de solution afin de réglé cette erreur ???
merci beaucoup !!!
