Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Function RemoveTags(Str As String) As String Dim REG As New RegExp With REG .IgnoreCase = True .MultiLine = True .Global = True .Pattern = "</?[^>]*>" RemoveTags = .Replace(Str, vbNullString) End With End Function