1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

XL 2013 Exportation conditionnelle

Discussion dans 'Forum Excel' démarrée par an@s, 5 Février 2019.

  1. an@s

    an@s XLDnaute Occasionnel

    Inscrit depuis le :
    16 Septembre 2016
    Messages :
    179
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    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
     

    Pièces jointes:

    • FG.xlsm
      Taille du fichier:
      53.8 Ko
      Affichages:
      13
  2. Chargement...

    Discussions similaires - Exportation conditionnelle Forum Date
    Exportation conditionnelle vers Word après filtrage Forum Excel 31 Décembre 2008
    Exportation de données Excel vers un autre fichier Forum Excel 16 Janvier 2019
    XL 2016 macro exportation powerpoint Forum Excel 7 Décembre 2018
    XL 2010 [RESOLU] Exportation de feuille vers PDF en masse selon une variable Forum Excel 20 Juin 2018
    XL 2010 Ajout du sigle pourcentage lors d'une exportation Forum Excel 14 Juin 2018

  3. an@s

    an@s XLDnaute Occasionnel

    Inscrit depuis le :
    16 Septembre 2016
    Messages :
    179
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Bonjour,
    est ce que quelqu'un peut m'aider s'il vous plait
     
  4. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    26301
    "J'aime" reçus :
    2311
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    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 (Text):
    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 aime votre message.
  5. an@s

    an@s XLDnaute Occasionnel

    Inscrit depuis le :
    16 Septembre 2016
    Messages :
    179
    "J'aime" reçus :
    0
    Sexe :
    Masculin
    Bonjour Job, le forum
    merci beaucoup pour votre réponse...ça fonctionne parfaitement
     

Partager cette page