Export feuilles avec mise en forme

[David974]

Bonjour a toutes et a tous,
Je souhaites exporter 2 feuilles d'un classeur.
Cependant, la methode //Sheets(Array('Famille1', 'Famille2', 'Magazins')).Copy//
ne me permets pas d'appliquer un parametre de copie sur les feuilles exportees (suppression de colonnes, regroupement des valeurs, par exemples).
J'ai joint sur le zip 2 classeurs pour illustrer
la problematique, et surtout le resultat que je souhaites obtenir (classeur a exporter + resultat
de l'export).
Suis-je contraint d'utiliser la methode //Workbooks.Add//, et de proceder a la copie des differents tableaux ou peut-etre y a t'il une methode plus simple?
Merci d'avance pour vos conseils...
Cordialement

DAVID974

 

[David974]

Oups, voila le zip...

 

[David974]

Ca va mieux comme ca... [file name=Export.zip size=4557]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Export.zip[/file]

 

[myDearFriend!]

Bonsoir David974,

Dans un module de code général du classeur Source (Module1 par exemple), tu peux essayer de copier-coller la procédure ci-dessous et la lancer :

Sub Export()
Dim L1 As Long, L2 As Long
      ThisWorkbook.Sheets(Array('Famille1', 'Famille2', 'Magazins')).Copy
      With ActiveWorkbook
            .Sheets('Famille1').Columns(2).Delete
            .Sheets('Famille2').Columns(2).Delete
            With .Sheets('Magazins')
                  L1 = .Range('A65536').End(xlUp).Row
                  L2 = .Range('B65536').End(xlUp).Row
                  .Range(.Cells(2, 4), .Cells(L2, 6)).Copy Destination:= _
                        .Cells(L1 + 1, 1)
                  .Range('D:F').Delete
            End With
      End With
End Sub

Bonnes fêtes de fin d'année.

 

[DAVID974]

Bonsoir MyDearFriend,
Merci pour cette petite proc, j'ai un peu adapter pour mes besoins...Impeccable
Bon Reveillon.

DAVID974