VBA - vérifier si un fichier est ouvert sinon l'ouvrir

[La braise]

Bonjour à tous,

Une petite question sur VBA.

Au lancement d'une macro je souhaite savoir si un fichier est ouvert, et si il ne l'est pas je souhaite l'ouvrir.

D'avance merci pour votre aide toujours aussi efficace.

 

[Eric 45]

Re : VBA - vérifier si un fichier est ouvert sinon l'ouvrir

Bonjour à tous
Bonjour

Si j'ai bien compris, essaie ceci :

Sub TestFichierOuvert()
Dim Wk As Workbook
x = "Classeur1"
On Error Resume Next
Set Wk = Workbooks(x & ".xls")
If Err <> 1 Then
   MsgBox "Le fichier " & x & " est ouvert"
Else
   Workbooks.Open Filename:="D:\Classeur1.xls"
End If
End Sub

Eric

 

[La braise]

Re : VBA - vérifier si un fichier est ouvert sinon l'ouvrir

Merci pour ta réponse mais ça ne marche pas.

J'ai le msgbox alors que le fichier n'est pas ouvert.

 

[La braise]

Re : VBA - vérifier si un fichier est ouvert sinon l'ouvrir

J'ai essayé :

If Windows(File_Base).Activate Is Error Then Workbooks.Open FileName:=RepFile & File_Base

mais ça marche pas...

Merci pour votre aide.

 

[Eric 45]

Re : VBA - vérifier si un fichier est ouvert sinon l'ouvrir

Re

En modifiant la macro de Jean-Marcel qui modifiait la mienne :

Sub TestFichierOuvert_02()
Dim Wk As Workbook
x = "Classeur1"
On Error Resume Next
Set Wk = Workbooks(x & ".xls")
If Err <> [B][COLOR=Red]0[/COLOR][/B] Then
    Workbooks.Open Filename:="E:\Classeur1.xls"
Else
    MsgBox "Le fichier " & x & " est ouvert"
End If
End Sub

Eric

 

[La braise]

Re : VBA - vérifier si un fichier est ouvert sinon l'ouvrir

Nickel ça marche à la perfection.