Qui a appelé la macro complémentaire

cesdejong Messages postés 16 Date d'inscription mercredi 9 juin 2004 Statut Membre Dernière intervention 14 juin 2006 - 14 juin 2006 à 16:55
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 14 juin 2006 à 17:07
Bonjour
J'ai une macro complémentaire qui me permet d'afficher un contrôle dans la barre de menu d'excel. Ce contrôle permet de lancer à partire de n'importe quel classeur excel une procédure de la macro complémentaire. Y'a t'il un moyen de communiquer à ma macro complémentaire le nom du classeur qui l'a appelée ou alors puis-je le récupérer dans une propriétées de la macro complémentaire ?

Merci d'avance
Ces

2 réponses

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
14 juin 2006 à 16:57
Salut,

Soit Export le Nom de ta macro

Tu peux ajouter dans la déclaration

Public Sub Export(NomClasseur as string)

Et l'appeler non plus par Export mais par Call Export(ActiveWorkBook.Name)

Ai-je bon ou n'ai je rien compris au problème

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée
0
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
14 juin 2006 à 17:07
Pas mieux que Julien, sache qu'avec Excel tu peux aussi récupérer un autre renseignement :

Application.UserName

Si ta macro est accessible en réseau (ou si Multi Utilisateurs sur le Poste), tu sauras avec la methode de Julien quel classeur a appelé la macro et quel utilisateur l'a fait.

Après pour un traçage, tu peux écrire dans un fichier texte ces infos

@++
<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /?><v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /?><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype>  Mortalino 

Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement
0
Rejoignez-nous