Discussion :

[vandman]

Bonjour,

J'ai un fichier calc qui liste un certain nombre d'élément:

1. Liste des banques et leur code banque (Banque)
2. Liste des banque et leur BIC (Liste_BIC)
3. Liste des banques absorbé, par qui. (MAJ_FGD)

Je recois de manière régulière un fichier Writer avec la Liste des banques absorbées et par qui.

Je voudrais passer les données du ficier Writer au fichier excel avec les bons formats. Le format du fichier Writer est toujours le même. Comment faire?

Je joins les fichiers en question.

Cordialement,
Vandman

[vandman]

Bonjour,
Personne ne sait?

Cordialement,
vandman

[zoom61]

Bonjour,

Première question, n'est-il pas possible de recevoir un fichier texte plutôt qu'un fichier ODT. Car la mise en forme du document rend l'automatisation complexe et le moindre changement rendre l'automatisation inefficace.

Cdlt.

[vandman]

Bonjour,

Non, le fichier reçu est toujours sous Writer. Par contre il a toujours la même structure:
Le titre, les entêtes de colonne et les données.
Cordialement,
vandman

[zoom61]

Avec quelque chose comme cela tu devrais pouvoir transférer les données dans le fichier Calc :

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
Sub Zoom61()
    Dim monDocument As Object, maTable As Object
    Dim lesLignes As Object, maLigne As Object
    monDocument = ThisComponent
    maTable = monDocument.TextTables.getByName("Tableau3")
    lesLignes = maTable.Rows
    NbLig  = lesLignes.Count
    msgbox NbLig
 
    for i = 0 to NbLig -1
        for j= 0 to 4
             maCellule = maTable.getCellByPosition(j,i)
             msgbox maCellule.string
        next j
    next i
End Sub