Discussion :

[kelly27]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Emmanuel R]

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

[kelly27]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kelly27]

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.

[kiki29]

Salut, regarde ici

[Marc-L]

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 ?!