XL 2016 Export lignes tableau avec conditions vers nouveaux classeurs

phil555 · 14 Décembre 2020

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 · 14 Décembre 2020

Bonjour,

une première piste.

VB:

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 · 15 Décembre 2020

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 · 15 Décembre 2020

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 · 16 Décembre 2020

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 · 18 Décembre 2020

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

XL 2016 Export lignes tableau avec conditions vers nouveaux classeurs

phil555

XLDnaute Nouveau

Pièces jointes

Fipat

XLDnaute Occasionnel

phil555

XLDnaute Nouveau

Fipat

XLDnaute Occasionnel

phil555

XLDnaute Nouveau

Fipat

XLDnaute Occasionnel

Objet FormatConditions (Access)

Discussions similaires

XL 2016 Export lignes tableau avec conditions vers nouveaux classeurs

phil555

XLDnaute Nouveau

Pièces jointes

Fipat

XLDnaute Occasionnel

phil555

XLDnaute Nouveau

Fipat

XLDnaute Occasionnel

phil555

XLDnaute Nouveau

Fipat

XLDnaute Occasionnel

Objet FormatConditions (Access)

Discussions similaires

Privacy & Transparency

Privacy & Transparency