Problème avec macro globale macro.xla

Bonjour,

J'ai créé un fichier macro.xla que j'ai mis sans le répertoire

Code:

---

"%APPDATA%\Microsoft\Excel\XLStart"

---

et qui contient par exemble la fonction suivante :

Code:

---

1 2 3 4 5 6 7 8 9

Public Function GetCol(CelluleActive As String) As String   For i = 2 To Len(CelluleActive) If Asc(Mid(CelluleActive, i, 1)) > 64 And Asc(Mid(CelluleActive, i, 1)) < 91 Then GetCol = GetCol + Mid(CelluleActive, i, 1) End If Next   End Function

---

Pour pouvoir utiliser cette fonction dans une procédure vba qui se trouve dans un autre module, j'utilise la commande suivante:

Code:

---

Colonne = Application.Run("GetCol", Cellule)

---

Par contre, si je veux utiliser cette fonction avec la ligne :

Code:

---

Colonne = GetCol("Cellule")

---

J'ai un message d'erreur "Sub ou fonction non définie".

Savez vous pourquoi et quelle est mon erreur ?

Merci d'avance.
Cordialement,
Imer33

Bonjour,
Pour appeler ta fonction qui se trouve dans un XLA depuis un autre fichier .XLS par exemple, la syntaxe correcte est :

Code:

---

colonne = Application.Run("Macro.xla!Getcol", Cellule)

---

Bonjour,
Merci pour ta réponse.

N'existe t'il pas un moyen pour n'écrire que

Code:

---

Colonne = GetCol("Cellule")

---

sans passer par Application.Run ?

Je voudrais mettre à disposition de mes utilsateurs un fichier de fonctions "prétes à réutiliser" et je trouve cette syntaxe plus simple.

Merci.

Si,
si tu passes par excel pur et que tu prends l'assistant de fonction, que tu prends user defined, tu trouveras ta fonction, ce qui devrait te donner quelquechose du genre de ceci dans une cellule.

=Macro.xla!Getcol(Cellule)