Code VB qui support changement nom Classeur Excel

[matiousky]

Bonjour,

J'ai un code qui marche mais cependant si le nom du classeur = 1 seul mot.
Si je renomme mon classeur avec plusieurs mots, alors mon code ne marche plus.
Pouvez-vous m'aider?

Voici mon code:

Dim nom As String
Application.ScreenUpdating = False
Sheets("Simulation").Select
nom = ActiveWorkbook.Name & "!Maz"
Application.Run nom
Range("G33").Select

Une fois le fichier renommé, le bug intervient au niveau de la ligne
Application.Run nom

Merci de votre aide,
Mat

 

[Spitnolan08]

Re : Code VB qui support changement nom Classeur Excel

Bonjour,
Essaye Application.Run (nom)
Cordialement

 

[matiousky]

Re : Code VB qui support changement nom Classeur Excel

Merci de ton aide mais ca ne marche pas.

Pouvez-vous m'aider?

Merci,
Mat

 

[dixit]

Re : Code VB qui support changement nom Classeur Excel

bonjour,
le point d'exclamation dans nom = ActiveWorkbook.Name & "!Maz" ne poserait-il pas un problème ?
bye

 

[Pierrot93]

Re : Code VB qui support changement nom Classeur Excel

Bonjour à tous

tu parles de renommer ton classeur, je ne vois pas de code en ce sens dans celui indiqué, tu ne fais qu'alimenter une variable texte. Que veux tu faire exactement.

bonne journée
@+

 

[Spitnolan08]

Re : Code VB qui support changement nom Classeur Excel

Bonjour,

le point d'exclamation dans nom = ActiveWorkbook.Name & "!Maz" ne poserait-il pas un problème ?

C'est ce que je pensais au début mais il s'agit d'un appel de procédure dont la syntaxe demande (Si on souhaite nommer un classeur) ce point d'exclamation.
Cordialement

 

[matiousky]

Re : Code VB qui support changement nom Classeur Excel

Bonjour à tous,

Ce que je veux faire exactement, c'est pouvoir renommer mon classeur Excel sans que cela affecte les macros.
Je voudrai que l'utilisateur du fichier puisse le renommer à sa guise.
Mon code marche mais seulement si je renomme mon classeur par un seul mot.
Si je le renomme en utilisant + d'un mot, alors mon code bug.

Savez-vous comment faire pour pouvoir renommer mon classeur Excel sans que cela affecte les macros?

Voici mon code:

Sub Prudent()
Application.ScreenUpdating = False
Dim nom As String
Sheets("Simulation").Select
nom = ActiveWorkbook.Name & "!Maz"
Application.Run nom
Range("G33").Select

Merci de votre aide,
Mat

 

[Spitnolan08]

Re : Code VB qui support changement nom Classeur Excel

Re,

Question bête : Pourquoi veux tu appeler tes procédures en utilisant le nom du fichier ?
Pour lancer une procédure d'un classeur quel que soit le nom de ce dernier, il suffit d'écrire par exemple (si ta procédure s'appelle Maz):
Call Maz
ou
Maz

Cordialement

 

[matiousky]

Re : Code VB qui support changement nom Classeur Excel

Réponse: car je suis nul en VB. Désolé!

J'ai "hérité" de code par l'enregistrement de macro.

Merci à tous pour votre aide précieuse,
Mat