Extraction de chaine de caractères VB

Bonjour à tous,

Je cherche à extraire dans ce fichier à l'aide d'une macro : plusieurs données afin de les placer dans plusieurs variables.

Pour info :

voici la cellule

010 - CHAINE - DE CHAR(68180 - HORBOURG WIHR) - 1

- Le premier code de la cellule (010) reste sur 3 caractères et ne change pas de place. C'est la première donnée a extraire

- Le code postal (68180) est la deuxième donnée a extraire elle reste après CHAINE - DE CHAR qui lui peut faire une longueur différente mais le code postl reste collé à la parenthèse (ça peut être un repère).

- Le "1" est la dernière donnée à extraire et reste sur un caractère à la fin.

Je laisse un fichier joint

Merci d'avance pour votre aide.

Bonjour

    v1 = Left(Range("A1"), 3)
    v2 = Mid(Split(Range("A1"), "(")(1), 1, 5)
    v3 = Right(Range("A1"), 1)

sur feuille de calcul :

en B1 :

=GAUCHE(A1;3)

En C1 :

=STXT(A1;CHERCHE("(";A1;2)+1;5)

En D1 :

=DROITE(A1;1)

Cela te convient-il ?

C'est exactement ça. Merci !