Sub USF()
Userform1.Show
End Sub
Sub ExecuteMacro()
Application.Run "comptabilité.xls!USF"
End Sub
Sub affusf()
ws = Application.Caller
USF
End Sub
Sub USF()
UserForm1.Show
End Sub
Sub test()
Application.Run "Compta_2010.xlsm!USF"
End Sub
If IsError(ws) Then
'------
End If
ThisWorkbook.Activate
Comment faire la même chose en restant dans le classeur client sans etre basculer dans le classeur compta.???
With ThisWorkbook
'le code---
End With