Ouverture fichier s'il n'est pas ouvert VBA

[olympiklyon]

Bonjour,

J'ai une macro, au début j'ouvre un fichier nommée "essai n1kjh" mais il se peut qu'il soit déja ouvert. J'aimerais qu'il s'ouvre seulement s'il ne l'ai pas.

Voici ma macro. Ouverture en rouge

Sub Macro4()
'
' Macro4 Macro
'
' Touche de raccourci du clavier: Ctrl+o

ligne = ActiveCell.Row
nom = ActiveWorkbook.Name


Selection.Copy
[COLOR="red"]Workbooks.Open "C:\Documents and Settings\***\Bureau\essai n1kjh"[/COLOR]
Windows("essai n1kjh.xls").Activate
Sheets(Sheets.Count).Select


' Selectionne la première cellule du tableau
Range("B7").Select

' Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
NbLigne = NbLigne + 1
Selection.Offset(1, 0).Select
Loop

Selection.PasteSpecial Paste:=xlPasteValues

MsgBox "Ligne " & ActiveCell.Row
Range("B7").Select

' Boucle tant que pas vide
Do While Not (IsEmpty(ActiveCell))
NbLigne = NbLigne + 1
Selection.Offset(1, 0).Select
Loop

Windows(nom).Activate
Range("I1").Select
Selection.Copy
Windows("essai n1kjh.xls").Activate
Selection.Offset(-1, -1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Offset(0, 3).Select
Selection.ClearContents
Selection.Offset(0, 1).Select
Selection.ClearContents

Titre = "Pièces Manquantes"
Message = "Indiquez le nombre pieces manquantes"
MaValeur = InputBox(Message, Titre, Defaut)
Selection = MaValeur

Windows("essai n1kjh.xls").Activate
ActiveWorkbook.Save

Merci d'avance