XL 2016 Export lignes tableau avec conditions vers nouveaux classeurs

[phil555]

Bonjour à tous,

A partir de mon tableau contacts.xlsm

Je veux exporter toutes les lignes contenant "CCCT" dans la colonne D vers un nouveau classeur "Extrait_Contacts_CCCT_Sem(N°Sem).xlsx"

Idem pour la valeur "CCMAV" de la colonne D vers un nouveau classeur "Extrait_Contacts_CCMAV_Sem(N°Sem).xlsx"

L'idéal serait de pouvoir garder tous les entêtes de tableau, filtres, formats et mise en forme conditionnelle dans les 2 nouveaux classeurs.


Je suis parti de la macro ExportV1 (fonctionnelle) et l'ai modifiée pour ajouté la création des fichiers d'export
Dans ExportV2 la création des fichiers fonctionne mais je n'arrive pas à faire fonctionner la partie copie/colle

Ci-joint mon fichier de base "Contacts.xlsm"

Désolé pour le code pas très "pro(pre)" mais je bidouille comme je peux avec mes connaissances

Un grand merci d'avance pour votre aide !

 

[Fipat]

Bonjour,

une première piste.

Sub extraction_CCCT()
Dim CCCT As String
CCCT = "CCCT"
Call VerrouDesactive
Call RetablirCopierCouper_DragAndDrop
Sheets("Contacts").Range("$D$2:$AF$650000").AutoFilter Field:=1, Criteria1:=CCCT
ActiveSheet.Copy
ChDir "C:\"
Application.Dialogs(xlDialogSaveAs).Show "Extrait_Contacts_CCCT" & "_" & "Sem" & " - " & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".xlsx"
Call InterdireCopierCouper
Call VerrouActivate
End Sub

 

[phil555]

Si je comprend bien, l'idée c'est de copier les données après application d'un filtre

Merci, je teste ça demain !

 

[Fipat]

Bonjour,

Oui je le fait comme ça pour certains classeurs. Par contre le tient, malgré la désactivation des protections, cela prend un peu de temps à effectuer l'action.
Une piste simple à mettre en place.

 

[phil555]

Test effectué...
Quand je fais l'extraction avec un filtre déjà présent dans le tableau, seules les valeurs initialement filtrées sont extraites. J'ai rajouté un ActiveSheet.ShowAllData

Autre soucis que je ne suis pas arrivé à régler, la copie ne garde pas les mises en forme conditionnelle
Une idée ?

 

[Fipat]

Bonsoir, désolé pour cette réponse tardive mais très grosses semaines.

Objet FormatConditions (Access)

Rubrique de référence sur Office VBA

docs.microsoft.com

Tu peux saisir dans google :
filetype:xlsm FormatConditions
ce qui te donne pas mal d'Ce lien n'existe plus
Je ne vais pas pouvoir regarder demain, si tu ne trouves pas hésite pas, je ferais la recherche avec toi.
Cela me fait travailler
Pour le souci du filtre, oui ShowAllData mais je pense que tu auras moins de surprises avec AutoFilter.
Sheets("Contacts").[A1].AutoFilter
Avant Call InterdireCopierCouper