Discussion :

[goninph]

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 :

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

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

[Invité]

Bonsoir,

Essayez cette fonction :

Code :

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

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

[goninph]

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

[Invité]

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 :

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

1
2
 
 MsgBox DejaOuvert("XXXX.xlsm")

[Menhir]

Code :

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

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.

[kiki29]

Salut, voir ici

[patricktoulon]

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

[goninph]

Bonjour,

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

Merci à tous
Philippe

Code :

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

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

Code :

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

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.

[Menhir]

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.