Discussion :

[Sebphyto]

Bonjour,

Je vous expose mon interrogation:

J'ai 2 classeurs ouverts (Classeur A et B)

Dans classeur A, une procedure (macroA) se lance, en cours de celle-ci, un usfA apparait puis après click sur un bouton il m'ouvre un usfB dans le classeur B, une autre macro s'effectue, puis en appuyant sur le bouton "quitter" de usfB, il enregistre, ferme l'usfB et ferme le classeurB.....(tout ça c ok)

Et là est mon problème :confused:

Je souhaiterai qu'après la fermeture du classeur B, il revienne dans la procedure (MacroA) afin de finir celle-ci, là où il s'est arrête (c-à-d au lancement de usfA)

Si vous avez des idées

A+

Ps: ce sujet regroupe une autre discussion, j'ai ouvert ce nouveau post afin de dissocier la demande initiale de ce sujet : ICI

[Invité]

Bonjour,

quand tu dis à ton application de quitter le classeur sur lequel elle s'exécute tu arête la macro (on appel ça un suicide)!

il faut que la macro qui appel la sous macro du classeur b se charge de refermer le classeur.

Code Classeur A :

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

1
2
3
4
5
6
Sub Test()
Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\B.xlsm")
 Application.Run wb.Name & "!AfficheUserForm2"
 wb.Close False
End Sub

Code Classeur B :

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

1
2
3
Public Sub AfficheUserForm2()
UserForm1.Show vbModal
End Sub

Code Bouton quitter classeurB UserForm1 :

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

1
2
3
4
Private Sub Quitter_Click()
ThisWorkbook.Save
Me.Hide
End Sub

on en parle pas dans les journaux mais les macros suicidaires ça existe la preuve!

[Sebphyto]

Bonjour rdurupt,

Ravi de te retrouver dans un de mes nombreux sujets...

Avant de poser cette question, j'avais essayer d'enregistrer le classeur B.xls en macro complémentaire (ClasseurB.xla), Ensuite, j'ai installé la macro complémentaire dans Excel (Outils/Macros complémentaires...), et modifié dans le classeur A.xls la macro d'appel pour qu'elle fasse référence à la macro complémentaire : Application.Run "ClasseurB.xla!Userform2".

En répondant à ce post, tu m'éclaires moi et tu résouds un post d'une personne...Je t'en remercie

C niquel

Seb

Ps: je t'invite si tu le veux à regarder ce post que j'ai ouvert (((ICI))) car j'ai du mal à voir ce que je dois faire....Le titre ne correspond plus à ma dernier question posée.....
Merci d'avance