Macro Workbook_open et Workbook("x.xls").Close

Bonjour à tous,
Je vous expose mon problème:
Dans un fichier Excel a.xls, j'ai fait une macro ouvrant un autre fichier Excel b.xls avec la macro suivante:

Code:

---

1 2 3

On Error Resume Next Workbooks.Open Filename:=ActiveWorkbook.Path & "\b.xls" On Error GoTo 0

---

Dans le fichier b.xls, j'ai une macro Workbook_Open qui doit fermé a.xls et continuer son petit bonhomme de chemin (ouvrir une UserForm) avec le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_Open()   Dim Wb As Workbook On Error Resume Next Set Wb = Workbooks("a.xls") On Error GoTo 0 Application.DisplayAlerts = False If Not Wb Is Nothing Then Wb.Close savechanges:=False Application.DisplayAlerts = True Menu.Show End Sub

---

Mon souci, c'est qu'après la commande Wb.Close savechanges:=False, la macro s'arrête :?
Après moult réflexion, j'ai compris que, comme le fichier maître se fermait, la macro s'arrêtait en même temps.
Auriez-vous une solution à me proposer pour éviter cela et pour permettre à la macro du fichier ouvert de reprendre la main (si je puis m'exprimer ainsi ...)
Grand merci par avance pour votre aide.

Bonjour

Citation:

---

pour permettre à la macro du fichier ouvert de reprendre la main (si je puis m'exprimer ainsi ...)

---

Ben --->> Ne pas la fermer tant que ses instructions n'ont pas été exécutées.

Salut,

une idée à creuser :

- lancer le classeur B depuis une tâche planifiée, créée par le fichier A

Merci beaucoup pour vos réponses ultra-rapides !
Unparia: le problème, c'est que le fichier b n'est composé que de UserForms et que l'utilisateur n'est pas sensé sortir de ces UserForms. Il ne voit rien de ce qui se passe derrière ... et le fichier est toujours "sous macro"
Jean-Philippe: là, c'est sans doute une solution intéressante mais je n'ai aucune idée par où commencer :-). C'est sans doute commander Windows par VBA mais là, ça passe largement au-dessus de mes compétences.:oops:

Malgré mes réticences à appliquer la méthode de Jean-Philippe André, j'ai quand même utilisé quelque chose de similaire.

Voici ce que j'ai pondu et qui semble fonctionner:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub bascule()   fichBatch = "c:\ouvre_Cars.bat" lechemin = ActiveWorkbook.Path lefichier = "XXX.xlsm"   Open fichBatch For Output As #1 Print #1, "cd " & lechemin Print #1, "start " & lefichier Close #1   Shell "cmd /c c:\ouvre_Cars.bat"   Application.DisplayAlerts = False ThisWorkbook.Close   End Sub

---

J'ai utilisé Print #1 au lieu de Write #1 pour éviter que des guillemets soient ajoutés au début et à la fin des lignes.

Comme le fichier "XXX.xlsm" contient une macro Workbook_Open, celle-ci fonctionne correctement et le fichier appelant se ferme sans arrêter la macro en cours dans XXX.xlsm.

Tout commentaire sur d'éventuels risques avec cette procédure est bienvenu ! :). Par exemple, je recrée le fichier batch à chaque fois. Cela peut-il poser un problème dans le futur ?

En tout cas, merci pour vos aides.

Bon week-end