[VBA-E]Arrêt d'exécution sur une requette d'enregistrement

Bonjour,
voila, j'ai un petit soucis que je ne m'explique pas et il faut absolument que je traite cela rapidement. Je vous explique :

j'ai deux fichiers Excel avec un prog VBA dans chaque.
Le premier fichier est ouvert et lorsque l'utilisateur appui sur un bouton dédié, j'ouvre le second fichier à partir du code (Workbooks.Open "toto.xls").
J'ai mis dans la procédure d'ouverture du second fichier (toto.xls) une boucle qui me permet de fermer tous les fichiers ouverts :

Code:

---

1 2 3 4 5

For Each w In Workbooks If w.Name <> ThisWorkbook.Name Then w.Close End If Next w

---

ce qui me permet d'avoir une requette d'enregistrement des modifications effectuées dans le premier fichier. Le problème, c'est que mon programme s'arrête dans la boucle, après enregistrements des modifications du premier fichier et cela ne m'arrange pas du tout puisque j'ai du code qui doit s'enchaîner derrière.

Quelqu'un pourrait m'aider, SVP

Merci

oui si tu fermes l'appelant le code va s'arrêter

Merci pour ta réponse, mais comment faire alors ?

En solution de dépannage, j'ai mis un bouton dans le second fichier appelé, afin de pouvoir relancer le code mais c'est pas très sioux !

Tiens pendant que j'y suis, comment fait-on pour masquer et afficher ce bouton (j'utilise une commande .visible= False/True mais il y a des fois où le bouton n'est plus trouvable pour une raison mystérieuse, donc plantage).

Oh grand Maître VBA, viens à mon secours.

pour le bouton je n'en sais rien vu la richesse des informations fournies :P

Pour ton appel, il faut bricoler une usine à gaz (un atelier tout au moins) du style, dans ton code de bouton

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() Application.Workbooks.Open "d:\svg\toto.xls" Application.Run "toto.xls!Appel" End Sub

---

et dans le classeur appelé

Code:

---

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

Sub Appel()   Application.OnTime Now + TimeValue("00:00:15"), "essai"   End Sub   Sub essai() Dim w As Workbook For Each w In Workbooks If w.Name <> ThisWorkbook.Name Then w.Close End If Next w MsgBox "coucou" End Sub

---

Génial !!! :idea:

Merci pour ta réactivité, tu m'enlèves une sacré épine du pied...


:lol: