L
LITOUX
Guest
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.
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.