ACCES FICHIER

[LITOUX]

Bonjour et bonne année 2006 !

1 - Ouvrir un fichier uniquement en lecture seule.

Lorsque j'ouvre un fichier a l'aide la macro ci-dessous :

Sub Macro1()
ChDir 'C:'
Workbooks.Open FileName:='C:\\FT\\BDD.xls'
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
End Sub

... EXCEL m'affiche le message suivant ' Voulez vous enregistrer les modifications avant de changer l'état du fichier ? OUI - NON

je voudrais ne pas avoir ce message et que la réponse soit par défaut 'NON' Comment faire ?

2 - Fichier en réseau. Je voudrais créer la macro suivante qui fasse ce qui suit :
- Tester si Fichier 'C:\\FT\\BDD.XLS' est déjà ouvert par un autre utilisateur.
* Si Oui alors Message N°1
* Si non alors ouvrir fichier.

Merci d'avance.

 

[Bernard_XLD]

Bonjour Litoux

1-un application.displayalerts=false avant le changefileaccess devrait convenir, tu peux le repasser à true aprés
2-un Workbooks(nomclasseur).ReadOnly te dira si le fichier est ouvert en lecture seule et te permettra d'agir en conséquence
à coupler avec application.displayalerts pour éviter le message d'ouverture si le fichier est déja ouvert ailleurs et avec un application.screenupdating=false pour masquer les manipulations pour l'utilisateur

Cordialement, A+