Discussion :

[nianko]

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 :

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

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

[babaothe]

salut

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

Code :

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

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 :

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

1
2
3
4
5
6
If lFound = True Then 
  GoTo verif
Else
   MsgBox "Doublecheck that 'spot rates' is open"
  Exit Sub
 End If

[nianko]

Merci bcp!