Détecter si un fichier est ouvert(VBA)

**ThomasVil** · 09/07/2018, 10h47

Bonjour

savez vous comment detecter si un fichier excel est ouvert. Je veux créer un programme disant si ExcelVba ouvert alors ... sinon ouvrir fichier ExcelVba.
Merci d'avance,
Cordialement, Thomas

Invité · 09/07/2018, 11h19

Envoyé par ThomasVil

Bonjour,

Une solution possible avec 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
 
Function VerificationFichierOuvert(ByVal NomFichier As String) As Boolean
 
Dim WbEnCours As Workbook
 
    VerificationFichierOuvert = False
    If Workbooks.Count = 0 Then
       Exit Function
    Else
       For Each WbEnCours In Application.Workbooks
           If WbEnCours.Name = NomFichier Then VerificationFichierOuvert = True
       Next WbEnCours
    End If
 
End Function

Code :

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

1
2
3
4
 
Sub TestVerificationFichierOuvert()
    MsgBox VerificationFichierOuvert("A.xlsm")
End Sub

Nb : Ce bout de code peut paraître complètement c..., mais il sert dans des macros complémentaires .xlam depuis le menu excel et il n'y a pas toujours des fichiers ouverts.

Code :

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

1
2
3
4
 
    If Workbooks.Count = 0 Then
       Exit Function
    ....

**unparia** · 09/07/2018, 11h19

Bonjour
savoir :
- s'il est ouvert dans la même instance de Excel
ou
- s'il est ouvert par n'importe quelle instance de Excel
???

**RyuAutodidacte** · 09/07/2018, 12h45

Bonjour,

J'avais fait ceci pour PC/MAC (à voir - un petit retour serait cool

) :
https://www.developpez.net/forums/d1...uer-procedure/

**ThomasVil** · 09/07/2018, 12h55

Envoyé par unparia

Bonjour
savoir :
- s'il est ouvert dans la même instance de Excel
ou
- s'il est ouvert par n'importe quelle instance de Excel
???

Juste ouvert sur le pc actuel donc je suppose que c'est sur la meme instance Excel

**ThomasVil** · 09/07/2018, 18h26

Envoyé par RyuAutodidacte

Bonjour,

J'avais fait ceci pour PC/MAC (à voir - un petit retour serait cool

) :
https://www.developpez.net/forums/d1...uer-procedure/

salut merci bcp mais ton code est trop "lourd" et je n'ai pas les connaissances pour le réduire et l'optimiser a mes besoins. J'ai essayé d'intégrer ton code au mien et il met enormement de temps a se lancer maintenant serais-tu ce que j epeux retirer du tien pour pouvoir l'optimiser a mon problème stp(je cherche juste a savoir si il est ouvert sur mon ordi)

Merci déja énormement pour ton aide

**ThomasVil** · 09/07/2018, 18h38

Envoyé par Eric KERGRESSE

Bonjour,

Une solution possible avec 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
 
Function VerificationFichierOuvert(ByVal NomFichier As String) As Boolean
 
Dim WbEnCours As Workbook
 
    VerificationFichierOuvert = False
    If Workbooks.Count = 0 Then
       Exit Function
    Else
       For Each WbEnCours In Application.Workbooks
           If WbEnCours.Name = NomFichier Then VerificationFichierOuvert = True
       Next WbEnCours
    End If
 
End Function

Code :

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

1
2
3
4
 
Sub TestVerificationFichierOuvert()
    MsgBox VerificationFichierOuvert("A.xlsm")
End Sub

Nb : Ce bout de code peut paraître complètement c..., mais il sert dans des macros complémentaires .xlam depuis le menu excel et il n'y a pas toujours des fichiers ouverts.

Code :

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

1
2
3
4
 
    If Workbooks.Count = 0 Then
       Exit Function
    ....

Merci beaucoup

**unparia** · 09/07/2018, 19h41

Juste ouvert sur le pc actuel donc je suppose que c'est sur la meme instance Excel

Rien à voir.
Plusieurs instances de Excel peuvent être ouvertes sur le même PC
Je réitère donc ma question :

savoir :
- s'il est ouvert dans la même instance de Excel
ou
- s'il est ouvert par n'importe quelle instance de Excel

**RyuAutodidacte** · 09/07/2018, 21h57

Re,

une facon simple de vérifier qu'un classeur est ouvert à voir ici : https://excel.developpez.com/faq/?pa...ClasseurOuvert

Maintenant la question de @unparia est importante car il se peut que tu es plusieurs instance d'Excel ouvert (comme si tu avais plusieurs d'Excel ouvert indépendant des uns et des autres (uniquement sur PC))
et que le fichier que tu veux vérifier soit vérifié sur la mauvaise instance d'Excel, ce qui à pour conséquence de te donner en fin de compte une réponse erronée …

donc tu choisis d'orienté ton code dans quel sens ?

Option 1 : "s'il est ouvert dans la même instance de Excel"

Option 2 : " s'il est ouvert par n'importe quelle instance de Excel"

A choisir selon ta situation dans laquelle tu vas te trouver …

Edit : Cela peut t'aider à comprendre :https://excel-malin.com/codes-source...nstance-excel/

**eriiic** · 09/07/2018, 23h19

Bonjour à tous,

autre idée :

Code :

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

1
2
3
4
5
6
7
Function fichierOuvert(nomFich As String) As Boolean
    Dim tmp
    On Error GoTo fin
    tmp = Workbooks(nomFich).Name
    fichierOuvert = True
fin:
End Function

(dans la même session, sinon voir le lien de ryu)
eric

**unparia** · 09/07/2018, 23h56

Bonjour
VBA/Excel offre quand-même nativement beaucoup plus simple que ce qui est montré par le lien de la FAQ

.
Il suffit d'utiliser la fonction GetObject (plutôt que ouvrir, etc ...). Ainsi (exemple)

Code :

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

1
2
3
4
5
6
7
8
Private Function estouvert(fichier As String) As Boolean
  Dim f As Object
  On Error Resume Next
  Set f = GetObject(fichier)
  If Not f Is Nothing Then estouvert = True
  On Error GoTo 0
  Set f = Nothing
End Function

Appelable ainsi (exemple)

Code :

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

1
2
3
Dim fichier As String
  fichier = "d:\blabla.xlsm"
  MsgBox estouvert(fichier)

--->> si tout le monde est d'accord avec cette solution, je suggère que soit modifié le lien concerné (ou que cette méthode y soit au moins mentionnée).

EDIT : plus j'y pense, plus je suis persuadé qu'il s'agit là d'une étourderie de Michel, dont je connais bien la grande compétence indubitable. Je suis persuadé de ce que - s'il passait par là - il interviendrait pour modifier ou compléter dans ce sens ce lien de la FAQ.

**RyuAutodidacte** · 10/07/2018, 09h42

Coucou Jacques,

VBA/Excel offre quand-même nativement beaucoup plus simple que ce qui est montré par le lien de la FAQ .

J'ai pas encore testé ta solution (que je n'hésiterai pas à tester dès que je peux - à mon avis à ne sera pas avant ce soir), mais ce qui est sûr, c'est que le lien de la faq marche uniquement sur PC.
Et comme tu le sais je privilégie toujours à les codes les plus efficaces et aussi multiplateforme qd cela est possible

**ThomasVil** · 10/07/2018, 11h09

Merci bcp a tous j'ai reussi

je passe en résolu encore merci

**unparia** · 10/07/2018, 13h36

Content pour toi, mais il sera bien de dire ici quelle méthode tu as adoptée.

**ThomasVil** · 10/07/2018, 14h30

Envoyé par unparia

Content pour toi, mais il sera bien de dire ici quelle méthode tu as adoptée.

Ha oui désolé j'ai utlisé celle de Eric KERGRESSE (la toute premiere)

**anasecu** · 10/07/2018, 18h48

Bonjour,

Envoyé par unparia

Il suffit d'utiliser la fonction GetObject (plutôt que ouvrir, etc ...). Ainsi (exemple)

Peut-être que je n'ai pas tout compris ce que tu dis mais j'ai un sérieux doute sur cette procédure.

Lorsque je la lance sur un classeur ouvert sur une autre session, pas de souci car le message est "Vrai".

Je ferme l'autre session et je lance ta procédure qui ouvre le classeur maintenant disponible et le message est "Vrai".
Cela parait exact car lorsque je ferme le classeur test, il me demande si je veux sauvegarder le classeur dont je testais l'ouverture.

J'ai forcé la procédure fonction à "False" au départ mais c'est inutile car j'ai systématiquement "Vrai",
même en ayant tout fermé au préalable, dès son premier lancement.

N'y aurait-il pas un petit schmilblick ?

**unparia** · 11/07/2018, 00h43

Bonjour anasecu
Tu as raison. Je viens de le vérifier.
Mea culpa. L'instruction GetObject retourne vrai si le fichier existe, ouvert ou non.

**RyuAutodidacte** · 11/07/2018, 10h42

Bonjour,

Jacques, j'ai commencé à tester hier soir ton code uniquement sur Mac avec 2 Excel différents (2011 et 2016 Mac - imitation de plusieurs instances) et comme @anescu je me suis retrouvé avec True et j'ai eu en sus des comportements que je n'ai pas compris :
Le fichier à tester était parfois ouvert physiquement/visuellement et parfois il était ouvert virtuellement sans que je puisse le voir à l'écran ce qui avait pour conséquence quand celui-ci était réellement fermé, de recevoir un message de l'excel dont j'avais lancé la macro à savoir : "le fichier est disponible, voulez-vous l'ouvrir".

Je.voulais investiguer plus sachant qu'il peut y avoir des différences de code entre Mac et PC .

Maintenant avec ta dernière réponse Jacques, c'est chose inutile.

@anasecu

Edit : PS : pour ce qui passe par là, si il est possible de tester ma procédure se trouvant dans les contributions et d'avoir un retour ça serait cool

( cf lien sur le mon post en début de discussion)
Et n'hésitez si vous avez une question …

Détecter si un fichier est ouvert(VBA)

Macros et VBA Excel

Discussions similaires

Partager

Partager