salut bug
voila une idee de base
Option Explicit
Sub ouvrir_fichier()
Dim a As String, b As String, c As String
Dim nom As String, d As String
a = ActiveWorkbook.Name
b = Left(a, Len(a) - 6)
c = Mid(a, Len(a) - 5, 2)
If Val(c) = 0 Then
d = Val(c) - 1
Else
d = "0" & Val(c) - 1
End If
nom = b & d & ".xls"
Workbooks.Open ("C:\mes documents\" & nom)
End Sub
Mytå