Importation élaborée d'un .csv

1 pièce(s) jointe(s)

Bonjour, je cherche à gérer l'importation d’un fichier csv généré par une feuille Excel
Je voudrais pouvoir importer le csv en le choisissant, et le traiter sauf si son nom commence par "exp37", puis importer le csv de manière élaborée.
J'ai posé la façon dont je vois le déroulement de la macro de manière algorithmique :
Code:

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 Si le nom du csv ne commence pas par exp37… Range (« A15 »).select Pour chaque ligne du csv Pour chaque ligne i du pdc de la ligne 15 à la dernière Si PersonneCSV = PersonneLigne Si ActCSV <> ActLigne Si ActLigne = « CONGES » Macro InserLigne + Insérer a la ligne de la cellule actuelle la ligne du CSV FinSi Si ActLigne = « » Insérer a la ligne de la cellule actuelle la ligne du CSV FinSi Sinon RemplacerLigne PDC par ligne CSV FinSi FinSi Range (« A »&i+1).select //pour pouvoir utiliser la macro d’insertion au besoin FinPour FinPour FinSi
En gros j'avais pensé à une sorte de curseur afin de réutiliser le composant déjà existant en descendant au fur et à mesure tant que je n'ai pas croisé dans un premier temps,la personne, puis ensuite, sois l'activité, sois rien, sois "CONGES" puis traiter de manière différente en fonction...Mais j'ai un mal fou à implémenter ça en vba

Merci par avance pour toute aide apportée ! (ci-joint, le fichier csv et là ou je veux importer, avec la macro qui existe déjà)

1 pièce(s) jointe(s)

Bon j'avance à taton, mais de l'aide serait géniale et bienvenue :D

Code:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Option Explicit
 
Type Colonne
    Ressource As Long
    Activite As Long
    Janvier As Long
End Type
 
Sub Tst()
Dim Fichier As Variant
Dim result As Boolean
    ChDir ThisWorkbook.Path
    Fichier = Application.GetOpenFilename("Text Files (*.csv), *.csv")
    result = Fichier Like "*exp37*"
    If Fichier <> False Then
        If result = False Then
 
        Import Fichier
            Else: MsgBox ("Veuillez choisir un fichier qui n'est pas du PDC37")
        End If
    End If
End Sub
 
Sub Import(ByVal NomFichier As String)
    Dim Col As Colonne
    Dim oFSO As Variant, Fich As Variant, Ts As Variant
    Dim nbLigCSV As Integer
 
    '  Chargement des colonnes
    Col.Ressource = 1
    Col.Activite = 3
    Col.Janvier = 5
 
    '  Séparateur Point Virgule
    Separateur = ";"
 
    '  Donne le nombre de lignes du fichier .csv
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set Fich = oFSO.OpenTextFile(NomFichier, 1)
    Ts = Fich.ReadAll
    nbLigCSV = Fich.Line - 1
 
    '  Feuille à traiter
    Set Sh = ActiveWorkbook.Worksheets("AFFECTATIONS")
    LigFin = Sh.UsedRange.Rows.Count
 
    'Pour chaque ligne du csv
        'Pour chaque ligne i du pdc de la ligne 15 à la dernière
            'Si PersonneCSV = PersonneLigne
                'Si ActCSV <> ActLigne
                    'Si ActLigne = « CONGES »
                        ' Macro InserLigne +
                        'Insérer a la ligne de la cellule actuelle la ligne du CSV
                    'FinSi
 
                    'Si ActLigne = « »
                        'Insérer a la ligne de la cellule actuelle la ligne du CSV
                    'FinSi
 
                        'Sinon
                            'RemplacerLigne PDC par ligne CSV
                'FinSi
            'FinSi
            'Range (« A »&i+1).select //pour pouvoir utiliser la macro d’insertion au besoin
        'FinPour
    'FinPour
 
 
 
End Sub

1 pièce(s) jointe(s)

Bonjour,
j'ai ammené ma pierre à l’édifice regare le fichier joint,
dézip tout le répertoire car j'ai mis le fichier csv dans un sou répertoire!

1 pièce(s) jointe(s)

Merci déjà pour ce que tu as fait, c'est énorme !
Néanmoins ce n'est pas exactement ce que je cherche à obtenir... :oops:

Je souhaite choisir le fichier (comme déjà présent dans mon code) et que le fichier Excel se remplisse comme je l'ai fais manuellement.

J'ai vraiment l'impression d'abuser, j'en suis désolé... Mais je pense qu'on est pas loin du but alors si tu pouvais encore m'aider un peu à ce niveau là, je t'en serais longtemps reconnaissant ...

J'imagine que je suis à coté de la plaque?

Non pas du tout ! j'apprécie déjà beaucoup ce que vous avez fais, mais je ne comprends pas cette gestion du csv que vous avez fait.

De plus c'est de ma faute, mes explications étaient succincte car je pensais que mon algo suffisait à la compréhension, j'aurai du rajouter manuellement ce que cela donnait comme je l'ai fais sur mon dernier message, désolé :oops:

Bonjour,

On est trop loin de ce que tu est entrain de faire alors ..Faut que tu nous donne un peut plus de détail sur ce que tu veux pour qu'on puisse t'aider ...

Citation:

Comme me déjà dis .. apprend à pécher mieux qu'attdre des sardines à chaque bout de faim .. :)

:ccooll: : en bas pour nous encourager à vous aider ..8-) ..

Ce que je veux c'est importer la charge mensuelle d'une personne sur un projet.
chaque ligne sur le csv correspond a la charge du couple Individu/Projet.

Je ne veux pas seulement les importer mais automatiser le rangement sur la feuille Excel comme montré sur ma dernière PJ.

Encore désolé, je pensais être assez clair, c'est le problème quand on est à fond sur un sujet, on pense à tort que c'est simple à expliquer et à comprendre :?

Alors aprés avoir faire le premier bout de code qui impor le CVS désiré non commencé par exp37.

sur quoi tu est exactement coincé pour se focaliser sur le probléme et non plus sur des chose que tu viens déjà d'établir .

Dans ton CSV, je ne voie pas la notion de Individu/Projet.
c'est vrai que j'ouvre tous le CSV d'un répertoire et je les déplace après import, dans un répertoire de sauvegarde, mais c'est pas ça le problème quand on est capable d'importer comme tu le désire, le sélectionner n'est pas difficile.

Citation:

ae | michel | 12,00% | 0,00% | 0,00% | 50,00% | 0,00% | 18,00% | 0,00% | 20,00% | 5,00% | 0,00% | 12,00% | 0,00%
aze | zorro | 1,00% | 0,00% | 5,00% | 0,00% | 21,00% | 0,00% | 13,00% | 0,00% | 0,00% | 15,00% | 0,00% | 11,00%
machin | michel | 1,00% | 0,00% | 5,00% | 0,00% | 21,00% | 0,00% | 13,00% | 0,00% | 0,00% | 15,00% | 0,00% | 11,00%
bidule | zorro | 12,00% | 0,00% | 0,00% | 62,00% | 2,00% | 30,00% | 5,00% | 21,00% | 16,00% | 20,00% | 17,00% | 13,00%
bidule | jhon | 1,00% | 0,00% | 5,00% | 0,00% | 21,00% | 0,00% | 13,00% | 0,00% | 0,00% | 15,00% | 0,00% | 11,00%

En fait le projet est le 1er champ, l'individu le second, puis les champs suivant sont la charge dans les douzes mois, les nom de projets et personnes sont bidon car il s'agit de données confidentielles.

1 pièce(s) jointe(s)

dis moi si c'est mieux!

ça marche, et du feu de Dieu, merci énormément ! 8D