Problème copie de valeur

Bonjour à tous,

Voici le code qui me pose soucis :

• Private Sub bouton_jour_Click()
  Dim resultat As String
  resultat = InputBox("Date à rechercher", "Date", "01/01/2016")
  Worksheets("BDD").Range("B3").Value = resultat
  Worksheets("Travail").Range("A3").Value = Worksheets("BDD").Range("B3").Value
  Workbooks("ENR061 Collecte de données-analyses A- 2015-2016.xlsx").Sheets("Saisie chgnts format").Range("A4:F263").AdvancedFilter _
  Action:=xlFilterCopy, _
  CriteriaRange:=Workbooks("Test.xlsm").Worksheets("Travail").Range("A2:F3"), _
  CopyToRange:=Workbooks("Test.xlsm").Worksheets("Travail").Range("A5:F5"), _
  Unique:=False
  
  End Sub

J'essaie en fait :

1 - Clique sur le bouton

2 - Renseignement d'une date

3 - Copie de cette date dans une cellule d'une autre feuille

4 - Recopie de cette même date dans la cellule d'une autre feuille encore

5- Import de données d'un autre classeur via un filtre avancé prenant en compte la date que je viens de copier

Et la je ne comprend pas ! Si je test que l'import de la date via VBA OK

Que l'import de données via le filtre avancé codé en VBA suite au remplissage "manuel" de A3 OK

Le mix des deux ne prend pas en compte la date importée en fait...

Une idée ?

Merci d'avance à vous !

Bonjour,

un peu de lecture avant tout

https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html

(point 6)

P.