Discussion :

[tapmen5]

Bonjour,

Je me permets d'ouvrir un nouveau topic concernant la fusion de feuilles dans une sous un document ods. J'ai déjà consulter le sujet : http://www.developpez.net/forums/d12...usion+feuilles
Mais la macro ne donne aucun résultat.

Je suis sur un ODS de 54 feuilles avec 7 colonnes à récupérer avec X lignes (peupler au fur et à mesure de l'année). Et je souhaiterai avoir la fusion de ses 54 feuilles dans une feuille récapitulative. Cela me permettrai d'éviter dans les 8k de copier/coller.

Est ce que vous auriez une solution ?

Merci beaucoup !

[zoom61]

Salut,

En quoi cela ne fonctionne pas ! As-tu un message d'erreur ? Etc.

@+.

[tapmen5]

Bonjour,

Je n'ai pas de message d'erreur, juste pas de résultat sur la feuille recap en fait, qui reste aussi vierge qu'elle ne l'était lors de sa création.

Si il y a un debug pour les macro sur open ou libreoffice je veux bien te donner tout les éléments pour voir d’où vient le problème

J'ai récupéré le script et son "patch"

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
Function CopierFeuille()
Dim oFichier As Object
Dim oFeuil As Object
Dim oCells As Object
Dim oSelect As Object
Dim oDestination As Object
Dim oDel As Long
Dim NbFeuil As Integer
Dim x As Integer
Dim i As Integer
Dim oPos As Object
 
    oFichier = thisComponent
    oFeuil = oFichier.sheets
    oDestination = oFeuil.getByName("Recap")
 
    oDel = com.sun.star.sheet.CellFlags.STRING
    'oDel = oDel + com.sun.star.sheet.CellFlags.VALUE
    'oDel = oDel + com.sun.star.sheet.CellFlags.DATETIME
' Sélectionner toutes les cellules utilisées    
    oCells = oDestination.createCursorByRange(oDestination.getCellRangeByName("A1")
    oCells.gotoEndOfUsedArea(True) 
    oSelect = oDestination.getCellRangeByName(oCells.absoluteName)
' Effacer la feuille "Recap" à partir de la cellule A1.    
    oSelect.clearContents(oDel)
' Recopier dans la feuille "Recap" toutes les celules utilisées des "Feuilles"    
    NbFeuil = oFeuil.count
    i = 1  'ligne de départ pour la recopie sur la feuille "Recap"
    for x = 0 to NbFeuil - 1 
        oUneFeuille = oFeuil(x)
        if left(oUneFeuille.Name,7) = "Feuille" then 
            oCells = oUneFeuille.createCursorByRange(oUneFeuille.getCellRangeByName("A1")
            oCells.gotoEndOfUsedArea(True) 
            oSelect = oUneFeuille.getCellRangeByName(oCells.absoluteName)
            oPos  = oDestination.getCellRangeByName("A" & i )
               oDestination.CopyRange(oPos.cellAddress,oSelect.RangeAddress)
               i = i + (oSelect.RangeAddress.EndRow - oSelect.RangeAddress.StartRow + 1)
         end if
    next x
 
End function

[zoom61]

Peux-tu joindre une maquette de ton fichier ?

@+.

[tapmen5]

Avec plaisir. Voici le fichier en pièce jointe.

Je te fais grâce des 50 autres onglets, cela donne un bon exemple à plus petite échelle. J'ai bien évidemment fait pas mal de modification pour ne pas divulguer d'informations, je peux te fournir le document complet par mp au besoin.

En te remerciant de te pencher sur mon problème !

[GerardCalc]

Bonsoir,

La macro que tu as postée récupère les données des feuilles "Feuille1" à "Feuillex" et les copies dans la dernière feuille nommée "Recap".

Dans ton fichier, la feuille récap ne s'appelle pas "Recap" et n'est pas en dernière position, quand aux feuilles à copier elles ne se nomment pas Feuille1, Feuille2..etc.

A+

[zoom61]

Tu vois avec un exemple la réponse vient tout seul.

Bien vu GeraldCalc.

@+.

[tapmen5]

Ha oui Recap à donc une importance sur sa position ?

Pour les autres onglets si je les nommes d'une autres manière, type voiture XYZ je dois modifier la variable feuille ici : if left(oUneFeuille.Name,7) = "Feuille" then
? Ou je dois faire la modification ailleurs.

En tout cas merci déjà pour la réponse je commence à mieux comprendre déjà lol

[zoom61]

Pour les autres onglets si je les nommes d'une autres manière, type voiture XYZ je dois modifier la variable feuille ici : if left(oUneFeuille.Name,7) = "Feuille" then
? Ou je dois faire la modification ailleurs.

Oui, il faut modifier "Feuille" par le nom de l'onglet.

@+.

[jamesetlulu]

Milles excuses de déterrer un vieux topic mais mon "pb" est tout simplement la suite du présent sujet.

comme tapmen5 grace à zoom61, j'ai "besoin" d'une macro pour regrouper plusieurs feuilles d'un même document sur une seule feuille.

J'ai enregistré la macro mais rien ne se passait.
Je précise que mes feuilles se nomment : sheet1, sheet 2, et ainsi de suite.

Je me suis rendu compte qu'en nommant mes feuilles : feuille1, feuille2, la macro fonctionnait. Sauf que j'ai bcp bcp de feuilles et que je ne vois pas l'intérêt de la macro si je dois renommer mes feuilles. (autant faire un copier coller)

Quelqu'un peut il m'aider à régler ce problème ? Quelle partie de la macro dois je modifier pour que cela fonctionne ?
Attention, je frôle le niveau 0 en macro.

Merci d'avance

James

[zoom61]

Une petite lecture des tutos disponibles et la solution apparaît : ici

[jamesetlulu]

Bonjour Zoom61.

Peut être me suis je mal exprimé quand j'ai dit que je frôlais le niveau 0.
je suis au niveau 0 !!
Non pas que la matière ne m'intéresse pas, mais je ne capte vraiment pas le "langage".

Quand tu me désignes le tuto, tu me suggères la rubrique pour renommer les feuilles ? Mais même là, je ne vois pas trop quoi faire

[zoom61]

Quand tu me désignes le tuto, tu me suggères la rubrique pour renommer les feuilles ? Mais même là, je ne vois pas trop quoi faire

Le lien fournit permet de lister les onglets du fichier !