Private Sub CommandButton1_Click()
chemin = "c:\"
If OptionButton1 Then 'si coche AA
Workbooks.Open chemin & ComboBox1.Value & "." & ComboBox2.Value & ".xls"
Sheets(1).Activate 'active la feuille 1
ElseIf OptionButton2 Then 'si coche BB
Workbooks.Open chemin & ComboBox1.Value & "." & ComboBox2.Value & ".xls"
Sheets(2).Activate 'etc...
ElseIf OptionButton3 Then
Workbooks.Open chemin & ComboBox1.Value & "." & ComboBox2.Value & ".xls"
Sheets(3).Activate
ElseIf OptionButton5 Then
Workbooks.Open chemin & ComboBox1.Value & "." & ComboBox2.Value & ".xls"
Sheets(4).Activate
ElseIf OptionButton6 Then
Workbooks.Open chemin & ComboBox1.Value & "." & ComboBox2.Value & ".xls"
Sheets(5).Activate
ElseIf OptionButton7 Then
Select Case ComboBox1
Case "XA1"
Sheets("SHEET5").Activate
Case "XA2"
Sheets("SHEET6").Activate
Case "XA3"
Sheets("SHEET7").Activate
End Select
End If
Unload usmenu2
End Sub