Private Sub Form_Load() Dim FileName As String Dim nPos As Long Dim Mois As Long Dim Annee As Long FileName = "C:\folder\qui\importe peu\capteur solaire 0111.txt" nPos = InStrRev(FileName, "") If nPos Then FileName = Strings.Mid$(FileName, nPos + 1) End If nPos = InStrRev(FileName, ".") If nPos Then FileName = Strings.Left$(FileName, nPos - 1) End If If Len(FileName) >= 4 Then Mois = Val(Strings.Mid$(FileName, Len(FileName) - 3, 2)) Annee = 2000 + Val(Strings.Right$(FileName, 2)) End If If Mois > 0 Then MsgBox MonthName(Mois) & " " & Annee End If End Sub
Private Sub Form_Load() Dim FileName As String Dim Match As Object Dim Mois As Long Dim Annee As Long FileName = "C:\folder\qui\importe peu\capteur solaire 0111.txt" With CreateObject("VbScript.RegExp") .Pattern = ".+(\d{2})(\d{2})(?:\..+)?$" If .Test(FileName) Then Set Match = .Execute(FileName)(0) Mois = Val(Match.submatches(0)) Annee = 2000 + Val(Match.submatches(1)) End If End With If Mois > 0 Then MsgBox MonthName(Mois) & " " & Annee End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question