auto-référence au fichier contenant une macro.

Bonjour à tous,

dans le developpement de mes macros, je butte sur un problème agaçant sans être bloquant.
La macro contient des appels à d'autres macros dont la référence contient le nom du fichier.

Code:

---

1 2 3 4 5 6 7 8 9

Sub Inc() ' ' Inc Macro '   ' Application.Run "'B-SAF-FDM 1-7_empty.xlsm'!Cleaning" Application.Run "'B-SAF-FDM 1-7_empty.xlsm'!Inception" End Sub

---

Un problème se pose quand je crée une nouvelle version. si je ne renomme pas toutes ces références, la macro ne peut pas fonctionner.
Les utilisateurs finaux ont un souci semblable : il ne peuvent pas enregistrer leur travail sous un autre nom et espérer relancer la macro.

Pourriez-vous me dire comment appeler une sous-macro sans que le nom du fichier soit explicitement utilisé ?

Merci d'avance;

Alex

Citation:

---

Envoyé par AMRAAM

Pourriez-vous me dire comment appeler une sous-macro sans que le nom du fichier soit explicitement utilisé ?

---

Le fonction "boule de cristal" n'étant pas encore intégrée au VBA :mrgreen: , il va falloir trouver une logique pour expliquer au code quel est le nom du fichier où se trouve la macro.
On ne peut pas demander à VBA d'aller scruter tous les fichiers Excel du disque local pour vérifier si la macro fille s'y trouve.

Est-ce qu'il s'agit d'un fichier seul dans un répertoire particulier ?
As-t-il un nom qui dépend de la date ou d'un autre paramètre du fichier de la macro mère ?
Ce nom peut-être être placé dans une cellule du fichier de la macro mère ?

Cela dit, si je peux me permettre un avis personnel, faire ça c'est un peu une aberration structurelle et une erreur de conception.
Il faudrait peut-être revoir ce principe à la source.

Le fichier est complètement autonome et indépendant de tout autre fichier ou dossier. Son nom ne dépend d'aucune variable. Il pourrait porter n'importe quel autre nom. Mon souci est justement que l'appel de macro contraint à ne pas le faire.

J'ignore dans quel langage vous utilisez la fonction boule de cristal. J'ai entendu dire qu'elle demande un mod Cassandre, qui crée beaucoup de problème de communication.

Pour Excel, il existe un champ de donnée reprenant le nom actuel du fichier, notamment utilisé dans les en-têtes et pieds-de-page. J'ignore s'il est possible de l'utiliser dans une fonction VBA comme référence relative à une macro, en place de de la référence absolue actuellement utilisée.

Citation:

---

Envoyé par AMRAAM

Le fichier est complètement autonome et indépendant de tout autre fichier ou dossier. Son nom ne dépend d'aucune variable. Il pourrait porter n'importe quel autre nom. Mon souci est justement que l'appel de macro contraint à ne pas le faire.

---

S'il est impossible d'expliquer à la macro mère comment trouver le fichier de la macro fille, alors ton problème n'a pas de solution.

Citation:

---

Pour Excel, il existe un champ de donnée reprenant le nom actuel du fichier, notamment utilisé dans les en-têtes et pieds-de-page. J'ignore s'il est possible de l'utiliser dans une fonction VBA comme référence relative à une macro, en place de de la référence absolue actuellement utilisée.

---

Pour accéder à cette information, il faudrait savoir de quel fichier il s'agit.

C'est comme si tu ignorait le numéro de téléphone d'une personne et qu'on te réponde que tu n'as qu'à l'appeler par téléphone et lui demander.

OK

Merci.

J'ai demandé sur le forum Microsoft et j'ai reçu une réponse satisfaisante en sept minutes.

Code:

---

1 2 3

Sub Inc() <div style="margin-left:40px">Cleaning Inception</div>End Sub

---

C'est tellement simple que je m'en veux de ne pas l'avoir tenté moi-même.

J'espère que ça aidera quelqu'un.

Tu aurais dû préciser que les macro appelées étaient dans le même fichier que la macro appelante.

Bonjour …

Citation:

---

C'est tellement simple que je m'en veux de ne pas l'avoir tenté moi-même.
J'espère que ça aidera quelqu'un.

---

Encore faut-il ne pas tenter le Diable ! J’éviterais de dire cela.

Citation:

---

Tu aurais dû préciser que les macros appelées étaient dans le même fichier que la macro appelante.

---

J’ajouterais que les macros figurent dans la même fenêtre de codes (Feuille ou Module) !

Avec, sans aucune autre précision :

Code:

---

1 2 3 4

Sub Inc() Cleaning Inception End Sub

---

L’exécution va renvoyer un message d’erreur quand au moins l’une des macros appelées n’est pas écrite dans la même fenêtre.

Dans ce cas il faudra utiliser un appel bien précis !

Dans le Module 1*

Code:

---

1 2 3 4

Sub Inc() Call Cleaning Module3.Inception 'autre façon d'appeler la procédure End Sub

---

Et encore … il y aura un message d’erreur si la macro et en Private

Cela passe avec, dans le Module 2

Code:

---

1 2 3

Sub Cleaning() MsgBox "C'est bon" End Sub

---

Mais cela casse avec, dans le Module 3

Code:

---

1 2 3

Private Sub Inception() MsgBox "C'est tout bon" End Sub

---

*Pour en terminer Call Cleaning ne passe pas quand cette macro est écrite dans la fenêtre des codes d’une Feuille. Dans ce cas, il faudra passer par Feuilx.Cleaning (macro écrite dans FeuilX)


Nota : je suis intervenu car je constate qu’il est trop peu fait allusion au choix de l’endroit où écrire les macros !
Combien de problèmes seraient évités en commençant d’abord par se poser la question.