Discussion :

[mercatog]

Dans ta feuille R-04-09 du fichier récap mensuel, tu mets un bouton, tu lui colle ce code, le tour est joué

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Dim LastLig As Long
Dim Wbk As Workbook, aWbk As Workbook
Dim stFichierComp As String
Dim plage As Range
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Cells.ClearContents                     'Ici efface d'abord toute ta feuille R-04-09, tu peux adapter à seulement ne certaine zone
 
stFichierComp = "C:\Documents and Settings\Administrateur\Bureau\FACTURATION.xls" ' !!!!!!à adapter
 
Set Wbk = ThisWorkbook
Set aWbk = Workbooks.Open(stFichierComp)
 
 
With aWbk.Sheets("devis")
Set plage = .Range("A1:C" & .Range("A65536").End(xlUp).Row)
    plage.AutoFilter                                            'pour supprimer les filtres existants
    plage.AutoFilter Field:=2, Criteria1:=">200"
    plage.AutoFilter Field:=3, Criteria1:="<300"
 
    LastLig = .Range("A65536").End(xlUp).Row
    If LastLig > 1 Then .Range("A2:C" & LastLig).SpecialCells(xlCellTypeVisible).Copy Wbk.Sheets("R-04-09").Range("A3") 'Tu ne dis pas où copier
End With
 
aWbk.Close
Set Wbk = Nothing
Set aWbk = Nothing
 
Application.DisplayAlerts = False
Application.ScreenUpdating = True

[phiphi_j]

Désolé de ne pas avoir donné de nouvelles plus tôt. Merci à mercatog pour sa formule qui a fonctionné. Merci beaucoup !