Posez votre question Signaler

[VBA] Importer certaines lignes, fichier log [Résolu]

Elboubdelapampa 153Messages postés 26 janvier 2010Date d'inscription 18 mars 2012Dernière intervention - Dernière réponse le 21 juin 2010 à 13:05

Bonjour,
J'ai un fichier log possédant un trop grand nombre de ligne pour être importer directement dans Exel. Vu que il n'y a que les lignes commençant par "===>" qui m'intéressent, je me demandais si il n'y a pas une fonction permettant de chercher dans le fichier puis de les importer.
J'ai cherché dans l'aide, dans les forum, mais j'ai rien trouvé pour VBA.
Merci.

[VBA] Importer certaines lignes, fichier log »

Suggestions

[VBA] Importer certaines lignes, fichier log
Excel : Détection dernière ligne d'un tableau (Résolu) » Forum
VBA - Ecrire sur le lignes d'un fichier .txt (Résolu) » Forum
Logs connexions SFTP via WinSCP » Forum
[C++] lire un fichier texte ligne par ligne (Résolu) » Forum
Sed - Supprimer une ou plusieurs lignes d'un fichier » Fiches pratiques

Plus

Réponse

Elboubdelapampa 153Messages postés 26 janvier 2010Date d'inscription 18 mars 2012Dernière intervention 21 juin 2010 à 09:52

Oui, j'ai appris sur le tas, mais je commence à me débrouiller avec VB 6 sur Excel. Je pensais justement faire ça avec VBA, mais je sais pas vraiment comment commencer...

Ajouter un commentaire

Afficher les 4 commentaires

Polux31- 21 juin 2010 à 10:06

Il faut lire le fichier et ne récupérer que les lignes commençant par "===>'"

Si c'est la lecture du fichier qui te pose problème, voilà un exemple :

Sub OpenFichier()
Dim fp As Integer     'pointeur vers le fichier
Dim chemin As String    'chemin du fichier et nom du fichier
Dim chaineStr As String      'Variable qui récupère le contenu d'une ligne du fichier pour le traitement

     fp = FreeFile
     chemin = "C:\temp\monfichier.log"

    On Error Resume Next
    Open chemin For Input As #fp
    While Not EOF(fp)
        Line Input #fp, chaineStr
            'code traitant le contenu de chaineStr
    Wend
    
    If Err.Number <> 0 Then
        MsgBox Err.Number & " - " & Err.Description, vbCritical, "Erreur"
        Exit Sub
    End If

End Sub

;o)

Elboubdelapampa- 21 juin 2010 à 10:24

Donc si je comprend bien Open chemin For Input As #fp permet d'ouvrir le fichier sans l'importer directement

A quoi correspond #fp?
Dans Line Input je met "===>" à la place de #fp?
Merci pour la réponse, J'avoue que je suis un peu perdu avec l'aide F1 (j'ai excel en allemand...)

Polux31- 21 juin 2010 à 12:38

#fp est ce que l'on appelle un "pointeur". C'est à dire qu'il contient l'adresse mémoire du fichier (pour faire court ^^)

Line Input #fp, chaineStr > récupère une ligne du fichier et la stock dans chaineStr. Il faut ensuite traiter le contenu de chaineStr.

Je te conseille de faire un tour ici http://vb.developpez.com/cours/.

Bon courage

;o)

Elboubdelapampa- 21 juin 2010 à 13:05

Merci beaucoup pour la réponse et le bout de code, je espérait pas tant...

Réponse

Polux31 5740Messages postés 25 septembre 2007Date d'inscription 20 novembre 2011Dernière intervention 21 juin 2010 à 09:40

Bonjour,

Non il n'y a pas de fonction intégrée à Excel pour faire ça.

Il faut que tu fasses une macro en VBA.

As-tu des connaissance en VB ?

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

[VBA] Importer certaines lignes, fichier log [Résolu]

[VBA] Importer certaines lignes, fichier log »

Passage au tout numérique : quel coût pour les particuliers ?