[B]Synthèse de plusieurs classeurs (vendeur1.xls,vendeur2.xls,....dans un seul)[/B]
Sur cet exemple, nous consolidons plusieurs classeurs d'un répertoire ayant un nom générique [B]Vendeurxxx.xls[/B] dans un seul classeur.
Sub consolideClasseurs()
ChDir ActiveWorkbook.Path
Set classeurMaitre = ActiveWorkbook
sup
nf = Dir("vendeur*.xls")
Do While nf <> ""
Workbooks.Open Filename:=nf
Sheets(1).Copy After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name = nf
Workbooks(nf).Close False
nf = Dir ' classeur suivant
Loop
Sheets(1).Select
End Sub
Sub sup()
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
Sheets("Accueil").Move before:=Sheets(1)
Sheets(2).Select
For i = 2 To Sheets.Count
ActiveSheet.Delete
Next i
End If
End Sub