Renomer un tableur à partir d'une macro

Bonjour,

En deux mots mon problème est que j'ai crée une macro qui en appele une autre. Dans cet appel il y a donc le nom du tableur qui est entré:

Code:

---

Application.Run "ogtabxl_v262_blue_macro.xls!Remplissage_Importer2"

---

Seulement je peux être amené assez régulièrement à renommer ce tableur et ma macro n'est alors plus fonctionelle car elle n'appelle plus le bon tableur.

J'ai donc pensé à faire une macro qui renomerai le tableur et modifierai la macro concernée.
Mais j'ai deux problème, déja comment rentré dans la macro le nom que l'on veut donner au tableur et deuxièmement comment fait-on pour modifier une macro?

Voila merci d'avance pour vos réponses avisées.:D

Ysandor, bidouilleur débutant

Bonjour

Tu veux écrire dans une macro ?
Alors la lecture de cet article : http://silkyroad.developpez.com/VBA/VisualBasicEditor/ de Silkyroad est pour toi.

Starec

Bon ben je commence fort :king::

Je commence à lire et je trouve ce qui me parait être la procédure pour renomer le classeur:

Citation:

---

Modifier le nom du projet (Le nom par défaut est "VBAProject").

Code:

---

Application.VBE.ActiveVBProject.Name = "MonProjet"

---

---

Donc je teste en créant une macro => "macro1" dans "Classeur1"
Voila la procédure:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 30/10/2007 par '   ' Application.VBE.ActiveVBProject.Name = "MonProjet" End Sub

---

Et quand je l'execute j'obtiens le message d'erreur suivant:

Citation:

---

Erreur d'exécution '1004':

La méthode 'VBE' de l'objet '_Application' a échoué

---

Voila j'ai un peu cherché et j'en suis arrivé à la conclusion que je comprends rien.:yaisse2:

bonjour Ysandor,
je crois que c'est ce que tu recherches

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Public Const MonClasseur As String = "ogtabxl_v262_blue_macro.xls" 'la variable au-dessus se modifie par macro, elle doit rester ligne 1 'sinon remplace le 1 de la ligne 24 par le bon n° de ligne 'adapte cette variable Public Const Racine As String = "C:\Users\XXXX\Desktop\" ' garde l'antislash \ final Sub TaMacro() 'remplace 'Application.Run "ogtabxl_v262_blue_macro.xls!Remplissage_Importer2" 'par Application.Run "'" & MonClasseur & "'!Remplissage_Importer2" 'j'ai ajouté les ' si tu saisies un nom avec des espaces End Sub Sub Renommer() 'pour renommer le classeur, il faut qu'il soit fermé On Error Resume Next 'on enregistre et on ferme (si ouvert) Workbooks(MonClasseur).Close True On Error GoTo 0 AncienNom = Racine & MonClasseur NouveauNom = InputBox("Donnez un nouveau nom au classeur " & MonClasseur, "Renommer", MonClasseur) 'on ajoute l'extension si non saisie, à ajuster pour Excel 2007 If Not Right(NouveauNom, 4) = ".xls" Then NouveauNom = NouveauNom & ".xls" 'on modifie la première ligne du Module1, adapte le nom du module ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.ReplaceLine _ 1, "Public Const MonClasseur As String = """ & NouveauNom & """" 'on renomme le classeur NouveauNom = Racine & NouveauNom Name AncienNom As NouveauNom End Sub

---

cordialement

bonjour

Citation:

---

Citation:
Modifier le nom du projet (Le nom par défaut est "VBAProject").

Code:

---

1 2	Application.VBE.ActiveVBProject.Name = "MonProjet"

---

---

ds la feuil xl option/macro/securité/ onglet : editeurs approuvés
choisir : faire confiance au projet visual basic

@patbou: Merci la macro s'execute à présent même si elle n'a aucun effet notable. ;)

@fred65200: J'ai quelques questions.

Déja quelle est la diifférence entre

Code:

---

Public Const MonClasseur As String

---

et

Code:

---

Mon Classeur

---

car tu as l'air d'utiliser l'un ou l'autre à des moments biens précis et je n'arrive pas à voir si ils désignent la même variable "MonClasseur" ou si c'est deux variables différentes dont une avec un nom à ralonge.

bonjour Ysandor

La constante est MonClasseur, sans espace
Probablement une erreur de copier coller et/ou saut de ligne.

Cordialement

Bonjour,


Dsl je t'es induit en erreur en tapant ma question j'ai mis un espace sans m'en rendre compte.

Quelle est la diifférence entre

Code:

---

Public Const MonClasseur As String

---

et

Code:

---

MonClasseur

---

car tu as l'air d'utiliser l'un ou l'autre à des moments biens précis et je n'arrive pas à voir si ils désignent la même variable "MonClasseur" ou si c'est deux variables différentes dont une avec un nom à ralonge.
En gros si ce n'est pas un nom de variable, que signifie "Public Const" et "As String"

re:

le fait de déclarer Public la constante , permet de l'utiliser à l'intérieur de ton projet.
Je crois que Const MonClasseur As String = "blabla" est utilisable uniquement dans le module dans lequel la constante est déclarée.

on se croise

Public Const MonClasseur... = Déclaration de la constante MonClasseur
ensuite il est plus facile de toujours appeler MonClasseur, plutôt qu'un nom à rallonge qui dans ton exemple change.

Je suis certain que tu déclares des variables de type
Dim i as integer
Dim C as Range

le principe reste le même avec les Constantes
ok?