newcodeur
Messages postés25Date d'inscriptionlundi 11 décembre 2000StatutMembreDernière intervention 1 juillet 2008
-
19 mai 2008 à 16:15
newcodeur
Messages postés25Date d'inscriptionlundi 11 décembre 2000StatutMembreDernière intervention 1 juillet 2008
-
13 juin 2008 à 14:26
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.
A voir également:
Extraire et mettre en forme un fichier texte en vba sous excel
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 23 mai 2008 à 17:04
pour du technique et gain de temps / mémoire, y'a le site de Us30 Sinon, perso, je me suis amélioré (alors que je n'ai aucun diplômes) en faisant des milliards de tests, cherchant dans l'aide (F1), explorateur d'objets (F2) et google (sache que les tutoriaux de developpez.com sont très très intéressant)
Un bouquin est aussi très appréciable
newcodeur
Messages postés25Date d'inscriptionlundi 11 décembre 2000StatutMembreDernière intervention 1 juillet 2008 26 mai 2008 à 15:14
Salut mortalino j'ai vraiment esayé plusieurs méthodes , j'ai lus certains tuto sur le site développez mais vraiment je n'arrive pas a afficher les données dans la mise en forme voulue pourrais-tu me donner une direction ???( j'ai modifier la fonction , j'ai utiliser des boucles mais sa ne m'affiche toujours pas ce que je souhaite ...)
j'ai passé tout mon week end sur le vba
bon j'avoue uqe sa rentre mieux maintenant mais aurais-tu une idée ???
j'ai même utilisé un second compteur dans la fonction test..... mais toujours rien....
newcodeur
Messages postés25Date d'inscriptionlundi 11 décembre 2000StatutMembreDernière intervention 1 juillet 2008 27 mai 2008 à 11:44
Bonjour Mortalino!!!!
J'ai besoin de ton aide, je voudrais récupérer des informations dans un fichier xml( qui se trouve dans certaines balises) pour les afficher sous excel , je code en vba sous excel.
J'ai fait plusieurs recherches et je vois qu'il faut activer les références , j'ai activé celle-ci
Microsoft Xml,V6.0 et Microsoft Xml, version 2.0
est-ce les bonnes???
faut-il utiliser seulement un parseur qui scanne mon fichier , extrait les infos entre les balises et retournes les valeurs????
dois-je utiliser les méthodes DOMdocument(j'ai vu ça sur le site msdn) , la méthode OpenXml ?????
Merci de ton aide.
Vous n’avez pas trouvé la réponse que vous recherchez ?
regarde le lien.
Peux pas t'aider, je ne connais pas de parseur xml pour vb. Mais perso, je pense que c'est l'occasion d'en faire un
Regarde bien la structure du fichier, peut-être faire comme la lecture d'un fichier texte, et dès que la balise qui t'intéresse est trouvée, tu récupères la ligne, tu vire les balises de début et fin, et te reste plus que la donnée
newcodeur
Messages postés25Date d'inscriptionlundi 11 décembre 2000StatutMembreDernière intervention 1 juillet 2008 13 juin 2008 à 11:12
Salut mortalino sa fé un bail !!!
Bon j'ai progressé depuis la dernière fois mais la je suis bloqué depuis 1 semaine o faite voici mon pb :
J' ai 2 feuilles excel : dans la 1ère j'ai une colonne ou j'ai des mots clefs de rechreches dans la seconde j'ai une colonne ou j'ai des chaines de caractères avec ces memes mots clefs.
Je n'arrive pas a partir de la première colonne ( à partir des mots clefs) a extraire les chaines de caractères dans une nouvelle feuille ( 1 feuille par mot clef).
pour effectuer le test j'utilise une msgbox.
j'ai eu plusieurs pb :
-à un moment j'avais un pb de mémoire.
-à un autre j'avais le compteur qui bloqué sur 65536
-est maintenant sa tourne en rond.
je t'envois mon code j'ai laissé volontairement les commentaire de mes autres version !!!
je suis tj débutant.
can you help me...????
le code ke je bosse est celui ki n'a pas de " ' "
j'arrive bien a extraire le mot mais je n'arive pas à faire la comparaison.
CODE:
Option Explicit
Sub MiseFormeXML()
' fonction permettant de faire la correspondance entre les Mo du fichier lo
' et les Mos du fichier XMML pour mettre en forme les fichiers
' 1 obj par feuille
Dim NomObj As String
Dim NomObjMoid As String
Dim moid As String
Dim i As Integer
Dim j As Long
Dim cmpt As Long
Dim tabObj(60) As String
Dim motcoupe1() As String
Dim motcoupe2() As String
Dim motcoupe3 As String
Dim dernier As String
'If IsEmpty(Worksheets("Sheet5").Cells(i, 1).Value) = False Then
'Do While IsEmpty(Worksheets("Sheet5").Cells(i, 1).Value) = False
i = 1
NomObj = Worksheets("Sheet5").Cells(i, 1).Value
'MsgBox (NomObj)
'Do While IsEmpty(Worksheets("Sheet5").Cells(i, 1).Value) = False
j = 1
' comparaison pour savoir si si les 2 mots sont bien correcte
' il ne trouve pas le mot car la comparaison est effectuée sur toutte la chaine de caractère
'********************************************traitement de la chaine de catractère moid
'*******************************utilisation des fonctions de traitement des chaines de caractères
'NomObjMoid = Mid(NomObjMoid, 3)
'***************************fonction split qui permet de découper une chaine de carac en fonctin d' un délimiteur
'on coupe la chaine de carac du moid
'motcoupe1 = Split(NomObjMoid, ",")
'For cmpt = LBound(motcoupe1) To UBound(motcoupe1)
'on selectionne le dernier élément de la dernière 'chaine' de la chaine MOID
'il contient le MO avec d'autre infos (carac non voulut)
'dernier = motcoupe1(UBound(motcoupe1))
'on refait un découpage de la chaine pour n'obtenir que le Managed Object voulut
' le découpage est obtenu par rapport au mot clef '='
'motcoupe2 = Split(dernier, "=")
'on selectionne le premier élément de la sous chaine
'il s'agit du managed object voulut
'motcoupe3 = motcoupe2(LBound(motcoupe2))
'MsgBox (motcoupe3)
'Next cmpt
'****************************************************************fin fonction split*****************
'***************************************fonction filter qui filtre une chaine de carac
'
'
'
'*******************************************************
'*********si test ok alors on passe à l'étape création d'un nouvelle feuille et remplissage de la feuille
'End If
'ReDim Preserve motcoupe1(1 To 10)
'ReDim Preserve motcoupe2(1 To 10)
'Next j
'Loop
newcodeur
Messages postés25Date d'inscriptionlundi 11 décembre 2000StatutMembreDernière intervention 1 juillet 2008 13 juin 2008 à 14:26
Salut je crois que j'ai trouvé le pb !!!!
je tenvois le code
Option Explicit
Sub MiseFormeXML_OK()
' fonction permettant de faire la correspondance entre les Mo du fichier lo
' et les Mos du fichier XMML pour mettre en forme les fichiers
' 1 obj par feuille
Dim NomObj As String
Dim NomObjMoid As String
Dim testmoid As Boolean
Dim i As Integer
Dim j As Long
Dim cmpt As Long
Dim tabObj(60) As String
Dim motcoupe1() As String
Dim motcoupe2() As String
Dim motcoupe3 As String
Dim dernier As String
i = 1
NomObj = Worksheets("Sheet5").Cells(i, 1).Value
j = j + 1
NomObjMoid = Worksheets("Sheet12").Cells(j, 5).Value
End If
If IsEmpty(Worksheets("Sheet12").Cells(j, 5).Value) = True Then
j = 1
NomObjMoid = Worksheets("Sheet12").Cells(j, 5).Value
i = i + 1
'on change de "MO"
NomObj = Worksheets("Sheet5").Cells(i, 1).Value
End If
Loop
End Sub
si tu ve je pourrais tenvoyé le fichier excel avec les valeurs des cellules