Discussion :

[spookyz]

Bonjours à tous
j'aimerais savoir comment appeler une macro du classeur personnel de macros dans une macro d'un classeur lambda.

petite explication:
je fais souvent les mêmes choses mais dans des classeurs différents alors j'ai une petite bibliothèque de macros fonctions
exemple:
dans le personal.xlsb j'ai la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Derli(Li, Col)
Derli = ActiveSheet.Cells(Li, Col).End(xlDown).Row
End Function

et dans le "Classeur1"par exemple je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
x = Derli(1, 1)
End Sub

et ben j'ai un message d'erreur ! "sub ou function non définie" sur derli alors que dans le même module de personal.xlsb ça fonctionne
j'ai essayé de la passer en public function mais ça ne change rien
alors si quelqu'un vois la solution c'est cool merci

[Didier Gonard]

Bonjour,

en 1er as-tu bien regardé comment tu écris le nom de ta fonction dans les 2 cas ?

cordialement,

Didier

[spookyz]

Oui désolé c'est une petite erreur de frappe le probleme n'est pas la je vais corriger le post merci

[Didier Gonard]

Bonjour,

oui, mais ça ne pardonne pas dans un code

sinon voir du côté de : Application.Run

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run "NomDuClasseur.xlsb!NomDeLaMacro"

voir aussi : Programmer efficacement avec Excel en VBA http://bidou.developpez.com/tutoriels/ExcelVBA/

page 6

s'applique ici car le perso est par définition ouvert...

PS : attention syntaxe très sensible justement :
peut demander de préciser le module
si espaces dans le nom de classeur, entourer de simples quotes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Application.Run "'NomDuClasseur.xlsb'!NomDeLaMacro"

cordialement,

Didier

[spookyz]

Merci Didier je vais regarder tous ça

[spookyz]

Un grand merci a Didier et la page 6 du lien !
Pour ceux que cela pourrait intéresser
avec PERSONAL.XLSB Masqué ou Affiché
ma solution aura été:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

x = Application.Run("PERSONAL.XLSB!Deli", 1, 1)

ATTENTION au quotes et au parenthèses pour les arguments
encore merci à tous