Discussion :

[Divinity Taxoun]

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 !!!

[l_autodidacte]

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.