test ouverture fichier

Bonjour,

Voici la situation, je voudrais savoir si un fichier est déjà ouvert ou pas de façon à l'ouvrir s'il ne l'ai pas et à ne rien faire s'il est ouvert.

J'utilise le code suivant (qui ne fonctionne pas.............)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim n As Integer Dim testouv As Boolean   testouv = False For n = Workbooks.Count To 1 Step -1 If Workbooks(n).Name = "masque.xls" Then testouv = True Exit For End If Next n If tesouv = False Then Workbooks.Open Filename:="D:\essais\masque.xls" End If

---

résultat, que le fichier soit déjà ouvert ou pas il s'ouvre........... et j'ai le beau message excel qui me signale que mon fichier est déjà ouvert..........

le but est de ne pas avoir se message............

je ne comprends pas pourquoi mon code ne fonctionne pas.

:?

Code:

---

1 2 3 4 5

Dim testouv As Workbook On Error Resume Next Set testouv = Workbooks("masque.xls") if testouv is nothing then Workbooks.open Chemin & "masque.xls" On error goto 0

---

Tu peux tester pour moi ?

test effectué
résultat : POSITIF

MERCIIIIIIIIIIIIIIIIIII:D

Un petit clic sur :resolu: peut-être, juste pour dire que c'est résolu... Faut toujours dire quand c'est résolu ;)
(Bouton à gauche sous cette fenêtre)