Discussion :

[Sécateur]

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 :

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

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 :

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

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.

[unparia]

Bonjour

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.

[Jean-Philippe André]

Salut,

une idée à creuser :

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

[Sécateur]

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.

[Sécateur]

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 :

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