variable retournant le nom de la macro
Page 1 sur 1
variable retournant le nom de la macro
Bonjour
Pour des soucis de mise a jour des versions, connaissez vous une manière de pouvoir récupérer le nom d'une macro en cours d'exécution, un peut comme pour les variable d'environnement.
ça me permet d'une part de faire suivre facilement le versionnage de mes macros lorsqu'elles génèrent leurs fichiers de configuration.
ça me permet également dans certain cas de pouvoir piloter Excel en lui envoyant du code à exécuter qui permet en retour d'appeler la macro en question
Actuellement je fais ça en partie manuellement via l'utilisateur qui renseigne le chemin, et d'autre par en dur pour le nom de la macro
Le fait de pouvoir récupérer cette variable automatiquement simplifierait grandement les choses pour la mise en place par les utilisateurs.
Pour des soucis de mise a jour des versions, connaissez vous une manière de pouvoir récupérer le nom d'une macro en cours d'exécution, un peut comme pour les variable d'environnement.
ça me permet d'une part de faire suivre facilement le versionnage de mes macros lorsqu'elles génèrent leurs fichiers de configuration.
ça me permet également dans certain cas de pouvoir piloter Excel en lui envoyant du code à exécuter qui permet en retour d'appeler la macro en question
Actuellement je fais ça en partie manuellement via l'utilisateur qui renseigne le chemin, et d'autre par en dur pour le nom de la macro
Le fait de pouvoir récupérer cette variable automatiquement simplifierait grandement les choses pour la mise en place par les utilisateurs.
Dernière édition par Guss_ le Mer 25 Juin 2014 - 13:05, édité 1 fois
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Re: variable retournant le nom de la macro
Je me réponds, j'ai pu trouvé grâce à une réponse sur un autre forum
- Code:
1.Sub catmain()
2. 'code de test d'appel de la fonction
3. msgbox Info_Macro()
4. msgbox Info_Macro("chemin" )
5. msgbox Info_Macro("nom" )
6.end Sub
7.
8.
9.Function Info_Macro(Optional Genre As String) As String
10. Dim APC As Object
11. Dim ChrI, i, t
12. Set APC = CreateObject("MSAPC.Apc" )
13. Info_Macro = APC.VBE.ActiveVBProject.FileName
14.
15. If Genre = "nom" Then
16. For i = 1 To Len(Info_Macro)
17. ChrI = Left(Right(Info_Macro, i), 1)
18. If ChrI = "\" Then
19. Info_Macro = Right(Info_Macro, i - 1)
20. Exit For
21. End If
22. Next
23. Else
24. If Genre = "chemin" Then
25. For i = 1 To Len(Info_Macro)
26. ChrI = Left(Right(Info_Macro, i), 1)
27. If ChrI = "\" Then
28. Info_Macro = Left(Info_Macro, Len(Info_Macro) - i + 1)
29. Exit For
30. End If
31. Next
32. End If
33. End If
34.End Function
Guss_- Admin
- Messages : 530
Date d'inscription : 08/01/2010
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|