Macro sur liste déroulante

Bonjour,

J’essaie de faire une macro en filtrant le mois sur le fichier DATE à partir d’une liste déroulante.

Je ne comprends pas le message d’erreur suivant : « L’indice n’appartient pas à la sélection ».

En vous remerciant d'avance de votre aide.

Sub Macro()

    Windows("DATE.xlsx").Activate
    Sheets("base").Select
    Range("A3").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$3:$A$134830").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, Format(Sheets("Feuil1").Range("D2"), "dd/mm/yyyy"))
    Windows("macro.xlsm").Activate
End Sub

Bonjour,

la 1er condition pour utiliser votre macro est que les 2 classeurs soi ouverte.

le message d'erreur vous indique que vous avez sélectionner une cellule ou autre qui n'existe pas pour excel

l'erreur ici est :

  Criteria2:=Array(1, Format(Sheets("Feuil1").Range("D2"), "dd/mm/yyyy"))  

car après cette ligne

Windows("DATE.xlsx").Activate 

vous êtes dans le classeur "Date" et dans ce classeur la feuille au nom de "Feuil1" n’existe pas d'ou le message d'erreur.

remplace par

 Criteria2:=Array(1, Format(workbooks("macro").Sheets("Feuil1").Range("D2"), "dd/mm/yyyy")) 

Merci pour votre réponse, mais çà ne fonctionne pas.

En modifiant votre code, comme ceci, çà marche.

Criteria2:=Array(1, Format(Workbooks("macro.xlsm").Sheets("Feuil1").Range("D2"), "yyyy/mm/dd"))

si sa marche c'est bon