XL 2013 macro qui vérifie si 2 fichiers Excel ouvert sur mon ordinateur, sont bien effectivement ouvert

[onyirimba]

Bonjour,

Je souhaite créer une macro qui vérifie si 2 fichiers (AZERTY1.xlsx et AZERTY2.xlsx) ouvert sur mon ordinateur, sont bien effectivement ouvert.

J'ai essayé le codage ci-après mais cela mais ne fonctionne pas.
Est-ce qu'1 personne peut m'aider ?


Sub fichier ouvert ()

If Windows("AZERTY1.xlsx").Activate = False

Then MsgBox "Le fichier n'est pas ouvert"
Else


If Windows("AZERTY2.xlsx").Activate = False

Then MsgBox "Le fichier n'est pas ouvert"
Else

End If

End If

End sub



Merci d'avance pour votre aide

 

[Bernard_XLD]

Bonjour onyirimba, le forum

Il y a plusieurs façons de faire mais vous pouvez utiliser cette fonction personnalisée qui est pratique d'utilisation et facilement réutilisable.

Bien cordialement, @+
https://www.excel-downloads.com/threads/classeur_ouvert.20056282/

 

[Compte Supprimé 979]

Bonjour onyirimba, Yeahou

Ou plus simple mais toujours une fonction personnalisée

Function FichierOuvert(sWbk As String) As Boolean
  On Error Resume Next
  FichierOuvert = Not Workbooks(sWbk) Is Nothing
End Function

A+

 

[onyirimba]

Bonjour onyirimba, le forum

Il y a plusieurs façons de faire mais vous pouvez utiliser cette fonction personnalisée qui est pratique d'utilisation et facilement réutilisable.

Bien cordialement, @+
https://www.excel-downloads.com/threads/classeur_ouvert.20056282/

bonjour,

Merci je regarde

 

[onyirimba]

Bonjour onyirimba, Yeahou

Ou plus simple mais toujours une fonction personnalisée

Function FichierOuvert(sWbk As String) As Boolean
  On Error Resume Next
  FichierOuvert = Not Workbooks(sWbk) Is Nothing
End Function

A+

Bonjour,

Merci beaucoup je regarde

 

[onyirimba]

Bonjour onyirimba, le forum

Il y a plusieurs façons de faire mais vous pouvez utiliser cette fonction personnalisée qui est pratique d'utilisation et facilement réutilisable.

Bien cordialement, @+
https://www.excel-downloads.com/threads/classeur_ouvert.20056282/

J'ai essayé avec le codage ci-après mais cela ne fonctionne pas
qu'est-ce qui ne va pas ?

Sub fichier ouvert ()
If Windows("AZERTY1.xlsx").Activate = False
Then MsgBox "Le fichier n'est pas ouvert"
Else
If Windows("AZERTY2.xlsx").Activate = False
Then MsgBox "Le fichier n'est pas ouvert"
Else
End If
End If

End sub

Function Classeur_Ouvert(AZERTY1.xlsx) As Boolean
'Fonction Classeur_Ouvert V1.2 By Yeahou, Excel toutes versions (non testé sur Mac)
'renvoie Vrai si le classeur est ouvert
On Error Resume Next
Application.Volatile
Dim Test_Objet As Workbook
Set Test_Objet = Workbooks(AZERTY1.xlsx)
Classeur_Ouvert = Not Test_Objet Is Nothing
End Function



Merci d'avance

 

[Compte Supprimé 979]

Re,

Outch un petit cours ICI

 

[onyirimba]

Re,

Outch un petit cours ICI

merci

 

[kiki29]

Salut, une de plus

 

[onyirimba]

Salut, une de plus

salut

je te remercie

 

[onyirimba]

Bonjour onyirimba, le forum

Il y a plusieurs façons de faire mais vous pouvez utiliser cette fonction personnalisée qui est pratique d'utilisation et facilement réutilisable.

Bien cordialement, @+
https://www.excel-downloads.com/threads/classeur_ouvert.20056282/

Merci encore pour ton aide.

J'ai essayé avec le code ci-après cependant le fichier "Classeur2" est ouvert sur mon ordinateur et pourtant je reçois 1 message de la macro qui dit que ce fichier n'est pas ouvert

Pourquoi cette incohérence ?

Sub fichier()

MsgBox Classeur_Ouvert(Classeur2)


End Sub


Function Classeur_Ouvert(Classeur2) As Boolean
'Fonction Classeur_Ouvert V1.2 By Yeahou, Excel toutes versions (non testé sur Mac)
'renvoie Vrai si le classeur est ouvert
On Error Resume Next
Application.Volatile
Dim Test_Objet As Workbook
Set Test_Objet = Workbooks(Classeur2)
Classeur_Ouvert = Not Test_Objet Is Nothing
End Function

 

[Bernard_XLD]

Re,

Pourquoi cette incohérence ?

il n'y a aucune incohérence.

Set Test_Objet = Workbooks(Classeur2)

De la façon dont vous l'utilisez, vous envoyez à la fonction un objet VB Classeur2 qui n'a rien à voir avec un classeur et qui n'existe pas.
Il faut envoyer une chaine texte du nom complet du classeur et vous n'avez pas à modifier la fonction, vous l'utilisez telle quelle et elle passera sur tous les fichiers.
si votre classeur2 n'est pas enregistré et n'a pas encore d'extension, vous pouvez l'appeler comme ceci
MsgBox Classeur_Ouvert("Classeur2")
les guillemets font toute la différence
pour un fichier déja enregistré, n'oubliez pas l'extension
MsgBox Classeur_Ouvert("AZERTY1.xlsx")

 

[onyirimba]

Re,


il n'y a aucune incohérence.

De la façon dont vous l'utilisez, vous envoyez à la fonction un objet VB Classeur2 qui n'a rien à voir avec un classeur et qui n'existe pas.
Il faut envoyer une chaine texte du nom complet du classeur et vous n'avez pas à modifier la fonction, vous l'utilisez telle quelle et elle passera sur tous les fichiers.
si votre classeur2 n'est pas enregistré et n'a pas encore d'extension, vous pouvez l'appeler comme ceci
MsgBox Classeur_Ouvert("Classeur2")
les guillemets font toute la différence
pour un fichier déja enregistré, n'oubliez pas l'extension
MsgBox Classeur_Ouvert("AZERTY1.xlsx")

merci beaucoup pour l'information