[Résolu]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 à l'endroit de --->>>

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

ligne = ActiveCell.Row
nom = ActiveWorkbook.Name


Selection.Copy
--->>> Workbooks.Open "C:\Documents and Settings\***\Bureau\essai n1kjh"
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

 

[Dranreb]

Re : Ouverture fichier s'il n'est pas ouvert VBA

Bonjour.

On Error Resume Next
Workbooks("essai n1kjh.xls").Activate
If Err then Err.Clear: Workbooks.Open "C:\Documents and Settings\***\Bureau\essai n1kjh.xls"
On Error GoTo 0

Cordialement.

 

[Hippolite]

Re : Ouverture fichier s'il n'est pas ouvert VBA

Bonjour à tous,
Pour le fun, on peut aussi utiliser

    For Each w In Workbooks
        If w.Name = Fichier Then
            MsgBox "Dejà ouvert"
            GoTo fin
        End If
    Next
    MsgBox "Fermé"
fin:

A+

 

[olympiklyon]

Re : Ouverture fichier s'il n'est pas ouvert VBA

Bonjour.

On Error Resume Next
Workbooks("essai n1kjh.xls").Activate
If Err then Err.Clear: Workbooks.Open "C:\Documents and Settings\***\Bureau\essai n1kjh.xls"
On Error GoTo 0

Cordialement.

Merci beaucoup ça marche !! 😀