Erreur VBA "Nombre incorrect d'arguments ou d'affectations de propriétés non valides" lors de l'exécution d'une macro via un bouton personnalisé

J'ai une macro que j'appelle via un onglet/le groupe/ajout d'un bouton par la Coutume de l'INTERFACE utilisateur de l'Éditeur -

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="tabCustomActions" label="Custom ActionsXXX" insertAfterMso="TabDeveloper">
                <group id="GroupTLA" label="TLA Actions">
                    <button id="buttonFormatTLA" label="Format as TLA" image="TLALogo" size="large" onAction="start_tla" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Le bouton s'affiche très bien, avec mon logo, mais quand je clique sur le bouton je reçois l'erreur de suivi -

Erreur VBA

VBA n'est pas ouverte à la suite de cette erreur, comme à son habitude, et pas de code VBA est indiqué que le problème si j'ouvre le développeur de la console et ensuite essayer et cliquez sur le bouton.

Étrangement bien, si j'essaie de l'exécuter la macro manuellement, il fonctionne très bien avec pas d'erreurs. Quelqu'un a une idée comment résoudre ce problème?

Voici mon code complet dans un Pastebinsi vous souhaitez l'afficher. Merci.

source d'informationauteur David Gard

  1. 12

    Que vous avez tort d'appeler la signature de la start_tla de rappel dans votre code VBA.

    Si vous ouvrez votre fichier dans Personnalisée de l'INTERFACE utilisateur de l'Éditeur deil y a le bouton Générer des Rappels à droite dans le menu. Si vous appuyez sur ce bouton, il vous donnera la bonne rappels pour votre code VBA pour correspondre le ruban xml dans votre fichier:

    'Callback for buttonFormatTLA onAction
Sub start_tla(control As IRibbonControl)
    'Your code goes here
End Sub

    Selon le lien Pastebin, votre sous cette apparence, sans le control As IRibbonControl paramètre:

    Public Sub start_tla()