Version imprimable
Bonjour,
Mon problème est simple à énoncer, dans un document excel, j'ai une macro qui recherche tous les classeurs excel d'un répertoire donné, les ouvre, fait un traitement dessus et les ferme. Mon soucis est que, pour chacun de ses documents, j'ai besoin d'executer une des macros qu'ils contiennent.
Comment puis-je faire cela ? J'ai déjà regardé à droite et à gauche mais je n'ai rien trouvé.
Merci d'avance.
Griftou.
Regarde à Run dans l'aide en ligne, c'est très bien expliqué
Code:Application.run("Fichier.xls!TaMacro")
Où est le lien ça m'interesse ça ? ;) Au moins j'arrêtrai de vous embêter ;)Citation:
Regarde à Run dans l'aide en ligne, c'est très bien expliqué
faut que la macro soit dans "module" dans l'explorateur de projet, sinon ça march epas je crois car j'ai eu un problème comme ça mais résolu ici :lol:Citation:
Application.run("Fichier.xls!TaMacro")
Le lien ? C'est :f1: Tu n'as pas la touche :f1: ? En dessus du 2 de ton clavier si tu en as un :aie:Citation:
Envoyé par Aeltith
Rebonjour,
J'ai enfin pu tester cette petite ligne de code et j'obtiens une erreur.
Il ne trouve pas la macro a exécuté. J'ai une idée mais j'espère que c'est tout sauf ça ! Cette macro est déclaré en private. Dites moi que c'est pas ça please :oops:
Dites moi qu'il faut juste ajouter qqch dans la syntaxe pour préciser où la trouver (bien qu'elle soit directement dans thisworkbook).
Griftou.
Teste ça
où NomFich est le nom du fichier contenant la macro Workbook_OpenCode:Application.Run "NomFich.xls!Thisworkbook.Workbook_Open"
Je l'ai fait, ça fonctionne ;)
Psst - Profites-en pour taguer Résolu ton autre discussion ;)
C'est avec regret que je vous annonce que ça ne marche pas ^^
La macro s'appelle "macrosave" (oui je sais, j'fais dans l'originalité :aie:).
J'ai donc :
(qui se trouve juste après le open dont on parlait dans l'autre topic)Code:Application.Run (.FoundFiles(I) & "!Thisworkbook.macrosave")
Dans la boite du message d'erreur, je peux voir que le nom du fichier est bien correct et est bien suivi ce qui est écrit dans la ligne de code.
Dans l'exemple que tu m'as donné, quelle est la visibilité de ta macro "Workbook_Open" ? Ici, macrosave est private. Je soupçonne que ce soit le problème mais si c'est le cas, j'suis foutu.... faudra que je change manuellement la visibilité dans des centaines de documents. Ce serait franchement la merde.
Griftou.
La macro Workbook_Open est effectivement Privatemais ça ne l'empêche pas de fonctionner.Citation:
Private Workbook_Open()
Ton problème ? Si tu as de nombreux fichiers à modifier, je te souhaite un bon week-end :aie:
Il n'est en effet pas bien malin de placer des macros dans Thisworkbook si elles ne gèrent pas un événement ou un autre du classeur lui-même.
Déplace ta macro dans un module standard -> Insertion -> Module, dans l'éditeur VBA
Là, tu pourras la lancer depuis la macro de ton 1er classeur avec le premier code que je t'ai passé. En faisant ça, la macro qui te sert à ouvrir les classeurs passera la main à la macro "macrosave" avant de se poursuivre.
Mais laisse le temps à ton classeur de s'ouvrir (DoEvents) et déplace Application.enableEvents = True afin que la macro puisse s'exécuter
Bon app'Code:
2
3
4
5
6
7
8
Comme j'm'y attendais, il ne trouve pas la macro.
Mais je n'ai toujours pas compris la cause du problème...
Est-ce le fait qu'elle soit déclarée avec un private ou bien est-ce son emplacement ?
Griftou.
Si tu as lu mon précédent post, tu devrais en déduire que c'est son emplacement ;) et puis :( quand même :mouarf: