Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Aide sur la constante CodeName en VBA excel

6 réponses
Avatar
Amar Lacheheb
Bonjour,
je cherche à recuperer le CodeName d'une feuille,
j'ecrit l instruction suivante :
activeSheet.codeName et ça me renvoie l'information dont j'ai besoin.
Je passe ma macro sous un classeur de macro complémentaire et la valeur que
me renvoie le activeSheet.codeName
est précédée du nom du classeur de macro complémentaire.
j'ai essayé d'enlever cette partie à l'aide fonction texte type mid() mais
je n'y arrive pas.
quelqu'un peut il m'aidé à resoudre mon problème.
Merci d'avance

6 réponses

Avatar
lSteph
Bonjour,

précise ton code car si j'écris celui ci après dans un classeur de
macro complémentaire
et que je tape le nom de la macro dans outils macros executer
j'obtiens bien le nom cherché:

Sub testsh()
MsgBox ActiveSheet.CodeName
End Sub

'lSteph

On 10 juil, 14:45, "Amar Lacheheb" wrote:
Bonjour,
je cherche à recuperer le CodeName d'une feuille,
j'ecrit l instruction suivante :
activeSheet.codeName et ça me renvoie l'information dont j'ai besoin.
Je passe ma macro sous un classeur de macro complémentaire et la valeur que
me renvoie le activeSheet.codeName
est précédée du nom du classeur de macro complémentaire.
j'ai essayé d'enlever cette partie à l'aide fonction texte type mid() mais
je n'y arrive pas.
quelqu'un peut il m'aidé à resoudre mon problème.
Merci d'avance


Avatar
lSteph
...au fait
CodeName est une propriété


On 10 juil, 15:51, lSteph wrote:
Bonjour,

précise ton code car si j'écris celui ci après dans un classeur de
macro complémentaire
et que je tape le nom de la macro dans outils macros executer
j'obtiens bien le nom cherché:

Sub testsh()
MsgBox ActiveSheet.CodeName
End Sub

'lSteph

On 10 juil, 14:45, "Amar Lacheheb" wrote:

> Bonjour,
> je cherche à recuperer le CodeName d'une feuille,
> j'ecrit l instruction suivante :
> activeSheet.codeName et ça me renvoie l'information dont j'ai besoin.
> Je passe ma macro sous un classeur de macro complémentaire et la vale ur que
> me renvoie le activeSheet.codeName
> est précédée du nom du classeur de macro complémentaire.
> j'ai essayé d'enlever cette partie à l'aide fonction texte type mid () mais
> je n'y arrive pas.
> quelqu'un peut il m'aidé à resoudre mon problème.
> Merci d'avance


Avatar
michdenis
As-tu essayé ceci :

Dans le code situé dans la procédure de ta macro complémentaire, tu inscris :

x = ActiveWorkbook.activeSheet.codeName
Msgbox x



"Amar Lacheheb" a écrit dans le message de news: g54vth$cu2$
Bonjour,
je cherche à recuperer le CodeName d'une feuille,
j'ecrit l instruction suivante :
activeSheet.codeName et ça me renvoie l'information dont j'ai besoin.
Je passe ma macro sous un classeur de macro complémentaire et la valeur que
me renvoie le activeSheet.codeName
est précédée du nom du classeur de macro complémentaire.
j'ai essayé d'enlever cette partie à l'aide fonction texte type mid() mais
je n'y arrive pas.
quelqu'un peut il m'aidé à resoudre mon problème.
Merci d'avance
Avatar
Amar Lacheheb
Effectivement,
j'ai aussi la bonne valeur,
le problème en fait ce situe dans une étape qui suit,
ou j'affecte le nom un bouton, et je lui affecte une macro
j'ai donc une macro qui s'appel par exemple : MacroFeuil1
et lorsque j'affecte cette macro a mon bouton il refuse et me mettant un
message d'erreur avec la valeur du sheets.codeName qui contient en plus le
nom du classeur de macro complémentaire.
j'espere avoir été suffisament claire :)
merci de ton aide
"lSteph" a écrit dans le message de news:

Bonjour,

précise ton code car si j'écris celui ci après dans un classeur de
macro complémentaire
et que je tape le nom de la macro dans outils macros executer
j'obtiens bien le nom cherché:

Sub testsh()
MsgBox ActiveSheet.CodeName
End Sub

'lSteph

On 10 juil, 14:45, "Amar Lacheheb" wrote:
Bonjour,
je cherche à recuperer le CodeName d'une feuille,
j'ecrit l instruction suivante :
activeSheet.codeName et ça me renvoie l'information dont j'ai besoin.
Je passe ma macro sous un classeur de macro complémentaire et la valeur
que
me renvoie le activeSheet.codeName
est précédée du nom du classeur de macro complémentaire.
j'ai essayé d'enlever cette partie à l'aide fonction texte type mid() mais
je n'y arrive pas.
quelqu'un peut il m'aidé à resoudre mon problème.
Merci d'avance


Avatar
Amar Lacheheb
ça ne marche pas,
je vais essayer de simplifier mon problème et de reformuler ma question.
merci pour ton aide
"michdenis" a écrit dans le message de news:
%
As-tu essayé ceci :

Dans le code situé dans la procédure de ta macro complémentaire, tu
inscris :

x = ActiveWorkbook.activeSheet.codeName
Msgbox x



"Amar Lacheheb" a écrit dans le message de news:
g54vth$cu2$
Bonjour,
je cherche à recuperer le CodeName d'une feuille,
j'ecrit l instruction suivante :
activeSheet.codeName et ça me renvoie l'information dont j'ai besoin.
Je passe ma macro sous un classeur de macro complémentaire et la valeur
que
me renvoie le activeSheet.codeName
est précédée du nom du classeur de macro complémentaire.
j'ai essayé d'enlever cette partie à l'aide fonction texte type mid() mais
je n'y arrive pas.
quelqu'un peut il m'aidé à resoudre mon problème.
Merci d'avance




Avatar
michdenis
X = ActiveWorkbook.ActiveSheet.CodeName
Msgbox X

| ça ne marche pas,
| je vais essayer de simplifier mon problème et de reformuler ma question.
| merci pour ton aide

Ceci fonctionne très bien ! La question est plutôt comment toi tu travailles avec
un fichier de macros complémentaires.

Pour pouvoir appeler directement une procédure du fichier "Macro complémentaire"
tu dois ajouter ladite référence en utilisant la barre des menus de la fenêtre de l'édition
de code VBA / références / et tu choisis le nom que tu as baptisé ton ProjetVBA de
ton fichier Macro complémentaire.