[Calc] Grouper plusieurs fichiers

[maudus]

Sujet déplacé
Les termes "macro" et "calc" supprimés du titre car inutiles ici.

bonjour
je souhaiterai savoir si c'est possible de faire une macro sous calc afin de regrouper en un tableau, X tableaux identiques regroupés dans un dossier:
Dans mon exemple regrouper toutes les données des 3 tableaux dans le tableau total.
Les tableaux sont identiques .
les tableaux peuvent avoir des noms différents mais ils seront placés sous un dossier Transport A et regroupé sous tableau_synthese_total.....
par avance merci pour votre aide.
Ps ces tableaux ont une extension fods....

MERCI merci

[micmac]

Bonjour et bienvenue sur le forum,

OpenOffice 2.4 sous Windows XP

Votre signature indique que vous disposez d'une version de OpenOffice qui n'est plus maintenue.
Est-ce une erreur, un choix, un oubli, une obligation ?
Dans ce dernier cas, mentionnez-le dans votre signature par "Obligation de version".

Pour connaître la version que vous possédez : https://forum.openoffice.org/fr/forum/v ... 582#p11582

Nous vous invitons à vous mettre à jour de la dernière version : https://forum.openoffice.org/fr/forum/v ... m.php?f=38.

Votre signature doit comporter :
1- La version exacte de AOO ou LibO (AOO 4.1.2, LibO 5.0.5 par exemple) ;
2- La version exacte du système d'exploitation (Windows XP SP3, Vista SP2, Windows 7 SP1, Win 8.1, Win 10, Ubuntu 14.04, MacIntel 10.11.5, par exemple).
Accès direct à votre signature pour la corriger.

Cordialement.

[maudus]

ok merci je vérifie demain au taf.
bonne soirée

[Dude]

Salut,

La version que tu as mis dans ta signature n'existe pas : tu confonds les 2 suites.

De ce que je lis, ce que tu cherches à faire ressemble à de la consolidation de données.

Une recherche sur le forum me retourne par exemple :
[Résolu] Grouper données de plusieurs feuilles en une seule

[maudus]

bonjour
désolé si je m'exprime mal ou de façon incorrect je suis novice..... ca se vois
Je souhaite rassemblé plusieurs fichiers en un.
bonne journée

[Dude]

Je souhaite rassemblé plusieurs fichiers en un.

Tu peux dans ce cas, utiliser le menu Edition > Feuille > Déplacer/copier...

Faire une macro nécessite tout un mécanisme plus complexe :

1. créer un classeur d'arrivée
2. parcourir des fichiers
3. ouvrir chaque classeur
4. copier la feuille vers le nouveau classeur
5. etc

Si tu es novice, il est plus simple de se servir des fonctions internes du tableur.

[Genie]

Bonjour,

Dans la section suprême de codes tu trouveras un exemple te permettant de copier coller entre différents classeurs
https://forum.openoffice.org/fr/forum/v ... =15&t=6371

Tu peux aussi joindre une version purgée des infos confidentielles d'un de tes fichiers calc.
Ça aidera, plutôt que d'essayer de reproduire ton problème, et de risquer de tomber à côté.

A+

[maudus]

Merci pour la réponse. Je vais essayer de voir si j'arrive a résoudre mon problème.

Merci.

[Piaf]

Bonsoir
Pas compris l'extension des fichiers ?
Un petit exemple à tester

Code : Tout sélectionner

Option Explicit
Sub Main
Dim oDoc as Object, maFeuille as Object, maZoneSynthese as Object,maCellule as Object
Dim Classeur as Object, laFeuille as Object, maZone as Object, Donnees as Object
Dim Chemin as String, y as Long, inty as Long,i as Integer, Dossiers() as Variant
Dim Arg(0) As New com.sun.star.beans.PropertyValue
	Arg(0).Name = "Hidden"
	Arg(0).Value = True
	oDoc = thisComponent
	maFeuille = oDoc.Sheets.getByName("IDEMNITE TRANSPORT_Annexe 2")
	maZoneSynthese = maFeuille.getCellRangeByPosition(1,14,1, maFeuille.Columns.getByIndex(1).RangeAddress.EndRow)
	y = maZoneSynthese.queryEmptyCells.RangeAddresses(0).StartRow
	Chemin = getDirectory(oDoc.URL)
	Dossiers = Array("Tableau_synthese_A.fods","Tableau_synthese_B.fods","Tableau_synthese_C.fods")
	For i = LBound(Dossiers) To UBound(Dossiers)
		Classeur = StarDesktop.loadComponentFromURL(ConvertToURL(Chemin & Dossiers(i)),"_blank",0, Arg())
		laFeuille = Classeur.Sheets.getByName("IDEMNITE TRANSPORT_Annexe 2")
		maZone = laFeuille.getCellRangeByPosition(1,14,1, laFeuille.Columns.getByIndex(1).RangeAddress.EndRow)
		inty = maZone.queryEmptyCells.RangeAddresses(0).StartRow - 1
		maZone = laFeuille.getCellRangeByPosition(0,14,29,inty)
		Donnees = maZone.DataArray
		maZone = maFeuille.getCellRangeByPosition(0,y,29,y + (inty - 14))
		maZone.DataArray = Donnees
		Classeur.Close(True)
		y = maZoneSynthese.queryEmptyCells.RangeAddresses(0).StartRow		
	Next
End Sub

A+

[maudus]

Bonjour

Merci pour ton travail. Est il possible de copier le formatage aussi ( par exemple : un texte marque en rouge pour indiquer l'importance de cette case). Ces fichiers étant échangés entre different groupes.

Merci

Maudus