' Application.ScreenUpdating = False
Do While Len(fichier) > 0
Colonne = Colonne + 1
If fichier <> ThisWorkbook.Name Then
'attribue un nom dans le classeur, se référant à la plage à importer : B2:I18
Workbooks.Open (Chemin & fichier)
Dim Flag As Boolean, i As Byte, MaFeuille As Worksheet
Flag = False
with workbooks(fichier)
For i = 1 To .Worksheets.Count
If .Worksheets(i).Name = "Etude" Then
Flag = True
Exit For
End If
Next
end with
If Flag = True Then
ThisWorkbook.Names.Add "Plage", RefersTo:="='" & "[" & fichier & "]Etude'!$B$2:$q$44"
Else
ThisWorkbook.Names.Add "Plage", RefersTo:="='" & "[" & fichier & "]garderie'!$B$2:$q$44"
End If
With Sheets("recup_etude")
' "Importe les données" grâce au nom donné ci-dessus
.[B2:Q44] = "=Plage"
'recup donnés général
.[C3:c7].Copy 'Copie C3'.[C3].Copy 'Copie C3
End With
With Sheets("synthese")
.Cells(3, Colonne).PasteSpecial xlPasteValues 'Colle c3
End With
End If
Workbooks(fichier).Close
fichier = Dir()
Loop
End If
'Application.ScreenUpdating = true