Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel renommer module sous excel 2002

renommer module sous excel 2002

6 réponses
Avatar
Alain NEWS
Je parle du nom qui apparait sous Modules lorsqu'on fait
"Affichage/Explorateur de projet".

Merci.
--
Otez la cle pour me répondre.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis Michon
Bonjour Alain,

En VBA, pour renommer un module :

Tu peux remplacer "ThisWorkbook.Name" par le nom d'un classeur ouvert pour y modifier le nom d'un module

Renomme le module1 en "Toto" du classeur où est écrit la procédure

'--------------------
Sub RenommerModule()

With Workbooks(ThisWorkbook.Name)
ThisWorkbook.VBProject.VBComponents("Module1").Name = "Toto"
End With

End Sub
'--------------------


Salutations!



"Alain NEWS" a écrit dans le message de news:3f9bba06$0$228$
Je parle du nom qui apparait sous Modules lorsqu'on fait
"Affichage/Explorateur de projet".

Merci.
--
Otez la cle pour me répondre.
Avatar
Alain NEWS
Denis Michon wrote:
Bonjour Alain,

En VBA, pour renommer un module :

Tu peux remplacer "ThisWorkbook.Name" par le nom d'un classeur ouvert pour y modifier le nom d'un module

Renomme le module1 en "Toto" du classeur où est écrit la procédure

'--------------------
Sub RenommerModule()

With Workbooks(ThisWorkbook.Name)
ThisWorkbook.VBProject.VBComponents("Module1").Name = "Toto"
End With

End Sub
'--------------------

Cela donne :

Erreur d'exécution '1004' :
La méthode 'VBProject' de l'objet '_Workbook' a échoué

Où dois-je me placer pour lancer ce sub?
Merci

--
Otez la cle pour me répondre.

Avatar
Denis Michon
Bonjour Alain,


Avec ceci, tu peux le copier dans le module de ton choix. module standard ou module de feuille.

Si tu fais référence à un autre Classeur qui est ouvert , modifie ceci : ThisWorkbook.Name
pour le nom du classeur que tu désires.

Évidemment, tu dois t'assurer que le nom du module dans le Classeur renseigné existe vraiment.

'--------------------------
Sub RenommerModule()

With Workbooks(ThisWorkbook.Name)
.VBProject.VBComponents("Module1").Name = "Toto"
End With

End Sub
'--------------------------


Salutations!



"Alain NEWS" a écrit dans le message de news:3f9bf858$0$10417$
Denis Michon wrote:
Bonjour Alain,

En VBA, pour renommer un module :

Tu peux remplacer "ThisWorkbook.Name" par le nom d'un classeur ouvert pour y modifier le nom d'un module

Renomme le module1 en "Toto" du classeur où est écrit la procédure

'--------------------
Sub RenommerModule()

With Workbooks(ThisWorkbook.Name)
ThisWorkbook.VBProject.VBComponents("Module1").Name = "Toto"
End With

End Sub
'--------------------

Cela donne :

Erreur d'exécution '1004' :
La méthode 'VBProject' de l'objet '_Workbook' a échoué

Où dois-je me placer pour lancer ce sub?
Merci

--
Otez la cle pour me répondre.

Avatar
Alain NEWS
Denis Michon wrote:

Bonjour Alain,


Avec ceci, tu peux le copier dans le module de ton choix. module standard ou module de feuille.

Si tu fais référence à un autre Classeur qui est ouvert , modifie ceci : ThisWorkbook.Name
pour le nom du classeur que tu désires.

Évidemment, tu dois t'assurer que le nom du module dans le Classeur renseigné existe vraiment.

'--------------------------
Sub RenommerModule()

With Workbooks(ThisWorkbook.Name)
.VBProject.VBComponents("Module1").Name = "Toto"
End With

End Sub
'--------------------------


Salutations!



"Alain NEWS" a écrit dans le message de news:3f9bf858$0$10417$
Denis Michon wrote:

Bonjour Alain,

En VBA, pour renommer un module :

Tu peux remplacer "ThisWorkbook.Name" par le nom d'un classeur ouvert pour y modifier le nom d'un module

Renomme le module1 en "Toto" du classeur où est écrit la procédure

'--------------------
Sub RenommerModule()

With Workbooks(ThisWorkbook.Name)
ThisWorkbook.VBProject.VBComponents("Module1").Name = "Toto"
End With

End Sub
'--------------------

en détail je crée un module1 et un module 2


Je me met sur le 2 et insére le sub que tu me proposes.
J'exécute et obtiens le même message d'anomalie :-(
idem si je me met sur une feuille.

Cela donne toujours :
Erreur d'exécution '1004' :
La méthode 'VBProject' de l'objet '_Workbook' a échoué

Où dois-je me placer pour lancer ce sub?
Merci




--
Otez la cle pour me répondre.


Avatar
Denis Michon
Bonjour Alain,

A ) Les procédures faites et présentées ici sont des exemples. Il faut prendre le temps de les comprendre avant des les
appliquer... cela aide !

B ) Comment S'appelle le classeur où tu crées tes modules ?
Est-ce que tu as pris le temps de renseigner cette ligne de code convenablement ?


Si tes modules ne sont pas dans le classeur où tu écris cette procédure, tu dois remplacer "ThisWorkbook.Name" par le
nom du classeur où se trouvent les modules.
With Workbooks(ThisWorkbook.Name)

Autrement, je ne vois pas qu'est-ce qui pourrait empêcher ces lignes de code de s'exécuter !


Salutations!






"Alain NEWS" a écrit dans le message de news:3f9c08b4$0$27574$
Denis Michon wrote:

Bonjour Alain,


Avec ceci, tu peux le copier dans le module de ton choix. module standard ou module de feuille.

Si tu fais référence à un autre Classeur qui est ouvert , modifie ceci : ThisWorkbook.Name
pour le nom du classeur que tu désires.

Évidemment, tu dois t'assurer que le nom du module dans le Classeur renseigné existe vraiment.

'--------------------------
Sub RenommerModule()

With Workbooks(ThisWorkbook.Name)
.VBProject.VBComponents("Module1").Name = "Toto"
End With

End Sub
'--------------------------


Salutations!



"Alain NEWS" a écrit dans le message de news:3f9bf858$0$10417$
Denis Michon wrote:

Bonjour Alain,

En VBA, pour renommer un module :

Tu peux remplacer "ThisWorkbook.Name" par le nom d'un classeur ouvert pour y modifier le nom d'un module

Renomme le module1 en "Toto" du classeur où est écrit la procédure

'--------------------
Sub RenommerModule()

With Workbooks(ThisWorkbook.Name)
ThisWorkbook.VBProject.VBComponents("Module1").Name = "Toto"
End With

End Sub
'--------------------

en détail je crée un module1 et un module 2


Je me met sur le 2 et insére le sub que tu me proposes.
J'exécute et obtiens le même message d'anomalie :-(
idem si je me met sur une feuille.

Cela donne toujours :
Erreur d'exécution '1004' :
La méthode 'VBProject' de l'objet '_Workbook' a échoué

Où dois-je me placer pour lancer ce sub?
Merci




--
Otez la cle pour me répondre.


Avatar
Alain CROS
Bonjour.

Outils Options Sécurité Sécurité des macros... Sources fiables
Puis cocher Faire confiance au projet Visual Basic.

Alain CROS.