Partage
  • Partager sur Facebook
  • Partager sur Twitter

Filtrer automatique sur un autre fichier excel

    12 mai 2019 à 19:08:29

    Bonjour à tous, 

    Je débute en VBA en galére pas mal sur le sujet surtout sur la gestion des wrokbook / worksheet; (si quelqu'un aurait un petit tuto simple se serais sympa )

    Mon probléme est le suivant : j'essaie de filtrer une colonne d'un autre fichier excel j'ai toruver la fonction autolfilter mais j'ai l'impresison de ne pas pouvoir faire autant de filtre que je veux voici mon code : 

    'Clear feuille ExigPrincipEtSec

    Set appxl = CreateObject("Excel.Application")

    Dim myfile As Window

    Dim currentSheet As Worksheet

    Dim lastRow As Double

    Dim sourceFileName As String

    Dim String1 As String

    Dim datee As Date

    Dim sysdate As Date

    sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy")

    sourceFileName = "SUPPORT.xlsx"

    With appxl 'Fonction pour ouvrir le fichier à lire

        .Workbooks.Open ActiveWorkbook.Path & "\" & sourceFileName

        .Visible = False

    End With

    Set myfile = appxl.Windows(sourceFileName) 'lecture du fichier

    myfile.Activate

    Set currentSheet = appxl.Sheets(1)

    currentSheet.AutoFilter_

        Criteria1:= "CADOT"

        Criteria2:= "PLM"

        ...

    Si quelqu'un pourrai m'aider a comprendre comment fonctionne l'autofilter . 

    Merci d'avance. 

    • Partager sur Facebook
    • Partager sur Twitter

    Filtrer automatique sur un autre fichier excel

    × Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
    × Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.
    • Editeur
    • Markdown