Détecter si un fichier est ouvert(VBA)

Version imprimable

09/07/2018, 10h47
ThomasVil

Détecter si un fichier est ouvert(VBA)

Bonjour:D 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

Citation:

Envoyé par ThomasVil

Bonjour,

Une solution possible avec cette fonction :

Code:

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:

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:

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

09/07/2018, 11h19
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
???
09/07/2018, 12h45
RyuAutodidacte

Bonjour,

J'avais fait ceci pour PC/MAC (à voir - un petit retour serait cool :)) :
https://www.developpez.net/forums/d1...uer-procedure/
09/07/2018, 12h55
ThomasVil

Citation:

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 :mrgreen:
09/07/2018, 18h26
ThomasVil

Citation:

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

Citation:

Envoyé par Eric KERGRESSE

Bonjour,

Une solution possible avec cette fonction :

Code:

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:

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:

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

Merci beaucoup :D

09/07/2018, 19h41
unparia

Citation:

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 :

Citation:

savoir :
- s'il est ouvert dans la même instance de Excel
ou
- s'il est ouvert par n'importe quelle instance de Excel
09/07/2018, 21h57
RyuAutodidacte

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/

Bonjour à tous,

autre idée :
Code:

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

Bonjour
VBA/Excel offre quand-même nativement beaucoup plus simple que ce qui est montré par le lien de la FAQ :cfou:.
Il suffit d'utiliser la fonction GetObject (plutôt que ouvrir, etc ...). Ainsi (exemple)
Code:

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:

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.

10/07/2018, 09h42
RyuAutodidacte

Coucou Jacques,

Citation:

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 ;)
10/07/2018, 11h09
ThomasVil

Merci bcp a tous j'ai reussi :D je passe en résolu encore merci
10/07/2018, 13h36
unparia

Content pour toi, mais il sera bien de dire ici quelle méthode tu as adoptée.
10/07/2018, 14h30
ThomasVil

Citation:

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)
10/07/2018, 18h48
anasecu

Bonjour,

Citation:

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 ?
11/07/2018, 00h43
unparia

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.
11/07/2018, 10h42
RyuAutodidacte

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 :plusser:

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 …

Fuseau horaire GMT +2. Il est actuellement 08h03.