IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Lire Fichier texte


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Juillet 2007
    Messages : 27
    Par défaut Lire Fichier texte
    Bonjour,

    J'ai un fichier texte qui se comporte de la sorte:

    Y:\1 ADP File\Archiv
    RW S-1-5-21-1708537768-651377827-682003330-1175
    RW S-1-5-21-4049260106-1541354479-2465529134-1767
    RW BUILTIN\Administrators
    RW VIFOR1\GRFACT
    RW VIFOR1\GRFACT
    RW VIFOR1\Alloga Users
    R Everyone
    R VIFOR1\Mani
    RW VIFOR1\Mariotti
    RW VIFOR1\Vuignier
    Y:\1 ADP File ASW\01.2007
    RW S-1-5-21-2210198011-1735986513-761363924-2522
    RW VIFOR1\GRFACT
    RW VIFOR1\Alloga Users
    RW GALEXIS1\U0ABM
    RW ALLOGA1\ualbubohlm
    RW ALLOGA1\ualbudevev
    RW ALLOGA1\ualbuledep
    RW VIFOR1\Mariotti
    RW GALEXIS1\U0OPR
    RW GALEXIS1\U0GRE
    R VIFOR1\roggo
    RW ALLOGA1\ualbuschnc
    RW VIFOR1\Vuignier
    RW GALEXIS1\u0bwa
    RW ALLOGA1\ualbuwalkd
    RW ALLOGA1\ualbuzahrc
    R VIFOR1\zenner

    Et je voudrais pouvoir lire chaque ligne du fichier (ça c'est bon je sais faire) et les écrire dans un fichier excel. Mais le problème est la suivant. J'amerais que quand la ligne commence par Y:\ , ça me l'écrive à un endroit spéciale et si y a pas ça devant, ça me l'écrive ailleur... Je sais juste pas comment faire pour lui faire contrôler que la ligne commence ou pas par Y:\

    Quelqu'un aurait-il une idée?


    merci d'avance

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Si tu sais trouver les lignes commençant par Y:\
    if Instr(LaLigne, "Y:\") = 1 then
    Que te manque-t-il ?

  3. #3
    Membre chevronné Avatar de mordrhim
    Inscrit en
    Avril 2007
    Messages
    270
    Détails du profil
    Informations personnelles :
    Âge : 43

    Informations forums :
    Inscription : Avril 2007
    Messages : 270
    Par défaut
    Je me permets de faire une petite correction Ouskel
    va donner 1 si "Y:\" est contenu dans la ligne, pour savoir si elle commence par"Y:\" j'aurais plutôt fait
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If Left(LaLigne,3) = "Y:\" Then
        'Le code pour placer à ce "certain endroit"
    Else
        'Le code dans les autres cas
    End If
    Après tu as juste à faire ça pour chaque ligne que tu lis.

  4. #4
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Citation Envoyé par mordrhim
    va donner 1 si "Y:\" est contenu dans la ligne
    Faux...

    Instr renvoie une position. Donc si elle renvoie 1, c'est qu'on est bien en début de chaîne.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  5. #5
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut Si la touche F1 n'existe pas sur votre PC...
    Si besoin utilise se site. tu retrouveras les memes informations qu'avec F1

    http://search.msdn.microsoft.com/sea...fr&query=instr

Discussions similaires

  1. java : lire fichier texte application web (war)
    Par drob38 dans le forum Servlets/JSP
    Réponses: 2
    Dernier message: 08/07/2009, 00h31
  2. [VB.NET 2.0] lire fichier text
    Par Emcy dans le forum Windows Forms
    Réponses: 4
    Dernier message: 20/12/2006, 09h45
  3. Lire fichier texte
    Par kinouseb dans le forum VC++ .NET
    Réponses: 2
    Dernier message: 08/11/2006, 18h01
  4. Lire fichier texte en respectant la police, la forme
    Par loupin dans le forum Langage
    Réponses: 2
    Dernier message: 10/07/2006, 23h49
  5. Lire fichier Texte
    Par rprom1 dans le forum Entrée/Sortie
    Réponses: 12
    Dernier message: 15/03/2006, 17h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo