Sub MoisSuivant()
Dim chemin$, nom$, an$, mois$, dat&, ext$, fichier$, w As Worksheet
chemin = ThisWorkbook.Path & "\" 'chemin des fichiers PRONOS
nom = ThisWorkbook.Name
an = Mid(nom, 8, 4)
mois = Mid(nom, 13, 2)
If Not IsDate(1 & "/" & mois & "/" & an) Then MsgBox "Nom du fichier incorrect !", 48: Exit Sub
dat = DateSerial(an, mois + 1, 1)
ext = Mid(nom, InStrRev(nom, "."))
fichier = "PRONOS " & Year(dat) & "-" & Format(Month(dat), "00") & ext
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Dir(chemin & fichier) = "" Then
ThisWorkbook.SaveCopyAs chemin & fichier
With Workbooks.Open(chemin & fichier)
Application.Goto .Sheets(1).[A1], True
.Sheets(1).[A4] = ""
For Each w In .Worksheets
If w.Name Like "####-##-##" Then w.Delete
Next
.Save
End With
Else
Workbooks.Open chemin & fichier
End If
End Sub