bonjour,
j'utilise cette boucle pour ouvrir un classeur en réseau, qui sert à
plusieurs personnes.
1. je souhaiterais que la tentative d'ouverture ne se fasse que 10 fois,
sinon un message affiche que le classeur est inutilisable en ce moment, et
l'on doit réessayer un peu plus tard.
2. Application.ScreenUpdating = False ne fonctionne, l'écran affiche malgré
tout le classeur, comment l'en empêcher.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI [mvp]
bonjour tu déclares une variable dim c as integer dans la boucle do loop c = c + 1 if c = 10 then msgbox " çà fait 10 fois, ras le bol" exit do end if
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer Access http://www.mpfa.info
"daniel" a écrit dans le message de news:
bonjour, j'utilise cette boucle pour ouvrir un classeur en réseau, qui sert à plusieurs personnes. 1. je souhaiterais que la tentative d'ouverture ne se fasse que 10 fois, sinon un message affiche que le classeur est inutilisable en ce moment, et l'on doit réessayer un peu plus tard. 2. Application.ScreenUpdating = False ne fonctionne, l'écran affiche malgré tout le classeur, comment l'en empêcher.
Do Until ActiveWorkbook.ReadOnly = False ActiveWorkbook.Close Workbooks.Open Filename:= _ CheminN Loop Application.ScreenUpdating = True
Merci par avance.
bonjour
tu déclares une variable
dim c as integer
dans la boucle do loop
c = c + 1
if c = 10 then
msgbox " çà fait 10 fois, ras le bol"
exit do
end if
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
Access http://www.mpfa.info
"daniel" <novice@neuf.fr> a écrit dans le message de news: u1XFfDR9GHA.3396@TK2MSFTNGP04.phx.gbl...
bonjour,
j'utilise cette boucle pour ouvrir un classeur en réseau, qui sert à plusieurs personnes.
1. je souhaiterais que la tentative d'ouverture ne se fasse que 10 fois, sinon un message affiche que le classeur est inutilisable
en ce moment, et l'on doit réessayer un peu plus tard.
2. Application.ScreenUpdating = False ne fonctionne, l'écran affiche malgré tout le classeur, comment l'en empêcher.
bonjour tu déclares une variable dim c as integer dans la boucle do loop c = c + 1 if c = 10 then msgbox " çà fait 10 fois, ras le bol" exit do end if
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer Access http://www.mpfa.info
"daniel" a écrit dans le message de news:
bonjour, j'utilise cette boucle pour ouvrir un classeur en réseau, qui sert à plusieurs personnes. 1. je souhaiterais que la tentative d'ouverture ne se fasse que 10 fois, sinon un message affiche que le classeur est inutilisable en ce moment, et l'on doit réessayer un peu plus tard. 2. Application.ScreenUpdating = False ne fonctionne, l'écran affiche malgré tout le classeur, comment l'en empêcher.
Do Until ActiveWorkbook.ReadOnly = False ActiveWorkbook.Close Workbooks.Open Filename:= _ CheminN Loop Application.ScreenUpdating = True
Merci par avance.
daniel
Merci. je ne pourrais tester ça que lundi, je n'ai pas de réseau chez moi, ou alors, y a t'il moyen de faire croire à excel que le fichier est en lecture seule. Enfin merci pour cette aide pour EXCEL... ;-)))
Merci.
je ne pourrais tester ça que lundi, je n'ai pas de réseau chez moi, ou
alors, y a t'il moyen de faire croire à excel que le fichier est en lecture
seule.
Enfin merci pour cette aide pour EXCEL... ;-)))
Merci. je ne pourrais tester ça que lundi, je n'ai pas de réseau chez moi, ou alors, y a t'il moyen de faire croire à excel que le fichier est en lecture seule. Enfin merci pour cette aide pour EXCEL... ;-)))
daniel
ok, j'ai mis le fichier en lecture via l'explorateur. Impeccable. Encore merci.
ok, j'ai mis le fichier en lecture via l'explorateur.
Impeccable.
Encore merci.
