Savoir si un fichier est ouvert

mutzik

XLDnaute Barbatruc

• 12 Juillet 2007

• #2

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 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Juillet 2007

• #3

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

P

phoque.r

XLDnaute Occasionnel

• 12 Juillet 2007

• #4

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

 

Vote positif 0 Vote négatif

D

Danix

Guest

• 12 Juillet 2007

• #5

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

 

Vote positif 0 Vote négatif