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

E

Eric 45

XLDnaute Occasionnel

• 8 Février 2010

• #2

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

Bonjour à tous
Bonjour

Si j'ai bien compris, essaie ceci :

Code:

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

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 8 Février 2010

• #3

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.

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 8 Février 2010

• #4

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.

 

Vote positif 0 Vote négatif

E

Eric 45

XLDnaute Occasionnel

• 8 Février 2010

• #5

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

Re

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

Code:

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

 

Vote positif 0 Vote négatif

L

La braise

XLDnaute Occasionnel

• 8 Février 2010

• #6

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

Nickel ça marche à la perfection.

 

Vote positif 0 Vote négatif