Sub test(ByVal control As IRibbonControl)
Dim WbName$, AbsFN$, WayOfFile$
MsgBox control.Tag
WbName = "ACCUEIL_2012-V03.xlsm"
AbsFN = "C:\Users\José\Desktop\"
WayOfFile = Left(AbsFN, Len(AbsFN) - Len(ThisWorkbook.Name))
WayOfFile = AbsFN
MsgBox WayOfFile
MsgBox WayOfFile & WbName
'ShellExecute 0&, vbNullString, control.Tag, vbNullString, vbNullString, SW_SHOWNORMAL
If WbIsOpen(WbName) Then
Workbooks(WbName).Activate
Else
Workbooks.Open Filename:=WayOfFile & WbName
End If
End Sub
'ShellExecute 0&, vbNullString, control.Tag, vbNullString, vbNullString, SW_SHOWNORMAL
Function WbIsOpen(WbName As String) As Boolean
On Error Resume Next
WbIsOpen = Not Workbooks(WbName) Is Nothing
End Function