Discussion :

[BAYRAL]

Bonjour,
Je souhaite extraire une partie de données d'un champ, à savoir dans l'exemple ci-dessous :
Pas de domiciliation pour les prestations (Montant:25,10. Paiement Adhérent)
Je voudrais extraire uniquement le montant. Mais le champ n'a pas toujours la même valeur. La seule valeur reprise à chaque fois est Montant: et le . Paiement après le montant.
Donc la demande est Extraire entre Montant: et . Paiement.
Merci par avance de votre aide.

[Jean-Philippe André]

bonjour,
tu peux essayer d'utiliser les fonction Mid et Instr

en prime, une fonction que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function RecupererTexteEntreBornes(texte As String, textedebut As String, textefin As String) As String
Dim result As String
Dim debut As Integer
Dim fin As Integer
    debut = InStr(1, texte, textedebut)
    fin = InStr(debut + Len(textedebut), texte, textefin)
    result = ""
    If debut > 0 Then
        If fin > debut + Len(textedebut) Then
            result = Mid(texte, debut + Len(textedebut), fin - debut - Len(textedebut))
        Else
            result = Right(texte, Len(texte) - debut - Len(textedebut) + 1)
        End If
    End If
    RecupererTexteEntreBornes = result
End Function