Fonction EST(OUVERT) ..VBA

Bonsoir à tous
Je sollicite une bonne volonté pour réparer ce code VBA que j’essaie en vain de faire fonctionner.
Je suis très loin d’être une pro du développement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub CommandButton1_Click()   estouvert = False chemin = ActiveWorkbook.Path For Each fich In Workbooks If fich.Name = "toto.xlsm" Then estouvert = True 'Sheets("Feuil1").Range("A1").Activate Next If estouvert = False Then Workbooks.Open Filename:=chemin & "\" & "toto.xlsm" 'Sheets("Feuil1").Range("A1").Activate End If End Sub

---

Merci beaucoup de votre aide

Bonsoir,
Sans tester, il te manque un "End if" sur le premier If.

Bonsoir Emmanuel R

j'ai modifié le code comme ci dessus mais excel me met erreur de compilation end if sans bloc if
en fait le fichier toto.xlsm peut etre masqué. Je voudrais par cette macro l'activer, et afficher la fuille1

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click()   estouvert = False chemin = ActiveWorkbook.Path For Each fich In Workbooks If fich.Name = "toto.xlsm" Then estouvert = True 'Sheets("Feuil1").Range("A1").Activate End If Next If estouvert = False Then Workbooks.Open Filename:=chemin & "\" & "toto.xlsm" 'Sheets("Feuil1").Range("A1").Activate End If End Sub

---

Bonsoir Kelly, bonsoir le forum,

Prend l'habitude d'utiliser les balises code. Il suffit de sélectionner le code et de cliquer sur le bouton #. C'est plus facile à lire...

Dans la ligne :

Code:

---

If fich.Name = "toto.xlsm" Then estouvert = True

---

Tu as la condition et l'action si la condition est vrai dans la même ligne. Le End IF, deux lignes plus bas, est donc de trop...

J'utilise souvent ce bout de code pour tester un classeur ouvert. Par la suite, la variable CL me permet d'agir sur le classeur sans avoir à écrire Workbooks("toto,xlsm") :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click() Dim CL As Workbook Dim chemin As String   chemin = ThisWorkbook.Path 'à adapter On Error Resume Next Set CL = Workbooks("toto.xlms") If Err <> 0 Then Err.Clear Workbooks.Open Filename:=chemin & "\" & "toto.xlsm" Set CL = ActiveWorkbook End If On Error GoTo 0 End Sub

---

MERCI Thautheme de ton aide
"ton bout de code " est bien précieux. il est parfaitement adapté à mon projet. Je l'ai complété avec mes procédures et tout fonctionne .... Enfin pour l'instant ( croisons les doigts)
Merci à Emmanuel R aussi.

Salut, regarde ici

J'ai pourtant clairement indiqué dans sa précédente discussion de rechercher dans ce forum ExistWindow ou IsOpen …

Est-ce si difficile de lancer une recherche ?!