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

VBScript Discussion :

Création un fichier XLS à partir de deux fichiers txt.


Sujet :

VBScript

  1. #1
    Membre régulier
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Novembre 2012
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2012
    Messages : 54
    Points : 76
    Points
    76
    Par défaut Création un fichier XLS à partir de deux fichiers txt.
    Bonjour, tlm

    Ca fait moins de 2 semaines que je me suis mi au VBS.
    Je suis vraiment débutant !!:

    J'ai essayer de faire développer un outils pour facilité la tâche répétitif :
    Je veux ne veux pas utiliser Exel avec macro script.....!!!!
    Voila mon objectif :

    J'ai 2 fichiers texte : Poste.txt et Logiciel.txt

    le contenu de fichier poste est :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Nomposte1
    Nomposte2
    Nomposte3
    Nomposte4
    Le contenu de fichier logiciel est :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    logiciel1,V010
    logiciel2,V09
    logiciel3,V1
    logiciel4,V10.15

    Donc j'ai commencé mon code mais je n'arrive pas à écrire deuxieme ligne !!!
    J'ai du mal avec le boucle !!

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    				Sub lecture		
     
    				Const ForReading = 1, ForWriting = 2 
    				Dim oFso, fp, fl, ExcelTele
     
     
    				Set oFso = CreateObject("Scripting.FileSystemObject")
    				'lien sur le bureau
    				Dim WS : Set WS = CreateObject("wscript.shell")
    				FloDest = WS.ExpandEnvironmentStrings("%USERPROFILE%")
    				Dim SurBureau : SurBureau = FloDest & "\Desktop\Resulta.xls"
     
     
    				'Ouvrir fichier Poste
    				Set fp = oFso.OpenTextFile(FichPost.Value , ForReading)
    				'Ouvrir fichier logiciel
    				Set fl = oFso.OpenTextFile(Fichlogi.Value , ForReading)
    				Set ExcelTele = oFso.OpenTextFile(SurBureau , ForWriting , True)
     
     
    				'--- Déclaration
    				Dim objExcel, objClasseur
    				Set objExcel = CreateObject("Excel.Application")
    				Set objClasseur = objExcel.Workbooks.Open(SurBureau)
     
    				'--- Création de la feuille si besoin
    				Dim strNomFeuille
    				strNomFeuille = "Liste logiciels tout poste"
     
     
    				while Not fp.AtEndOfStream
    					while Not fl.AtEndOfStream
     
    						Msgbox fp.ReadLine 'pour voir si ça affiche bien
    						Msgbox fl.ReadLine 'pour voir si ça affiche bien
    						objExcel.cells(1,1).value = fp.ReadLine 'nom poste 
    						objExcel.cells(1,2).value = fl.ReadLine	'logiciel
    						objExcel.cells(1,3).value = fl.ReadLine 'Version
    						Next
    					Wend
    				Wend
    				objExcel.Close
    				fl.Close
    				fp.Close
    				End sub

    Je voudrais que le resultat soit comme le fichier ci-joint
    http://www.developpez.net/forums/att...1&d=1379015103


    Je vous remercie d'avance.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre régulier
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Novembre 2012
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2012
    Messages : 54
    Points : 76
    Points
    76
    Par défaut
    Rebonjour,

    Il y a vraiment personne qui pourra m'aider ?

    juste créer des boucles ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    				while Not fp.AtEndOfStream
    					while Not fl.AtEndOfStream
     
    						Msgbox fp.ReadLine 'pour voir si ça affiche bien
    						Msgbox fl.ReadLine 'pour voir si ça affiche bien
    						objExcel.cells(1,1).value = fp.ReadLine 'nom poste 
    						objExcel.cells(1,2).value = fl.ReadLine	'logiciel
    						objExcel.cells(1,3).value = fl.ReadLine 'Version
    						Next
    					Wend
    				Wend
    Help !!

Discussions similaires

  1. Mise-à-jour d'un fichier xml à partir d'un fichier xls
    Par ch.molines dans le forum Développement de jobs
    Réponses: 4
    Dernier message: 13/02/2013, 19h29
  2. extraction fichier xls à partir d'un fichier txt
    Par mannour85 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 02/04/2011, 15h48
  3. [XL-2003] copier des informations d'un fichier xls dans un autre fichier xls
    Par ironfalcon dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 23/03/2010, 14h39
  4. comparer deux fichier .xls
    Par oursquetaire dans le forum Excel
    Réponses: 6
    Dernier message: 06/07/2006, 17h52
  5. Mise en forme fichier xls à partir d'access
    Par Bigdeal dans le forum VBA Access
    Réponses: 2
    Dernier message: 27/09/2005, 16h47

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