salut a tous les gars.

jais un pb trés simple(encore une fois).
je veux tester si un fichier est ouvert ou pas.

mon code ouvre directement ce fichier à la base mais parfois lorsqu'il est deja ouvert, me pose une errer du type qu'il ya un fichier deja ouvert a ce nom.
donc jai commencé à réfléchir à un test qui fait:
si fichier nommé "aaaa.xls" est ouvert on continue
sinon on ouvre ce meme fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
 
Dim WB As Workbook
    For Each WB In Workbooks
    If WB.name = "aaaa.xls" Then
    Exit For
    Else
    Workbooks.Open Filename:=A & N, UpdateLinks:=0, ReadOnly:=True
     Exit For
    End If
Next WB
A et N sont des variables string que j'ai prédéfini au préalable pour indiquer le chemin du fichier et le nom aaaa du fichier xls.

mais ca pas lair de marcher.
il me l'ouvre a chaque fois en ecrasant l'ouvert....
jy suis pas loin alors merci de votre aide. bonne soirée