Discussion :

[emulamateur]

Bonsoir,

Je crée des fiches clients et aimerai automatiser la saisie de leur identification.

Soit par exemple la chaine de caractères suivante

"Siège social 90 du General de Gaulle - 92400 COURBEVOIE

SIRET 50433071300018 ... blabla"

J'aimerai récupérer "90 du général de Gaulle - 92400 COURBEVOIE" ... c'est à dire ce qui est compris entre "siège social" et "SIRET".

La difficulté c'est que "siège social" et "Siret" ne changent pas ... alors que ce qu'il y a entre les deux ...oui (vu que l'adresse est différente pour chaque client )

quelqu'un a-t-il une idée pour m'aider ?

Merci

[LE VIEUX]

bonsoir,
essayes ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Function trier()
ch = "Siège social 90 du General de Gaulle - 92400 COURBEVOIE SIRET 50433071300018 ... blabla"
ch1 = (Split(ch, " ")(2)) 'on cherche le 1er mot après Siège social
ch2 = Mid(ch, InStr(ch, ch1)) 'on extrait ce qui précède l'adresse
 
ch3 = Left(ch2, (InStr(ch2, " SIRET"))) 'on enlève ce qu'il y a a partir de SIRET
 
Debug.Print ch3
End Function

où plus simplement :
si les 2 premiers mots ne changent pas :

Code :

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

1
2
3
4
5
6
7
8
9
Function trier2()
ch = "Siège social 90 du General de Gaulle - 92400 COURBEVOIE SIRET 50433071300018 ... blabla"
 
ch3 = Left(ch, (InStr(ch, " SIRET"))) 'on enlève ce qu'il y a a partir de SIRET
ch4 = Mid(ch3, 14) 'on enlève les 14 premiers caractères
 
Debug.Print ch4
 
End Function

[emulamateur]

Merci

Je vais essayer cela ce soir et salut la réactivité de ce forum et la gentillesse des forumeurs ...

Au risque de passer pour un "ignard", est-ce que developpez.com organise des "journées de rencontre" entre forumeurs ?

[emulamateur]

Je me suis inspiré de ton code et cela marche ...

Encore merci

en plus, cela m'a permis de comprendre un peu mieux la manipulation des chaines de caractères ...