Discussion :

[zoumzoum59]

Bonjour à tous

Je voudrais savoir s'il est possible de ne pas faire apparaitre la fenetre qui indique que le fichier est actuellement disponible en acces normal qui s'ouvre apres avoir ouvert un fichier en lecture seule sur un réseau (fichier déja ouvert par quelqu'un d'autre) .

La gestion des erreurs ne fonctionne pas puis ce n'est pas une erreur.

J'ai essayé d'utiliser sendkey pour fermer la fenetre mais apparemment ça ne fonctionne pas, car le sendkeys ne s'execute pas au bon moment et n'a aucune action sur la fenetre ouverte.Car la fenetre s'affiche apparemment apres l'execution de la procedure.

Alors si quelqu'un peut me donner un coup de pouce.

Merci d'avance

[ouskel'n'or]

Car la fenetre s'affiche apparemment apres l'execution de la procedure

Je n'ai pas tout compris mais as-tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.displayAlerts = false 'en début de cette procédure

A+

[zoumzoum59]

Salut ouskel'n'or

Merci

Car la fenetre s'affiche apparemment apres l'execution de la procedure

C'est à dire que la fenetre s'affiche une fois que ma macro à finit de s'executer.
A croire qu'excel attent que la macro a fini son execution pour afficher la fenetre.

Et comme je ferme mon classeurs dans la macro j'ai peur que si je met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Application.displayAlerts = false 'en début de cette procédure

Je n'ai pas de moyen de lui redonner la valeur True

J'espere avoir été plus clair

[ouskel'n'or]

Quel classeur fermes-tu ? celui contenant la macro ?
Si tu le fermes, quel inconvénient à ne pas laisser DisplayAlerts à false ?
Précise ce que tu fais
A+

[zoumzoum59]

oui c'est bien le classeur qui contient la macro que je ferme.

Mais le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.displayAlerts = false 'en début de cette procédure

est actif à quel niveau?

Au niveau du classeur ou d'excel.

Car si c'est au niveau d'excel les messages vont etre désactivé pour les autres classeurs ouverts.

Mais je passe peut etre à coté de quelque chose ou alors je n'ai pas bien capté toute la phylosophie du systeme avec les differentes hierarchies.

En esperant que je fasse bien comprendre.

[ouskel'n'or]

Application.displayAlerts est actif à quel niveau?

Au niveau de la macro et des macros appelées par celle-ci.
A+

[zoumzoum59]

C'est à dire qu'avant la fin de la macro on est pas obligé de remettre le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.displayAlerts = True

Il repasse à True obligatoirement apres l'execution de la macro?

[SfJ5Rpw8]

bon on reviens au début... comment ouvre tu ton classeur ..? code...?

[zoumzoum59]

Bonjour bbil

Voila le code qui ouvre mon fichier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
fichier = "Z:\Données temps fab\Fichier de saisie\Données combobox.xls"
Application.ScreenUpdating = False
Workbooks.Open fichier

[SfJ5Rpw8]

si tu n'as pas à le modifier essai d'ouvri le fichier directement en lecture seule...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Workbooks.Open fichier, , True

[zoumzoum59]

ok Merci bbil

il doit etre modifier,mais uniquement par la premiere personne qui va l'ouvrir sur le réseau.
Par contre avec ton code je vais pouvoir tester si le fichier et en lecture seule et donc l'ouvrir avec ton code pour une deuxieme ouverture.

Par contre peut on tester le fichier en lecture seule sans avoir à l'ouvrir?

Si oui comment?

Merci

[SilkyRoad]

bonsoir

Par contre peut on tester le fichier en lecture seule sans avoir à l'ouvrir?

j'espère que ces liens pourront t'aider

Excel97
http://support.microsoft.com/default...;EN-US;q138621

Excel2000
http://support.microsoft.com/kb/213383/EN-US/

Excel2002
http://support.microsoft.com/kb/291295/EN-US/




bonne soirée
michel

[zoumzoum59]

Merci SilkyRoad

Je suis pas tout à fait bilingue mais je m'y suis repérer quand même.

En fin de compte c'était pas si dure.

Ca marche au poil je l'ai testé sur le réseau.

Encore merci à tous.