Sub recup()
'Parametre d'importation
ThisWorkbook.Activate
Dim Source As String
ligne = 1 'ligne d'ecriture
colonne = 1 ' colonne d'ecriture
For n = 19 To 50
Source = Sheets("PARAMETRES").Range("K" & n)
Chemin = Source ' chemin d'accés
fichier = Dir(Chemin & "*????-????-??.xls")
Do While fichier <> ""
Workbooks.Open Filename:=Chemin & fichier
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
'localisation des données à extraire
Dim Effectif As String, NumGestion As String
On Error GoTo suite 'si les feuilles n'existent pas, ne rien faire et passer à la suite
Effectif = Sheets("BALANCE").Range("D89")
NumGestion = Sheets("PARAMETRES").Range("D9")
'Extraction des données
ThisWorkbook.Sheets("AjoutEffectif").Activate
Cells(ligne, colonne) = NumGestion
Cells(ligne, colonne + 1) = Effectif
ligne = ligne + 1
suite:
On Error GoTo 0
Windows(fichier).Close savechanges:=False ' fermeture du fichier sources sans enregistrer les changements
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
fichier = Dir ' Fichier suivant
Loop
Next
End Sub