Voila je desire extraire des chaines de characteres via le separateur / et copier se ki se trouve entre les / et le coller dans des fichiers *.000 jusk au nombre de seprataion /  
en fait le fichier sur lekel j extrait ressembla a sa
/la ya du texte c est cool//et la encore un autre 001//la 002//.../
Donc je doit separer cette chaine en 4 partie  
1-la ya du texte c est cool
2-et la encore un autre 001
3-la 002
4-...
c est 4 partie vont etre stocker ds des fichier .000 .001 .002 .003
Voila je suis debutant si vous avez des sources qui peuvent m aider merci d avance.

ça devrait t'aller ça :
 
'but de cette fonction recupérer une chaine comprise entre 2 string connues dans une chaine entiere
 
Public Function Recup_String(Str1 As String, Str2 As String, Str_Search As String) As String
 
Dim place1 As Long  'place de la string 1
Dim long_string1 As Integer
Dim long_string2 As Integer
Dim place2 As Long  'place de la string 2
Dim long_string As Integer 'long de la string a prendre...
Dim tmp_start As Long
Dim tmp_long As Long
 
long_string1 = Len(Str1)
long_string2 = Len(Str2)
long_string = Len(Str_Search)
place1 = InStr(Str_Search, Str1)
place2 = InStr(Str_Search, Str2)
tmp_start = place1 + long_string1
tmp_long = place2 - tmp_start
Recup_String = Mid(Str_Search, tmp_start, tmp_long)
End Function

Je n ai pas tout compris mai je ne pense pas que cela face ce ke je veule moi j voudrais extraire de la chaine principale cha bout se trouvant entre /.../ et stoker chake parti dans un fichiertyper .000 .001 ...  Juska .n (le nombre de chaine ke j aurais extrait

là ça enregistre pas ça fait que l'extraction...pour l'enregistrement apres c'est pas dur..(enfin ça non plus! mais ça t'evitait de reflechir!)

Voila la reponse  
 
' //---- Début du code
'----- Déclaration des variables locales
    Dim Msg As String '----> Chaine avec le texte à traiter
    Dim Ind As Integer '----> Entier qui contiendra la position des slashs dans la chaine
    Dim Cpteur As Integer '----> Compteur pour les fichiers
    Dim Numfic As Long '----> Numéro d'enregistrement du fichier
 
'----- Initialisation de la chaine (pour le test uniquement"
    Msg = "/la ya du texte c est cool//et la encore un autre 001//la 002//.../"
 
'----- On initialise cpteur à -1 parce qu tu veux commencer à 0
    Cpteur = -1
 
'----- On enlève le(s) slash(s) initial(aux) s'il y en a
    If Left$(Msg, 1) = "/" Then
        Do
            Msg = Mid$(Msg, 2)
        Loop Until Left$(Msg, 1) <> "/"
    End If
 
'----- Recherche du premier slash (il déterminera également la fin de la première série de caractères
    Ind = InStr(Msg, "/" )
    Do While Ind <> 0 '----> boucle do loop (on ne sait pas de combien d'élément est constitué la chaîne
        Cpteur = Cpteur + 1 '----> incrément de compteur, le premier fichier sera .000
        Numfic = FreeFile '----> numéro de canal pour le fichier
        Open "c: emp estmonfic." + Format(Cpteur, "000" ) For Output As Numfic '----> ouverture du fichier en écriture
        Print #Numfic, Left$(Msg, Ind - 1) '----> envoie de la chaîne lue dans le fichier
        Close Numfic '----> fermeture du fichier, on n'en a plus besoin
        Msg = Mid$(Msg, Ind + 2) '----> on enlève de la chaîne de caractère l'élément enregistré
        Ind = InStr(Msg, "/" ) '----> on détermine où se trouve le prochain slash
    Loop '----> on reprend la boucle si un slash a été trouvé
 
' //---- Fin du code