Bonjour étant un nouvelle entrant dans le monde de la programation je cherche de l'aide...
mon pb est le suivant je n'arrive pas a mettre en forme le fichier texte ci dessous, il faut juste que j'arrive a afficher le mot qui vient aprés create_ dans une colonne et tout ses compteurs associees (commençant par pm dans une autre( chaque pm dans une cellule))


exemple de fichier:
===================================================================
53    Create_E1Ttp                              ACTIVE     900  3
===================================================================
E1Ttp                           3    pmEs
                                     pmSes
                                     pmUas
===================================================================
54    Create_PlugInUnit                         ACTIVE     900  1
===================================================================
PlugInUnit                      1    pmProcessorLoad
===================================================================
55    Create_TdmTermGrp                         ACTIVE     900  3
===================================================================
TdmTermGrp                      3    pmNrOfTdmTermsBusy
                                     pmNrOfTdmTermsRej
                                     pmNrOfTdmTermsReq


le pb est que lorsque je fais l'importation de mon fichier excel me garde la mise en forme actuelle!!!
j'ai essayé plusieurs codes mais sa ne donne rien .
Quelqu'un aurait-il une piste ???
merci.

salut,

suffit de lire ton fichier texte, et de placer contenu dans une variable.
ensuite, à coup de instr, tu récupères tes valeurs

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Salut mortalino et merci de ton conseil
j'ai utilisé la fonction suivante :

Sub Nomdufichier()
Dim NomFichier
NomFichier = Application.GetOpenFilename
If VarType(NomFichier) = vbBoolean Then MsgBox "Action annulée" _
Else MsgBox "Fichier sélectionné : " & NomFichier
End Sub

 mais je n'arrive toujours pas à extraire les informations désiré?
et pour le "instr" sa signifie instruction ?
Merci de ton aide .

Bonjour,
tu peu essayé avec
Dim T
Dim Txt as string 'ton texte
T=Split(Txt,"Create_",-1)

dans le tableau T tu va avoir
T(1) = "Create_"
et dans T(2) tu va avoir la suite
for i=1 to len(T(2)
   if mid(T(2)="" then exit for
next i
LeNomQueTuCherche = left(T(2),i-1)
Si j'ai bien compris...
A+

Merci beaucoup !!!
Je vais maintenant à partir de ce que tu m'a donné afficher sa directement dans une feuille excel avec les pm associés je te tiendrais informé de la suite.

Merci!!!!
Ps: j'ai beuacoup de chemin à faire pour devenir un as de la prog!!!!!

Salut !!!
j'ai réussi a afficher les valeurs dans la colonne A de la feuillle excel (parce que les valeurs doivent s'afficher dans une feuille excel et non pas une msgbox , j'avais mal formulé mon pb désolé)
par contre je n'arrive toujours pas a afficher les mots commençant par pm.... qui leurs sont associés (les pm devront quant à eux se trouver dans la colonne B)

j'ai testé plusieurs boucle a l'intérieur de la premeière boucle mais sa ne donne rien???
comment dois-je faire????

voici mon code (ou plutôt ton code !!! ):

Option Explicit

Private Sub Form_Load()
    Dim sContenu        As String
    Dim sStringSearch   As String
    Dim ff              As Integer
    Dim lPlacement      As Long
    Dim lFin            As Long
    Dim lIndex          As Long
    Dim sValues()       As String
    Dim vara As Long, varb
   
ff = FreeFile: lIndex = -1
sStringSearch = "Create_"

Open "C:\Documents and Settings\ediaahm\Desktop\Counter_Analyser\log.txt" For Input As #ff
    sContenu = Input$(LOF(ff), #ff)
Close #ff
vara = 1
varb = 2

'cleanning of the [AFFICH_log] sheet
Sheets("Sheet2").Cells.ClearContents
Sheets("Sheet2").Activate

Do
lPlacement = InStr(lPlacement + 1, sContenu, sStringSearch)
If lPlacement > 0 Then
    lFin = InStr(lPlacement + 1, sContenu, " ")
    lIndex = lIndex + 1
    ReDim Preserve sValues(lIndex)
    sValues(lIndex) = Mid$(sContenu, lPlacement + Len(sStringSearch), lFin - lPlacement + Len(sStringSearch))
Else
    Exit Do
End If
Loop

For lIndex = LBound(sValues) To UBound(sValues)
    'MsgBox sValues(lIndex)
   
    ActiveSheet.Cells(varb, 1) = sValues(lIndex)
    varb = varb + 1
    ActiveSheet.Columns.AutoFit
   
Next lIndex
Erase sValues
End Sub

re,

je te l'ai fait en Fonction, ce sera plus simple d'utilisation, regarde surtout la sub exemple, la Function ne doit ^pas être modifée :

Option Explicit

Private Function ExtractDatas(ByVal sStringSearch As String, sValues() As String) As Boolean
    Dim sContenu        As String
    Dim ff              As Integer
    Dim lPlacement      As Long
    Dim lFin            As Long
    Dim lIndex          As Long
    
ff = FreeFile: lIndex = -1

Open "C:\Documents and Settings\ediaahm\Desktop\Counter_Analyser\log1.txt" For Input As #ff
    sContenu = Input$(LOF(ff), #ff)
Close #ff

Do
lPlacement = InStr(lPlacement + 1, sContenu, sStringSearch)
If lPlacement > 0 Then
    lFin = InStr(lPlacement + 1, sContenu, " ")
    If InStr(lPlacement + 1, sContenu, vbCrLf) < lFin Then lFin = InStr(lPlacement + 1, sContenu, vbCrLf)
    If lFin = 0 Then lFin = Len(sContenu)
    lIndex = lIndex + 1
    ReDim Preserve sValues(lIndex)
    sValues(lIndex) = Mid$(sContenu, lPlacement + Len(sStringSearch), lFin - (lPlacement + Len(sStringSearch)))
Else
    Exit Do
End If
Loop
ExtractDatas = True
End Function

Sub test()
    Dim myValues1() As String, myValues2() As String, lIndex As Long
    Dim i As Integer
    
If ExtractDatas("Create_", myValues1) Then
    For lIndex = LBound(myValues1) To UBound(myValues1)
    i = i + 1
        Cells(i, 1).Value = myValues1(lIndex)
    Next lIndex
    Erase myValues1
End If
i = 0

If ExtractDatas("pm", myValues2) Then
    For lIndex = LBound(myValues2) To UBound(myValues2)
    i = i + 1
        Cells(i, 2).Value = myValues2(lIndex)
    Next lIndex
    Erase myValues2
End If

End Sub
~ Mortalino ~ Colorisation automatique

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Encore merci mortalino !!!mais le pb est que pour la colonne B je dois avoir le pm devant chaque mot et puis je dois pouvoir associer chaque mot aprés "Create_" avec les pm qui lui sont associés par contre je dois garder le mot pm deavnt chaque conteur de la colonne B ex:

voici un exemple de la mise en forme final les etoile !!!!!)

Colonne A                  Colonne B
*******************************************
E1Ttp                        pmEs
                                  pmSes
                                  pmUas
******************************************
PlugInUnit                   pmProcessorLoad
*********************************************
TdmTermGrp              pmNrOfTdmTermsBusy
                                   pmNrOfTdmTermsRej
                                   pmNrOfTdmTermsReq

**************************************