Discussion :

[Ysandor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

Ysandor, bidouilleur débutant

[Invité]

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

[Ysandor]

Bon ben je commence fort :

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.VBE.ActiveVBProject.Name = "MonProjet"

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

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.

[fred65200]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patbou]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ysandor]

@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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Const MonClasseur As String

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.