Discussion :

[jazziestan]

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 :

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

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.

[ouskel'n'or]

Code :

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

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 ?

[jazziestan]

test effectué
résultat : POSITIF

MERCIIIIIIIIIIIIIIIIIII

[ouskel'n'or]

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