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

VB 6 et antérieur Discussion :

Visual Studio (Copier coller + modif fichier CSV)


Sujet :

VB 6 et antérieur

  1. #1
    Candidat au Club
    Visual Studio (Copier coller + modif fichier CSV)
    Bonjour !
    Voila je dois réaliser avec des collègue un programme visual basic...
    Nous sommes totalement perdu et nous aurions besoin d'un coup de pouce, nous n'arrivons même pas à ouvrir le fichier excel (demandé dans le sujet)
    Voici le sujet ci dessous, je remercie ceux qui nous viendrons en aide ! !!! Merci !!

    Problématique :
    Un fichier est généré automatiquement par un système tous les jours à 03h00. Ce fichier, au format .csv (le fichier log.csv) contient un certain nombre de lignes.
    Actuellement, une personne récupère ce fichier tous les jours et le traite avec Excel.
    Le traitement consiste à ouvrir le fichier log.csv et recopier dans un autre fichier (le fichier log-copie.csv) toutes les lignes du fichier log.csv.
    Par contre, il ne faut pas recopier plusieurs fois les lignes contenant le même numPiece et la même ref mais prendre seulement la ligne contenant la quantité la plus élevée.
    Par exemple, la ligne N°7 et la ligne N°8 sont identiques car elles contiennent le même numPiece qui est 1 et la même ref qui est 14.
    Il faut garder la ligne 7 car elle contient la quantité la plus élevée, ici 9. La ligne à supprimer est donc la ligne N°8.
    Le temps de traitement est extrêmement long pour la personne. Il y a aussi un risque de se tromper. Il est vous est donc demandé de réaliser le programme qui permet de réaliser le travail effectué par la personne.




    Merci !!!

  2. #2
    Modérateur

    Pour commencer :
    Ouvrir le fichier excel en utilisant ce
    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
    Option Explicit
    ' Mettre 2 CommandButton sur Form1 dénommés Command1 et Command2
    Dim XL As New Application
     
    Private Sub Command1_Click()
        XL.Workbooks.Open "C:\Fich1.xls" ' Mettre ici le bon chemin au fichier à ouvrir
        XL.Visible = True
    End Sub
     
    Private Sub Command2_Click()
        XL.Quit
        Set XL = Nothing
    End Sub
     
    Private Sub Form_Load()
        Command1.Caption = "Ouvrir..."
        Command2.Caption = "Fermer Excel"
    End Sub
    Mais au préalable, il faut ajouter une référence à microsoft Excel à partir du menu Projet, Références... puis cocher la case : Microsoft Excel xx.0 Object library avec xx.0 la version d'Excel disponible sur la machine.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

###raw>template_hook.ano_emploi###