Bonjour le Forum
Le code ci-dessus fonctionne très bien, mais je souhaiterai appeler le fichier index .xls en chemin relatif, (..\..\index.xls ) au lieu de ( C:\travail\index.xls ), mais ça marche pas…
Si quelqu’un peut me dire pourquoi et me trouver une solution ça serait très sympa !
Merci d’avance
Pias
-------------------------------------------------
Sub Macroname(Dummy As String)
UserForm1.lblStyle 0
Select Case Dummy
Case 301
UserForm1.CommandButton1_Click
Workbooks.Open Filename:= _
"C:\travail\index.xls"
Case 302
UserForm1.CommandButton1_Click
Sheets("feuil3").Activate
Case Else
UserForm1.Hide
MsgBox "Menu " & Dummy & ": Option non disponible !", 64, ThisWorkbook.Name
UserForm1.Show
End Select
End Sub