Consolider des pages d'un classeur sur une seule page

Staple1600

XLDnaute Barbatruc

• 25 Juillet 2012

• #2

Re : Consolider des pages d'un classeur sur une seule page

Bonsoir

As-tu été voir en bas de cette page?
La ou il y a cinq liens qui pointent vers des Discussions Similaires à ta question.

PS: Normalement ici, on aide le demandeur à faire, on ne fait pas à la place du demandeur 😉

EDITION: Bonsoir JCGL 😉

 

Dernière édition: 25 Juillet 2012

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 25 Juillet 2012

• #3

Re : Consolider des pages d'un classeur sur une seule page

Bonjour à tous,
Salut l'Agrafe,

Le fichier, décompressé, ne semble pas être un fichier Excel.

A + à tous

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Juillet 2012

• #4

Re : Consolider des pages d'un classeur sur une seule page

Re


Exact. Cela ressemble à *.zip

Mais même en le renommant en *.zip et en l'extrayant , on reste coincé.

 

Vote positif 0 Vote négatif

B

buzzzer

Guest

• 26 Juillet 2012

• #5

Re : Consolider des pages d'un classeur sur une seule page

Bonjour,

je regardde mon fichier ZIP pourtant la base et excel............

A+

 

Vote positif 0 Vote négatif

B

buzzzer

Guest

• 26 Juillet 2012

• #6

Re : Consolider des pages d'un classeur sur une seule page

Re

j'ai repris mon fichier zip quand je l'ouvre je retrouve bien mon classeur avec ses pages.............

apres j'ai regardé les liens mais j'ai pas vu de reponse similaire ou de question idem..........

donc si on peut m'aider ca serait sympa

Cordialement,


buz

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 26 Juillet 2012

• #7

Re : Consolider des pages d'un classeur sur une seule page

Bonjour à tous,

Ouvert avec XL 2010... Il ne suffit pas de changer l'extension pour rendre un fichier XL > 2003 en XL 2003...

Attention toutes les feuilles n'ont pas la même structure (la 1 est différente et la 61)

Peux-tu essayer avec :

VB:

Option Explicit
 Sub Consolide()
    Dim Sh As Worksheet, P As Range, DL&, J&
    J = 1
    With Sheets("Conso")
    Cells.ClearContents
        For Each Sh In Worksheets
            If Not Sh.Name Like "Conso" Then
                Set P = Sh.Range("B3:J" & Sh.[B65536].End(xlUp).Row)
                DL = .[B65536].End(xlUp).Row + J
                Cells(DL, "B").Resize(P.Rows.Count, 9).Value = P.Value
                Set P = Nothing
                J = J + 1
            End If
        Next Sh
        .Range("B2:B10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

A+ à tous

 

Dernière édition: 26 Juillet 2012

Vote positif 0 Vote négatif