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