Discussion :

[thierry27]

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 :

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

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

[bidou]

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

[thierry27]

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.

[bidou]

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

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

Code :

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

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 :

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

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

[thierry27]

Génial !!!

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