Extraction de 14 chiffres

Bonjour,

Je cherche une solution afin d'extraire des nombres composés de 14 chiffres.

J'ai un fichier Word reprenant plusieurs pages. Dedans se trouvent des numéros que je dois garder et uniquement ces numéros. Mon problème est que ces nombres de 14 chiffres ne sont pas tous repris dans la même mise en page. Parfois c'est dans une phrase, parfois dans un tableau, parfois précédé de "n°", parfois de rien, parfois de ":", voir d'autres encore ... Bref c'est très différents et la seule et unique caractéristique qu'ils ont en commun c'est qu'il y a 14 chiffres dans le nombre.

exemple :

Nombre 1 : 12345678914725

le nombre deux est 23456789114725

n°34567891214725 est le 3ème nombre

J'aimerais donc pouvoir facilement récupérer tous les nombres de 14 chiffres qui se trouvent dans tout le fichier word pour les utiliser dans excel (je fais évidemment un copier coller simple de Word vers Excel avant ;) )

difficile pour moi de vous donner un fichier anonymisé, mais si vous ne comprenez pas ce que je recherche je pourrai toujours essayer d'en faire un...

Merci à qui pourra m'aider.

Rekiss

bonjour,

une proposition via une fonction personnalisée

Function extrairenombre(texte, longueur)
    t = texte & " "
    For i = 1 To Len(t)
        c = Mid(t, i, 1)
        If c Like "#" Then
            a = a & c
        ElseIf Len(a) = longueur Then
            extrairenombre = a
            Exit Function
        Else
            a = ""
        End If
    Next i
End Function

voir exemple d'utilisation dans fichier joint :

C'est parfait comme souvent.

Merci h2so4