Trier une liste selon un CRITERIA1 d'1 autre fichier
Bonjour,
J'ai 2 fichiers Excel :
- FICHIER1 dans lequel en actionnant un bouton je vais dans le FICHIER2, trier une liste, copier les résultats et les coller dans le FICHIER1.
J'arrive bien à faire cela lorsque le champ à filtrer est fixe, mais je voudrais qu'il filtre selon la valeur d'une cellule contenue dans le FICHIER1 et là ça coince...
Voilà en gros mon essai (code placé dans le FICHIER1), en gras l'expression qui pose problème...
Sub UT1()
Windows("FICHIER2.xls").Activate
Selection.AutoFilter Field:=6, Criteria1:=Windows("FICHIER1.xls").Sheets("UT1").Range("B6").Value
Range("B11:D150").Select
Selection.Copy
Windows("FICHIER1.xls").Activate
Range("B43").Select
ActiveSheet.Paste
Windows("FICHIER2.xls").Activate
Range("G11:G150").Select
Application.CutCopyMode = False
Selection.Copy
Windows("FICHIER1.xls").Activate
Range("E43").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=21
End Sub
Est-ce que je souhaite faire est possible ?
Merci de votre aide !
LMA
essaye ==> Workbooks("FICHIER1").Worksheets("UT1").Range("B6").value
Merci, c'est tout à fait ça !
Bonne journée