Dans l'évènement de la feuille :
Private Sub CommandButton__traiter_fichiers_Click()
' ================================================================================================ '
' TRAITE LES FICHIERS DE LA LISTBOX '
' ================================================================================================ '
Call traitement
End Sub
Dans un module "standard"
Public mon_Path As String
Public mon_Fichier As String
Public mon_Integer As Integer
Public mon_Variant As Variant
Public mon_Tableau(0 To 10)
Dim Derlig As Integer
Sub traitement()
Application.ScreenUpdating = False
mon_Fichier = ActiveWorkbook.Name
Sheets("doublons").Copy After:=Sheets(2)
ActiveSheet.Name = "transit"
For i = 1 To Sheets("accueil").ListBox__nom_fichiers.ListCount
With ThisWorkbook
Set Destination = .Sheets("transit").Range("a65536").End(xlUp).Offset(1, 0)
End With
Workbooks.Open Filename:=mon_Path + mon_Tableau(i)
With Sheets(Mid(mon_Tableau(i), 1, Len(mon_Tableau(i)) - 4))
.Range(.Range("A2"), .Range("A2").End(xlDown).Offset(0, 9)).Copy Destination
End With
ActiveWorkbook.Close False
Next
Derlig = Range("A65000").End(xlUp).Row
With Sheets("doublons")
.Select
Sheets("transit").Range("A1:J" & Derlig).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=.Range("A1:J1"), Unique:=True
.Range("A1:J" & Range("A65000").End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
End With
Application.DisplayAlerts = False
Sheets("transit").Delete
Application.DisplayAlerts = True
End Sub