Discussion :

[chapeau_melon]

Bonjour,

Comment dois-je faire :

J'ai différents fichiers excel avec chaqu'un une petite centaine de colonnes (rubriques).

Je dois les intégrer dans un seul fichier FIC qui lui contient toutes les rubriques

Je peux m'arranger que tout les fichiers excel on la même clé de parcours (identifiant unique).
Donc si vous voulez: la n'ième ligne dans chaque fichier excel = tout les données pour 1 client.

Comment dois-je m'y prendre ?

BAV

[basam95]

Salut,

Depuis l'interface d'analyse tu peux importer des fichiers, l'import de fichier excel est automatique. Menu Structure de Fichiers - Importer des description des fichiers/table, puis tu choisi de convertir en HF.


A+

[Jannus]

Si via l'import tu rencontres des problèmes de doublons par exemple, importe tes 2 fichiers Excel dans 2 fichiers HF et fais la fusion dans un troisième fichier HF (ou fusionne les 2 fichiers HF en un seul en "incorporant" le second dans le premier par exemple)

[chapeau_melon]

OK, comment fusionne-t-on deux fichiers ?

[chapeau_melon]

en fait c'est des fichier excel plustot lourd (trop lourds en nombre de collones pour Excel en tout cas)

du coup j'ai trouvé un vbscript qui fusionne des cvs.

Elle fusionne bien, mais je pense quand même qu'il y un léger souci avec les des rubriques vides je pense, en tout cas, pour certains enregistrement j'ai des décalages dans la data ???

Le code si-dessous vous parait correcte ?

BAv

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
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
72
73
Option Explicit
 
public const ForReading = 1
public const ForWriting = 2
public fso, OutputFile, ProcessedFile
 
dim Folder, Files, File
 
set fso = CreateObject("Scripting.FileSystem* Object")
set Folder = fso.GetFolder(".")
set Files = Folder.Files 
OutputFile = "output.csv"
 
CreateProcessedFile(OutputFile)
 
for each File in Files
    if isCSV(File.Name) and File.Name <> OutputFile then
        Process(File.Name)
    end if
next
 
Function isCSV(FileName)
    dim arrFilename
    arrFilename = split(FileName,".")
    if ubound(arrFilename) > 0 then
        if lcase(arrFilename(ubound(arrFilena* me))) = "csv" then
            isCSV = true
        else
            isCSV = false
        end if
    end if
End Function
 
Function CreateProcessedFile(FileName)
    Set ProcessedFile = fso.CreateTextFile(".\" &FileName, true)
End Function
 
Function Process(FileName)
    dim NextLine, Output, InputLine, TextFile
    set TextFile = fso.OpenTextFile (".\" & FileName, ForReading)
    set ProcessedFile = fso.OpenTextFile (".\" & OutputFile, ForReading)
 
    if ProcessedFile.AtEndOfStream then
        while not TextFile.AtEndOfStream
             if not ProcessedFile.AtEndOfStream then
                InputLine = ProcessedFile.Readline
             else
                InputLine = ""
             end if
             NextLine = TextFile.Readline
             Output = Output & NextLine & vbcrlf
        wend
    else
        while not TextFile.AtEndOfStream
             if not ProcessedFile.AtEndOfStream then
                InputLine = ProcessedFile.Readline
             else
                InputLine = ""
             end if
             NextLine = TextFile.Readline
             Output = Output & InputLine & "," & NextLine & vbcrlf
        wend
     end if
     WriteProcessedFile(Output)
End Function
 
Function WriteProcessedFile(Contents)
    dim TextStream
    Set ProcessedFile = fso.GetFile(".\" & OutputFile)
    Set TextStream = ProcessedFile.OpenAsTextStream(For* Writing,-2)
    TextStream.Write Contents
    TextStream.Close
End Function

[Jannus]

OK, comment fusionne-t-on deux fichiers ?

On ajoute les enregistrements d'un à l'autre

Pour ton script, VBS, je te rappelle que ceci est le forum Windev.

[chapeau_melon]

On ajoute les enregistrements d'un à l'autre

Pour ton script, VBS, je te rappelle que ceci est le forum Windev.

oui je sais mais si cela peut aider quelqu'un ...


J'ai pas dormi cette nuit, je suis un peu pommé...comme dois-je faire à nouveau pour les ajouter :
tantque ... hlit(DB1) ... et puis ... hajoute(DB2) ?

Attention les rubriques des deux fichier sont différents !?

BAT en tout cas

[basam95]

Salut,

Une fois la structure de ton fichier .fic déterminée, tu peux soit le laisser vide puis lire les différents fichiers excel depuis windev grâce à xlsOuvre() et xlsDonnée() et transférer les données, soit importer le plus gros fichier avec ses données puis transférer les autres par programme.
Avec WD tu peux récupérer le titre des colonnes et les cellules vide ou non.

A+

[Jannus]

Si tes rubriques sont différentes, je suposes que tu dois les conserver toutes ?
Dans ce cas, il faut :
Générer le fichier HFA depuis le Excel1
Générer le fichier HFB depuis le Excel2
Générer le fichier HFC depuis HFA & HFB en récupérant toutes les rubriques des deux fichiers HFA & HFB
Ajouter tout HFA à HFC
Ajouter tout HFB à HFC