VBA - Ouvrir un fichier selon condition

Bonsoir au forum,

Deux questions :

1 - peut-on simplifier le" If" (sans répéter le range("k77") ?

2 - quel serait le bon code pour ouvrir un fichier nommé "MAG.xls" ?

j'ai essayé comme ci-dessous, mais çà ne va pas !

        If range("k77") = 13 Or range("k77") = 14 Or range("k77") = 15 Then
            ''Workbooks("MAG.xls").Activate
            ''Workbooks("c:\excel2000\rapidos\MAG.xls").Activate
            Sheets("mag").Select
        Exit Sub
        End If

je vous remercie d'avance.

Amicalement

Claude.

Édition par Mytå, pour modification du Sujet.

Salut le forum

Claude 2 questions, donc 2 messages

Pour la question #1

Select Case Range("B2").Value
  Case 13
    MsgBox ("13")
  Case 14
    MsgBox ("14")
  Case 15
    MsgBox ("15")
  Case Else
    MsgBox ("What do you want ?")
End Select

Pour la question #2

'Ouvrir un fichier
    Workbooks.Open Filename:="C:\Excel\alerte.xls"

Mytå

Bonjour au forum,

Mytå, j'ai pas compris ta réponse à la 1ère question !

pour la 2ème c'est OK.

amicalement

Claude.

Bonjour,

Dans la première question, réponse de Myta, remplace B2 par K77.

Remarque que je ne vois pas pourquoi tu veux changer ton code IF.

Sinon, à essayer

Select Case Range("K77").Value 
  Case 13, 14, 15
    Sheets("mag").Select 
  Case Else 
    MsgBox ("What do you want ?") 
End Select

Amicalement

Dan

Salut Dan et au forum,

C'était juste pour savoir si on pouvait écrire différemment et + simplement.

Je garde donc mon code.

merci....Claude.