Savoir si un fichier est ouvert

[phoque.r]

Bonjour

comment savoir si un fichier Excel est ouvert? Car lorsque je fais

workbooks("...").close

ca ne fonctionne pas si le fichier est ouvert

merci
phoque.r

 

[mutzik]

Re : Savoir si un fichier est ouvert

bonjour focker,
je pense que déja au début le fichier, s'il est ouvert devrait te mettre un message qui l'indique et te demande si tu veux l'ouvrir en lecture seule, non ?

 

[Pierrot93]

Re : Savoir si un fichier est ouvert

Bonjour Phoque, Bertrand

comprends pas trop bien ta question, si le ficher est ouvert et que tu lui envois l'instruction "Close", il se ferme...sinon un message d'erreur est renvoyè...

Dans le nom de ton fichier as tu bien mis l'extension ".xls" si ton dossier a déjà été enregistré...

sinon bloucler sur tous les classeurs ouverts :

Sub test()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = "nomdetonfichier.xls" Then MsgBox "fichier ouvert"
Next wb
End Sub

bon après midi
@+

 

[phoque.r]

Re : Savoir si un fichier est ouvert

ok, merci pierrot 93, je vais adapter ça.
C'est que ma macro de fermeture ferme le fichier où elle se trouve, mais ferme aussi le fichier annexe s'il est ouvert.
Je vais me débrouiller avec ta macro

phoque.r

 

[Danix]

Re : Savoir si un fichier est ouvert

Bonsoir Phoque r, Le Forum,

Pour ma part, j'utilise la fonction Activeworkbook.readonly. si le résultat de celle-ci me retourne la valeur True, c'est que le fichier est utilisé par une tierce personne.

En espérant avoir répondu à ta questions

Slts