Discussion :

[Invité]

Bonjour à tous!

Je cherche à automatiser le lancement de macros contenus dans d'autres classeurs excel à travers un string. Pour être plus clair, voici un bout de code:

Code :

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

1
2
3
4
Dim Str As String
Str = NomFichier + "!" + "test_MRP"
'Là Str vaut un string du genre NomdunFichier.xls!NomduneMacro
Call Str

Il me faudrait donc une fonction capable d'interprêter "Str" comme du code et non un string.

Quelqu'un a une idée?
Merci!

[SilkyRoad]

bonjour

tu peux tester ce type de procedure

Code :

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

1
2
3
Dim Str As String
Str = NomFichier + "!" + "test_MRP"
Application.ExecuteExcel4Macro "RUN(""" & Str & """)"

bonne journée
michel

[Invité]

C'est ça merci!

Je viens juste de remarquer que le focus reste sur le nouveau fichier alors je viens de bousiller toutes mes données...
ça m'apprendra à pas sélectionner la bonne feuille avant d'écrire...

Merci!

[edit]En fait ça ne marche pas... Mais ce code là marche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'1) Ouvrir le classeur où se trouve la macro
Workbooks.Open (NomCible)
 
'2) Application.Run "'NomFichier.xls'!NomMacro"
Application.Run (NomCible + "!MRP_tot")
Workbooks(NomFichierMRP).Activate
Sheets("Principale").Select
Cells(compteur, 4).Value = "Ok"
compteur = compteur + 1
 
'3) Fermer le classeur en sauvant
Workbooks(NomCible).Close Savechanges:=True

[/edit]