Discussion :

[Aizen64]

Bonsoir,

j'ai (encore) une question basique concernant une macro à faire sur Calc, en détail :
1. import et comptabilisation (un "count" sur des données) en CSV
2. collage dans un tableau de ces informations

Pour faire u parallèle avec ce que je ferai en VBA Excel :
1. Ouverture du fichier CSV
2. Extraction des données
3. Stockage dans un tableau (Dim tabInfosARecup() As String) -> tableau dynamique

Avec Excel, je ferai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim tab() As String
 
For i =1 To TailleDesDonnées
    tab(i) = MaValeurAInserer(i)
Next i

Seulement, je ne pense pas que cette syntaxe soit totalement transposable, de plus, je n'ai pas trouvé d'informations pour directement manipuler des CSV avec OpenOffice

Pareil pour les fonctions VBA de type Range et Offset que je ne sais pas utiliser avec OpenOffice :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Range("A" & i & "").Value
' ou
ActiveCell.Offset(0,1).Value

Comment utiliser des fonctions équivalentes, j'ai bien vu une fonction =OFFSET mais j'ai du mal à saisir la syntaxe.

Merci d'avance.

[zoom61]

Bonjour,

Voici le code qui vous permettra de lire le fichier CSV :

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
Sub CreerFichier()
    Dim FileNo As Integer,
    Dim CurrentLine As String
    Dim File As String
 
    'Définir le fichier à lire
    Filename = "/home/fichier_avec.txt"
 
    'Ouvre le fichier en lecture
    FileNo = Freefile
    Txt = ""
    Open Filename For Input As #FileNo
        'Vérification du fichier
        Do While not eof(FileNo)
        'Lire la ligne
        Line Input #FileNo, CurrentLine
            'Ligne où mettre le code de ce que vous voulez faire
            MsgBox CurrentLine 
        Loop
    Close #FileNo
 
end sub

[Aizen64]

Merci.

Ta réponse répond partiellement à ma question, par contre, ni la FAQ de Développez.com ni la documentation de OpenOffice ne donnent d'information sur :
- La sélection précise de cellule type Range("A" & i).Value, La méthode getCellRangeByName fait le travail mais je ne vois pas le moyen de concaténer la lettre de la cellule avec une valeur d'indice pour effectuer des itérations,
- Pas de types de données tableau ou de types génériques (collections) avec Basic OpenOffice ?

EDIT : En charchant je tombe sur les séquences.

[zoom61]

- La sélection précise de cellule type Range("A" & i).Value, La méthode getCellRangeByName fait le travail mais je ne vois pas le moyen de concaténer la lettre de la cellule avec une valeur d'indice pour effectuer des itérations,

Tu dois avoir les éléments ici

- Pas de types de données tableau ou de types génériques (collections) avec Basic OpenOffice ?

Tu peux créer une variable ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Matrice1(5) 'elle contiendra 6 valeurs, car le 0 compte
'ou
Dim Matrice(5, 5) 'elle contiendra 36 valeurs
 
'tu peux ajouter le type
Dim Matrice1(5) AS Integer

[Aizen64]

J'avais réussi à faire fonctionner le tableau, le fonctionnement est quasi identique à VBA si ce n'est que VBA commence à l'indice 1 et non 0 si ma mémoire est bonne.

Viens la partie de traitement et extraction de contenu de fichier CSV et je m'y perrds, mon cas de figure est le suivant :
- dossier contenant uniquement des CSV, l'ensemble est à traiter (comptabiliser des informations)
- tous les fichiers ont des en tête identique
- les fichiers on N lignes de contenu
- ligne vide (fin de fichier)

- le séparateur est une virgule.

Je n'arrive pas à transposer cet algorithme :
Pour tous les fichier dans le répertoire
Tant que Non fin de fichier
Récupérér les données
Fin Tant que
.... comptabiliser dans une variable les données comptés

Le hic:
Un CSV est facilement exploitable, lisible via un tableau, l'opération est moins évidente quand il s'agit de le coder, donc je vois une autre solution :
- Création d'un ODS avec une feuille unique
- Ouverture de l'ensemble des fichiers dans le répertoire donné pour l'importer ensuite dans le fichier ODS avec une seule feuille
- Une fois l'import terminé, comptabilisation des infos

La 2ème solution me parait plus simpe mais je n'arrive pas à l'écrire en macro.

EDIT
Après réflexion, j'ai trouvé une autre méthode (mais qui ne marche pas) pour arriver à mes fins : faire du copier/coller des CSV dans un tableau calc standard pour pouvoir utiliser mes données, le code:

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
 
sub Calcul()
 
 	Dim monDocument As Object
 	Dim lesFeuilles as Object
 	Dim maFeuille As Object
 	Dim maCellule As Object
 	Dim maCellule2 As Object
 
    monDocument = ThisComponent
    lesFeuilles = monDocument.Sheets
    maFeuille = lesFeuilles.getByName("Admin")
    maCellule = maFeuille.getCellByPosition(1,1)
    maCellule2 = maFeuille.getCellRangeByName("A1")
 
Dim Donnees(40) As String
 
For i = 1 to 40
	Donnees(i) = maCellule.Value
Next i
 
MsgBox maCellule2.Value 'MsgBox affiche 0
 
End Sub

Pour préciser ma cellule A1 contient une chaine de caractères. Mon tableau dans la boucle n'est pas non plus rempli. Pour faire court, je ne comprends pas grand chose à la logique de Basic Openoffice, c'est pas faute d'avoir déjà fait des macros en VBA pourtant.

[zoom61]

Salut,

Ce code permet de lister tous les fichiers d'un répertoire et d'extraire des fichiers les données (séparateur : ,:

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
Sub LstFichier()
    Dim RepReference As String
    Dim unFich As String
    Dim FileNo As Integer
    Dim CurrentLine As String
    Dim File As String
    Dim Donnees() As String
    'Répertoire contenant tous les fichiers
    RepReference = "/home/zoom61/Documents/test/"
 
    unFich = Dir(RepReference & "*", 0)
    FileNo = Freefile
 
    Do While Len(unFich) > 0
        Filename = RepReference &  unFich
        print Filename
        Open Filename For Input As #FileNo
            'Vérification du fichier
            i = 1
            Do While not eof(FileNo)
                'Lire la ligne
                Line Input #FileNo, CurrentLine
                'Ligne où mettre le code de ce que vous voulez faire
                print CurrentLine
                Donnees =  Split(CurrentLine, ",")
                i = i + 1
                'Lignes permettant de voir le résultat
                For i  = LBound(Donnees) to UBound(Donnees)
                    print Donnees(i)
                Next i
            Loop
        Close #FileNo
        print i
        unFich = Dir
    Loop
 
end sub

[jurassic pork]

hello,
je te propose de t'inspirer de ma macro qui va suivre et qui fait la chose suivante :

- Importation de données d'un fichier csv , on ouvre le document csv dans calc ( en mode caché ou pas) avec un filtre qui choisit les colonnes à importer, le séparateur, le format, à partir de quelle ligne (saut d'entête) etc... Le document csv utilisé est choisi à partir d'une boîte de dialogue. Une fois le fichier importé on copie la plage qui nous intéresse dans un tableau de données , on colle cette plage dans notre document courant et on ferme le document csv. Ce style de transfert par tableau entier de données optimise le temps de traitement par rapport à un accès cellule par cellule.
Voici la macro :

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
Sub ImportCSV
'J.P  Juin 2015
Dim vDoc 'le document csv de travail
Dim Arg()
dim fileProps(2) as new com.sun.star.beans.PropertyValue
Cdoc = ThisComponent 'classeur courant
 
fileProps(0).Name = "FilterName"
fileProps(0).Value = "Text - txt - csv (StarCalc)"
FileProps(1).Name = "Hidden"
FileProps(1).value =  False ' on cache ou pas le fichier (avec False on ne cache pas)
fileProps(2).Name = "FilterOptions"
 
ChoixColonnes = ""
'le csv de test comprend 10 colonnes
'on traite les colonnes  1 à 7 avec format standard (1)
For i = 1 to 7
ChoixColonnes = ChoixColonnes & i & "/1/"
Next i 
' on ignore les colonnes 8 à 10 (9)
For i = 8 to 10
ChoixColonnes = ChoixColonnes  & i & "/9/"
Next i
 
'ChoixColonnes = ChoixColonnes & "10,1"
' 44 virgule - 59 point virgule - délimiteur de champ
' 34  guillemet délimiteur de texte
' 77 Caractères iso-8859
' 1 à partir de la première ligne , 2 on saute la première ligne (entête)
fileProps(2).Value = "59,34,77,2," & choixColonnes
' on crée une boîte de dialogue pour choisir le fichier csv
oDlg = createUnoService("com.sun.star.ui.dialogs.FilePicker")
oDlg.setMultiSelectionMode(false)
oDlg.execute
aUrl = oDlg.getFiles()
'Messagebox pour debug
's = "file:" & chr(10) & aUrl(0) & chr(10)
'msgbox s
vDoc = StarDesktop.loadComponentFromURL(aURL(0), "_blank", 0, fileProps())
oASheet=vDoc.sheets(0)'première feuille
'on cherche le nombre de lignes 
Curs = oASheet.createCursor
Curs.gotoEndOfUsedArea(True)
NumRows = Curs.Rows.Count
oArange=oASheet.getCellRangeByName("A1:G" & NumRows )'source
'on copie les cellules
oAarray=oARange.getDataArray()
'on indique où l'on doit coller les cellules
'Attention la plage cible doit avoir ABSOLUMENT la même taille que la plage source
oCrange=Cdoc.sheets(0).getCellRangeByName("L1:R" & NumRows )'cible
'on colle les cellules dans la cible
oCrange.setDataArray(oAarray)
'on ferme le document csv
vdoc.close (-1)
End Sub

Ami calmant, J.P

[Aizen64]

En fait je vais contourner le problème en important les CSV dans un fichier Calc standard pour bosser dessus Je garde le code pour le cas où ça pourrait servir.

Visiblement mes macros fonctionnent correctement, par contre j'ai quelques gros hics en transformant une procédure en fonction. Je l'ai laissée en procédure pour la tester et maintenant je veux m'en servir pour rentourner plusieurs types personnalisés.

En gros :
- je fais tourner la même macro 2 fois avec comme paramètres les coordonnées de colonnes qui changent en fonction de la partie du tableau que j'ai à traiter.

Pour me simplifier la vie j'ai créé des types personnalisés, sur la première itération de la fonction, je dois recevoir 3 résultats de type personnalisé, 4 sur la seconde.

Ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub main
Dim resultat(2) As monType
 
resultat = MaFonction(param1, param2)
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
resultat() = MaFonction(param1, param2)

Erreur : objet requis

Type de retour de la fonction : Variant

Mon erreur vient d'où ?

[zoom61]

Le message d'erreur apparaît à la suite de cette commande resultat = MaFonction(param1, param2) ou de celle-ci resultat() = MaFonction(param1, param2) ?
Que fait la fonction MaFonction ? De quel genre est monType ?

[Aizen64]

Le message d'erreur apparaît à la suite de cette commande resultat = MaFonction(param1, param2) ou de celle-ci resultat() = MaFonction(param1, param2) ?

Les 2.

Mon type est défini comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Type monType
    Id As String
    Valeur1 As Integer
    Valeur2 As Integer
End Type

[zoom61]

Que fait la fonction MaFonction ?

[zoom61]

Erreur, elle était bien trop évidente. le résultat d'une fonction ne peut pas être deux valeurs, ce qu'attend resultat dans ton cas.

Le code suivant fonctionne :

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 main
 
Dim resultat  as string
Dim param1 as string, param2 as string
 
param1 = "1"
param2 = "10"
 
resultat = MaFonction(param1, param2)
print resultat
 
End Sub
 
Function MaFonction(val1 as string, val2 as string) as string
    MaFonction = val1 + val2
end function

[Aizen64]

Logique. Est-il possible de contourner le problème en :
- initialisant un objet de type Variant (un fourre tout)
- faire un cast de cet objet en un tableau de mon type personnalisé ?

[zoom61]

Le plus simple serait d'utiliser les variables globales pour mettre tes valeurs en ensuite les récupérer après l'appel de la fonction.

[Aizen64]

On est sur la même longueur d'ondes, j'y ai pensé sans l'appliquer pour une raison précise :
- le nombre d'itérations à effectuer est calculé sur chaque feuille en cherchant la 1ère case vide. La procédure que je souhaite transformer en fonction l'utilise, éventuellement, je peux créer ma variable globale à une taille bidon pour le redimentionner en cours d'exécution avec Redim.

Je vais tester et faire une update de mon post.

[zoom61]

La différence va se situer au niveau des variables, par exemple au lieu d'avoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

resultat = MaFonction(param1, param2)

Tu auras :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MaFonction(param1, param2)
resultat = (VarGlobale1, VarGlobale2)