alerte si fichier ouvert

[sri75]

Bonjour je dois travailler avec deux fichers excel ficher A et fichier B

A l'intérieur de fichier A j'ai une boite qui permet d'aller ouvrir mon fichier B.

Je voudrais installer une alerte quelconque dans une cellule de A qui m'indique que B est ouvert afin d'éviter que je quitte A en laissant B ouvert.

Merci pour votre aide.

 

[guitarde]

Ton ton fichier A, tu peux ajouter une macro Auto_Close qui vérifie si le fichier B est ouvert. Tu pourrais aussi demander si tu veux le fermer / et le sauvegarder...


If (Dir('B.xls') <> '') Then

msgbox('Le fichier B est ouvert')


End if


Salutations
Eric

 

[jepi67]

Bonjour Guitarde et à tous les autres,

Ta solution m'intéresse également. mais est-il possible d'écrire la commande de façon à fermer n'importe quels fichiers ouverts ?

Dans le genre 'If (Dir('???.xls') <> '') Then

Application.Run 'Auto_Close' ??

Mais comment s'écrirait le code pour Auto_close ?

Merci et bonne programmation à vous

JP

 

[2passage]

Bonjour,

il me semblait que 'dir' vérifie l'existence du fichier dans le chemin spécifié mais je me trompe peut être...
j'utiliserai plutot la collection workbooks pour faire ca

Private Sub CommandButton1_Click()
For Each class In Workbooks
class.close
Next
End Sub

++