Discussion :

[erikose51]

Bonjour

Ma problématique est la suivante :

J'ai un tableau croisé dynamique avec un filtre, les options du tableau me permettent de créer un onglet par donnée du filtre.

Mon but est d'avoir une macro qui génère un nouveau classeur par onglet avec un copier-coller spécial valeur et format et dans l'idéal dans un répertoire particulier.

Ci-dessous mon code qui permet de générer un classeur par onglet :

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
For Each feuille In ActiveWorkbook.Sheets
 
    With ActiveWorkbook
 
        .Title = feuille.Name
 
        .Subject = feuille.Name
 
        .SaveAs Filename:=feuille.Name + ".xlsx"
 
        ActiveWorkbook.Close
 
    End With
 
Next

Au-delà ça se complique, et mes essais sont infructueux

Merci

[EricDgn]

Bonjour,

Une façon d'y arriver:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Copy_Save_Worksheets_As_Workbook()
   Dim wb As Workbook, feuille As Worksheet
   With ActiveWorkbook
      For Each feuille In .Sheets
         Set wb = Workbooks.Add
         .Sheets(feuille.Name).Copy Before:=wb.Sheets(1)
         wb.SaveAs "D:\" & feuille.Name & ".xlsx"         '--- à adapter
         wb.Close
      Next feuille
   End With
End Sub

Bonne continuation

[erikose51]

Bonjour

En reprenant mon fichier et en regardant la macro, j'ai toutefois un problème de copier/coller spécial valeur qui ne se fait pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   Dim wb As Workbook, feuille As Worksheet
   With ActiveWorkbook
      For Each feuille In .Sheets
         Set wb = Workbooks.Add
         .Sheets(feuille.Name).Copy Before:=wb.Sheets(1)
         wb.SaveAs "c:\SEIT TI\" & feuille.Name & ".xlsx"         
         wb.Close
      Next feuille
   End With
End Sub

Je sais bien l'écrire pour un copier/coller dans le même classeur, mais pas dans un classeur différent

[joe.levrai]

Bonjour,

la copie intégrale va embarquer le format et les valeurs OU les formules si les cellules contiennent des formules

il reste donc à gommer les formules pour les remplacer par leurs valeurs

ça se fait assez facilement via :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaPlage.Value = MaPlage.Value

les formules ont laissé la place aux valeurs

[erikose51]

Merci

la c'est une copie a partir de tableaux croisé dynamique

d'autre part ou est-ce que j'insère ce code dans celui que j'ai écris plus haut ?

le VBA n'est pas mon point fort (je suis beaucoup plus à l'aise avec les formules d'Excel)

[joe.levrai]

avant le SaveAs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wb.Sheets(1).UsedRange.Value = wb.Sheets(1).UsedRange.Value

mais du coup, je ne comprend pas bien, le sujet inital est de faire une copie "Format + Valeurs"
si ça provient d'un TCD, il n'y a donc pas de formules ... qu'Est-ce qui ne va pas dans la copie intégrale que tu souhaites supprimer ?

[erikose51]

bonjour

ce qui ne va pas c'est que dans chaque fichier excel, il y a la totalité des données du tableau croisé dynamique, et que je veux un fichier par valeur du filtre du tableau croisé dynamique, d'où la solution de faire un copier/coller spécial valeur du TCD.

[joe.levrai]

Bonjour,

pourquoi ne pas plutôt filtrer la source des données du TCD plutôt que le TCD lui-même, et d'exporter chaque filtrage dans un nouveau classeur ?

mieux encore, un filtre avancé plutôt que des filtres automatiques
http://philippetulliez.developpez.co...dvancedfilter/

[erikose51]

la nécessité du TCD est de pouvoir mettre en forme les lignes et les colonnes, dans ma base de données j'ai uniquement des lignes de données
dans le TCD j'ai en ligne les dates et en colonne les rubriques utilisées

le TCD me permet donc de faire une restitution sous la forme voulue

le filtre élaboré me permet de filtrer ma BD mais pas de mettre en forme le résultat

mon souci de VBA est de réaliser un copier/coller spécial valeur (le format est un plus mais pas indispensable)

je pourrais aussi imaginer que la macro dans un premier temps prend chaque onglet du classeur de la base de données et fait ce copier/coller spécial puis exporte les feuilles, mais là encore cela ne marche pas.

------------------------------------------------------

J'ai résolu le problème en faisant le copier/coller spécial valeur avant l'export et ça fonctionne bien