Tester si un fichier est ouvert sur mon PC

Bonjour,

J'ai cette macro qui fonctionne presque, mais il y a un petite erreur de positionnement

Lorsque le fichier n'est pas ouvert sur mon PC la MsgBox "Pas ouvert" s'affiche

Par contre si le fichier est ouvert les 2 msgbox s'affiche

Merci pour votre aide
Philippe
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Macro1() 'Vérifier si le fichier OLD est ouvert Dim Classeur_OLD As Workbook For Each Classeur_OLD In Workbooks If Classeur_OLD.Name = "old.xlsm" Then MsgBox "ouvert" End If Next Classeur_OLD If Classeur_OLD Is Nothing Then MsgBox "Pas ouvert" End If End Sub

Citation:

Envoyé par goninph

Bonsoir,

Essayez cette fonction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Test()
 
    MsgBox DejaOuvert("XXXX.xlsm")
 
 
End Sub
 
Function DejaOuvert(ByVal NomClasseur_Old As String) As Boolean 
Dim I As Integer
 
    DejaOuvert = False
    For I = 1 To Workbooks.Count
        If Workbooks(I).Name = NomClasseur_Old Then DejaOuvert = True
    Next I
 
End Function

Hello,

Merci, mais je veux juste savoir si le fichier old.xlsm est ouvert sur mon PC, la macro est dans le fichier new.xlsm

Le but est de lancer une macro suite à un événement dans le fichier new.xlsm à la condition que le fichier old.xlsm est déjà ouvert sur mon PC.

Merci et bon dimanche
Philippe

Citation:

Envoyé par goninph

Bonjour,

Vous avez la réponse dans cette ligne où vous remplacez "XXXX.xlsm" par le nom de votre fichier. Il vous suffit de mettre cette ligne dans votre code principal en remplaçant le Msgbox par un If .... Then.
Code:

1 2 MsgBox DejaOuvert("XXXX.xlsm")

Code:

1
2
3
4
5
6
7
8
9
10
Sub Macro1() 'Vérifier si le fichier OLD est ouvert
    Dim Classeur_OLD As Workbook, Ouvert As Boolean
 
    Ouvert = False
    For Each Classeur_OLD In Workbooks
        If Classeur_OLD.Name = "old.xlsm" Then Ouvert = True
    Next Classeur_OLD
    If Ouvert Then MsgBox "ouvert" Else MsgBox "Pas ouvert"
 
End Sub

Pour optimiser, j'aurais pu mettre un Exit For mais c'est plus simple à comprendre ainsi.

Salut, voir ici

re

re
Bonjour
le probleme c'est que si ton old classeur est ouvert dans une autre instance de excel que celle du fichier new avec la macro la boucle (dans la collection Workbooks) ne le trouvera pas
pas d'autre choix que d'utiliser certaines api windows

Bonjour,

Merci à tous ça marche du tonnerre, manquai juste un end if à la fin

Merci à tous
Philippe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub Macro1() 'Vérifier si le fichier OLD est ouvert
    Dim Classeur_OLD As Workbook, Ouvert As Boolean
    Ouvert = False
    For Each Classeur_OLD In Workbooks
        If Classeur_OLD.Name = "old.xlsm" Then Ouvert = True
    Next Classeur_OLD
    If Ouvert Then
'Action si le fichier est ouvert
    MsgBox "Fichier ouvert"
    Else
'Action si le fichier est fermé
    MsgBox "Fichier fermé"
End If
End Sub

Citation:

Envoyé par Menhir

Code:

1
2
3
4
5
6
7
8
9
10
Sub Macro1() 'Vérifier si le fichier OLD est ouvert
    Dim Classeur_OLD As Workbook, Ouvert As Boolean
 
    Ouvert = False
    For Each Classeur_OLD In Workbooks
        If Classeur_OLD.Name = "old.xlsm" Then Ouvert = True
    Next Classeur_OLD
    If Ouvert Then MsgBox "ouvert" Else MsgBox "Pas ouvert"
 
End Sub

Pour optimiser, j'aurais pu mettre un Exit For mais c'est plus simple à comprendre ainsi.

Citation:

Envoyé par goninph

Merci à tous ça marche du tonnerre, manquai juste un end if à la fin

Avec l'intégralité de l'instruction If sur une seule ligne de code, le End If était inutile. Mon code était fonctionnel.