Si feuille ouverte alors... en VBA

[Franck059]

Bonjour à tous,

Dans une Macro, je souhaite ouvrir une feuille, mais si elle est déjà ouverte ça va bugger.

Je souhaiterai donc pouvoir écrire en VBA :

Si feuille ouverte alors ..<execution de la macro>
si non <Workbooks.OpenText Filename...etc....>

Merci bcp d'avance

Pour votre aide

Franck

 

[kjin]

Re : Si feuille ouverte alors... en VBA

Bonjour,

Dans une Macro, je souhaite ouvrir une feuille, mais si elle est déjà ouverte ça va bugger.

Ouvrir un classeur (fichier) ou activer une feuille ?!
A+
kjin

 

[Franck059]

Re : Si feuille ouverte alors... en VBA

Houps Pardon
Ouvrir un classeur !

 

[kjin]

Re : Si feuille ouverte alors... en VBA

Re,
Je me doutais un peu quand même..
Testes comme ceci

Sub OuvreClasseur()
Dim Rep As String, Fich As String, Wb As Workbook
Rep = "C:\le chemin vers le fichier\" 'à adapter
Fich = "Le nom du classeur.xls" 'à adapter
For Each Wb In Workbooks
    If Wb.Name = Fich Then
    MsgBox "Classeur déjà ouvert"
    Exit Sub
    End If
Next
    Workbooks.Open Rep & Fich

End Sub

 

[Franck059]

Re : Si feuille ouverte alors... en VBA

Je vais tester

Merci infiniment !

Franck