C'est simplement GENIAL !!!!!!!!!!!!!!!!!!!!!!
J'ai continuer à ajouter les lignes de commande et tout marche bien.
Juste pour comprendre, peux tu m'expliquer en détail ce que veulent dire les lignes.
Car j'ai recopier, ça marche mais c'est pas pour autant que j'ai tout compris.
Le seul "Bug" c'est que dans ton fichier Texte d'exemple toutes tes lignes commencent par un "$" et pas dans le mien. Mais c'est pas grave je vais bien trouver une ligne de commande qui me rajoute un signe $ devant toutes les lignes dans mon fichier texte, comme ça ta macro marchera toujours aussi bien, et moi ça ne me fais rien d'ajouter un signe à ce stade.
En tout cas, c'est francht cool de ta pars, une aide comme la tienne ne s'appel plus de l'aide mais un professorat !!
voici TON code:
Sub recup_fichier()
i = 2
Open "c:\essai.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Enreg
'pos1 variable donnant la position du premier $
pos1 = WorksheetFunction.Find("$", Enreg, 1)
'pos2 variable donnant la position du deuxième $
pos2 = WorksheetFunction.Find("$", Enreg, pos1 + 1)
'pos3 variable donnant la position du troisième $
pos3 = WorksheetFunction.Find("$", Enreg, pos2 + 1)
'pos4 variable donnant la position du troisième $
pos4 = WorksheetFunction.Find("$", Enreg, pos3 + 1)
'pos5 variable donnant la position du troisième $
pos5 = WorksheetFunction.Find("$", Enreg, pos4 + 1)
'pos6 variable donnant la position du troisième $
pos6 = WorksheetFunction.Find("$", Enreg, pos5 + 1)
'pos7 variable donnant la position du troisième $
pos7 = WorksheetFunction.Find("$", Enreg, pos6 + 1)
'pos8 variable donnant la position du troisième $
pos8 = WorksheetFunction.Find("$", Enreg, pos7 + 1)
'pos9 variable donnant la position du troisième $
pos9 = WorksheetFunction.Find("$", Enreg, pos8 + 1)
'pos10 variable donnant la position du troisième $
pos10 = WorksheetFunction.Find("$", Enreg, pos9 + 1)
'pos11 variable donnant la position du troisième $
pos11 = WorksheetFunction.Find("$", Enreg, pos10 + 1)
'pos12 variable donnant la position du troisième $
pos12 = WorksheetFunction.Find("$", Enreg, pos11 + 1)
Range("A" & i) = Mid(Enreg, pos1 + 1, pos2 - pos1 - 1)
Range("B" & i) = Mid(Enreg, pos2 + 1, pos3 - pos2 - 1)
Range("C" & i) = Mid(Enreg, pos3 + 1, pos4 - pos3 - 1)
Range("D" & i) = Mid(Enreg, pos4 + 1, pos5 - pos4 - 1)
Range("E" & i) = Mid(Enreg, pos5 + 1, pos6 - pos5 - 1)
Range("F" & i) = Mid(Enreg, pos6 + 1, pos7 - pos6 - 1)
Range("G" & i) = Mid(Enreg, pos7 + 1, pos8 - pos7 - 1)
Range("H" & i) = Mid(Enreg, pos8 + 1, pos9 - pos8 - 1)
Range("I" & i) = Mid(Enreg, pos9 + 1, pos10 - pos9 - 1)
Range("J" & i) = Mid(Enreg, pos10 + 1, pos11 - pos10 - 1)
Range("K" & i) = Mid(Enreg, pos11 + 1, pos12 - pos11 - 1)
Range("L" & i) = Mid(Enreg, pos12 + 1)
i = i + 1
Loop
Close #1
End Sub
