XL 2013 Exportation conditionnelle

an@s

XLDnaute Occasionnel
Bonjour à tous,

j'ai un code qui permet d'exporter tout les onglets du classeur sauf la feuille RECAP,
je cherche à rectifier le code pour vider pendant l'exportation toutes les donnes qui sont entre les colonne B et M, et ne garder que les données du mois concerné qui correspond à K1 de la feuille RECAP.

Exemple:
1-pour la feuille DT le code exportera toute les données sauf les données des colonnes E & G en gardant celles de J puisque K1 de la feuille recap correspond au même mois de la colonne J

2-pour la feuille DP le code exportera toute les données sauf les données des colonnes H & L en gardant celles de J puisque K1 de la feuille recap correspond au même mois de la colonne J

Merci d'avance
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour an@s,

Je vous ai dit que je ne voulais pas intervenir parce que je trouve ce problème débile mais comme vous insistez :
Code:
Sub Exporter()
Dim chemin$, mois As Byte, w As Worksheet, P As Range, mem
Application.ScreenUpdating = False
Application.DisplayAlerts = False
chemin = ThisWorkbook.Path & "\"
mois = Month(Sheets("RECAP").[K1])
For Each w In Worksheets
    If w.Name <> "RECAP" Then
        w.Visible = xlSheetVisible 'si la feuille est masquée
        w.Copy
        With ActiveWorkbook
            Set P = Intersect(.Sheets(1).UsedRange, .Sheets(1).Range("B3:M" & w.Rows.Count))
            If Not P Is Nothing Then
                mem = P.Columns(mois)
                P.ClearContents 'RAZ
                P.Columns(mois) = mem
             End If
            .SaveAs Filename:=chemin & w.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
            .Close
        End With
    End If
Next
End Sub
A+
 

an@s

XLDnaute Occasionnel
Bonjour Job, le forum
merci beaucoup pour votre réponse...ça fonctionne parfaitement
 

Discussions similaires


Haut Bas