1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Sub OuvrirFich()
Dim N As String
Dim M As Integer
Dim Mois, A As Integer
'Si ont veux ouvrir le classeur du mois en cour...
Mois = Array("", "Janv", "Fév", "Mars", "Avril", "Mai", "Juin", "Juil", "Aoùt", "Sept", "Octob", "Nov", "Déc")
A = Year(Now): M = Month(Now)
N = "C:\etat_a" & Mois(M) & Right(CStr(A), 2) & ".xls"
'Si mois précédant mettre M-1 et vérifier qu'il n'est pas à zéro, sinon changer d'année.
If Dir(N) = "" Then
MsgBox "Le classeur du mois de " & Mois(M) & " n'existe pas"
Exit Sub
End If
Workbooks.Open Filename:=N
End Sub |
Partager