Discussion :

[VBBBA]

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

[SfJ5Rpw8]

c'est le moment d'apprendre à ce servir de Debug.print..., cette instruction permet d'ecrire un message dans fenêtre exécution ( CTRL G..)

Code :

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

1
2
3
4
 
 For Each WB In Workbooks
   Debug.print "Test Classeur :[" & WB.Name & "]"
    If WB.name = "aaaa.xls" Then

ainsi tu pourra voir si le classeur aaaa apparaît dans la liste des classeurs ouvert..

[VBBBA]

je ne veux pas faire aparaitre un msgbox.
je veux que ce soit dans le procédure.ctou

[AlainTech]

Dis, tu veux bien écouter ce qu'on te dit?

bbil n'a, nulle part, fait mention d'un MsgBox.

Et quand bien même, le but c'est que tu voies si ton nom de fichier est correct.
Quand tout fonctionne bien, tu supprimes tout ce qui sert au débuggage.

[Catbull]

Une autre méthode pour voir si un classeur est déjà ouvert, est de tester une propriété relative au classeur. Par exemple le nom de ce classeur. Il faut intercepter l'erreur dans le cas où le classeur n'est pas ouvert. Ce qui donne :

Code :

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

1
2
3
4
5
Public Function ClasseurOuvert(NomClasseur As String) As Boolean
    On Error Resume Next
 
    ClasseurOuvert = Application.Workbooks(NomClasseur).Name <> vbNullString
End Function

La fonction ClasseurOuvert renvoie True si le classeur est ouvert, False dans le cas contraire.

[VBBBA]

et comment utiliser cette fonction dans un code?
et cette fonction peut elle tester un fichier qui est dans un autre classeur?
(on se suit a ce que je vois...)