Décomposer un fichier sur plusieurs onglets

tototiti2008

XLDnaute Barbatruc

• 24 Juin 2011

• #2

Re : Décomposer un fichier sur plusieurs onglets

Bonjour Gwendoline,

L'idée est d'automatiser la décomposition par onglet avec une macro ? ou bien une méthode manuelle rapide ?

 

Vote positif 0 Vote négatif

G

Gwendoline

XLDnaute Junior

• 24 Juin 2011

• #3

Re : Décomposer un fichier sur plusieurs onglets

bonjour tototiti2008,

désolée, j'ai pas précisé.
Oui, l'automatisation avec une macro par onglet serait géniale car dans l'exemple il y a peu de conducteur mais dans la réalité je risque d'en avoir beaucoup plus.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 24 Juin 2011

• #4

Re : Décomposer un fichier sur plusieurs onglets

Re,

Supprime toutes les feuilles sauf la feuille Data et fait tourner la macro là :

Code:

Sub Decomp()
Dim ListNom, Dico, i As Long
    With ThisWorkbook.Worksheets("Data")
        If .FilterMode Then .ShowAllData
        Set Dico = CreateObject("scripting.dictionary")
        For i = 2 To .Range("A65536").End(xlUp).Row
            Dico(.Cells(i, 1).Value) = .Cells(i, 1).Value
        Next i
        ListNom = Dico.keys
        For i = LBound(ListNom) To UBound(ListNom)
            ThisWorkbook.Worksheets.Add after:=ThisWorkbook.Worksheets(Sheets.Count)
            ActiveSheet.Name = ListNom(i)
            .Range("A1").AutoFilter Field:=1, Criteria1:=ListNom(i)
            .Range("A1").CurrentRegion.Copy Sheets(ListNom(i)).Range("A1")
        Next i
        If .FilterMode Then .ShowAllData
    End With
End Sub

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Juin 2011

• #5

Re : Décomposer un fichier sur plusieurs onglets

Bonjour Gwendoline

Vois si cela te convient

Edit: Salut Tototiti

 

Pièces jointes

• PetrolData.zip

  21 KB · Affichages: 64
• PetrolData.zip

  21 KB · Affichages: 65
• PetrolData.zip

  21 KB · Affichages: 61

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 24 Juin 2011

• #6

Re : Décomposer un fichier sur plusieurs onglets

Bonjour Gwendoline, Tototiti2008

Avec la méthode du filtre qui à l'avantage d'utiliser moins de place pour les gros fichiers, mais qui reste une bonne vieille méthode manuelle.

A+

Edit Bonjour à Pierrejean

 

Dernière édition: 24 Juin 2011

Vote positif 0 Vote négatif

G

Gwendoline

XLDnaute Junior

• 24 Juin 2011

• #7

Re : Décomposer un fichier sur plusieurs onglets

Génial,

Merci beaucoup, je vais essayer de passer à l'étape 2 maintenant.

Merci encore tototiti2008.

 

Vote positif 0 Vote négatif

G

Gwendoline

XLDnaute Junior

• 24 Juin 2011

• #8

Re : Décomposer un fichier sur plusieurs onglets

Merci Pierrejean, j'ai vu un peu en retard. Mais je peux te demander autre chose si je n'abuse pas.
Ajouter un tableau croisé dynamique à chaque onglet.
C'est possible ça?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Juin 2011

• #9

Re : Décomposer un fichier sur plusieurs onglets

Re

Je ne suis pas un grand specialiste des TCD
Peux-tu poster un exemple de ce que tu souhaites ?

 

Vote positif 0 Vote négatif

G

Gwendoline

XLDnaute Junior

• 24 Juin 2011

• #10

Re : Décomposer un fichier sur plusieurs onglets

Bien sur PierreJean, le voici.
je souhaiterais donc :
*décomposer les données par onglets NOMS (chose faite, encore merci)
*puis à chaque onglet NOMS y associé un TCD "_NOMS comme ci-joint.

Merci Merci

 

Pièces jointes

• PetrolData.xls

  59 KB · Affichages: 79
• PetrolData.xls

  59 KB · Affichages: 88
• PetrolData.xls

  59 KB · Affichages: 83

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Juin 2011

• #11

Re : Décomposer un fichier sur plusieurs onglets

Re

Avec la complicité de l'enregistreur de macro !!

Vois si cela te convient

 

Pièces jointes

• PetrolData.zip

  22.2 KB · Affichages: 41
• PetrolData.zip

  22.2 KB · Affichages: 48
• PetrolData.zip

  22.2 KB · Affichages: 43

Vote positif 0 Vote négatif

G

Gwendoline

XLDnaute Junior

• 28 Juin 2011

• #12

Re : Décomposer un fichier sur plusieurs onglets

Re,

La VBA ne fonctionne pas à ce niveau :
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Source, Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="_" & nf & "!R3C1", TableName:="Tableau croisé dynamique3", _
DefaultVersion:=xlPivotTableVersion10

J'ai pas trouvé l'erreur, je pense que c'est au niveau du tablename mais...

 

Vote positif 0 Vote négatif