end if et exit sub qui ne marchent pas

Bonjour,

J'ai une macro qui met a jour une feuille en prenant des info depuis une autre feuille que je recois par mail tous les jours.
J'ai un bouton pour cette macro et je veux que si mes utilisateurs s'amusent a appuyer plein de fois sur le bouton, la macro ne marche plus.
pour ca je mets un controle: si le fichier source n'est pas ouvert alors je veux terminer la procedure.

Code:

---

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

'verifier que le fichier "spot rates" est bien ouvert lFound = False For Each classeur In Workbooks If Left(classeur.Name, 10) = "spot rates" Then lFound = True Exit For End If Next   If lFound = True Then GoTo verif Else: MsgBox "Doublecheck that 'spot rates' is open" Exit Sub End If

---

Mais j'obtiens un message d'erreur "end if without block if".

Pourquoi?

Merci d'avance

salut

relire la syntaxe du If ...
ceci ne peut marcher ;

Code:

---

1 2 3 4

If lFound = True Then GoTo verif Else: MsgBox "Doublecheck that 'spot rates' is open" '==>> Else quoi ? puisque la condition est dséjà complètement exprimée et fermée? Exit Sub End If

---

correction :

Code:

---

1 2 3 4 5 6

If lFound = True Then GoTo verif Else MsgBox "Doublecheck that 'spot rates' is open" Exit Sub End If

---

Merci bcp!