Sub test()
Dim référence As String
référence = Range("R3").Value
début_chemin = "F:\methodes_meca\B SEVESTRE\SMED optimisation changement série\Feuille d'op\"
On Error Resume Next
Workbooks.Open Filename:=début_chemin & "\" & référence & ".xlsx", UpdateLinks:=False
If Err.Number <> 0 Then
Workbooks.Open Filename:=début_chemin & "\" & référence & ".xls", UpdateLinks:=False
End If
On Error GoTo 0
End Sub