OVH Cloud OVH Cloud

Enchîner des macros!!!

1 réponse
Avatar
louboul
Bonjour,

Dans mon application, j'utilise divers boutons qui font ex=E9cuter des
macros;
ce que je cherche =E0 faire:
- aller dans 1 fichier et cliquer sur 1 bouton, puis lorsque cette
macro a =E9t=E9 ex=E9cut=E9e,
encha=EEner sur une autre macro d' un autre fichier.

Dans mon exemple, la 1=E8re macro est =E9x=E9cut=E9e, mais ne passe pas =E0=
la
seconde !!!!

Sub CalculeJanvier()
' Effectue les Calculs sur tous les Fichiers

' PLANNINGS MENSUELS
Application.Run "SommaireGestion.xls!AppelPlanningMensuels"
Application.Run "Plannings.xls!OuvrirJanvier"
Application.Run "Plannings.xls!CalculeTout"
Application.Run "Plannings.xls!QuitterPlanningJanvier"
' CALCULE LES HEURES
Application.Run "SommaireGestion.xls!OuvrirHeuresMensuelles"
Application.Run "HeuresMensuellesRC.xls!CalculeHeuresJanvier"
Application.Run "HeuresMensuellesRC.xls!RetourAccueil"
Application.Run _
Comment puis je faire pour encha=EEner ces 2 macros??

Merci

1 réponse

Avatar
louboul
On 6 fév, 10:10, "louboul" wrote:
Bonjour,

Dans mon application, j'utilise divers boutons qui font exécuter des
macros;
ce que je cherche à faire:
- aller dans 1 fichier et cliquer sur 1 bouton, puis lorsque cette
macro a été exécutée,
enchaîner sur une autre macro d' un autre fichier.

Dans mon exemple, la 1ère macro est éxécutée, mais ne passe pas à la
seconde !!!!

Sub CalculeJanvier()
' Effectue les Calculs sur tous les Fichiers

' PLANNINGS MENSUELS
Application.Run "SommaireGestion.xls!AppelPlanningMensuels"
Application.Run "Plannings.xls!OuvrirJanvier"
Application.Run "Plannings.xls!CalculeTout"
Application.Run "Plannings.xls!QuitterPlanningJanvier"
' CALCULE LES HEURES
Application.Run "SommaireGestion.xls!OuvrirHeuresMensuelles"
Application.Run "HeuresMensuellesRC.xls!CalculeHeuresJanvier"
Application.Run "HeuresMensuellesRC.xls!RetourAccueil"
Application.Run _
Comment puis je faire pour enchaîner ces 2 macros??

Merci


le problème est résolu !! j'avais mal écrit mon code

merci d'avoir bien voulu me lire!!

a++