Sub importDonnees()
Dim principal As Workbook
Dim repertoire As String, fichier As String
Application.ScreenUpdating = False
Set principal = ThisWorkbook
repertoire = ThisWorkbook.Path
ChDir repertoire
fichier = Dir("*.xls")
Do While fichier <> ""
If fichier <> principal.Name Then
Workbooks.Open fichier
On Error GoTo suivant
With Sheets("synth")
On Error GoTo 0
On Error Resume Next
.Range("E18").Copy Destination:=principal.Sheets(1).[a65536].End(xlUp).Offset(1, 0)
.Range("H34").Copy Destination:=principal.Sheets(1).[a65536].End(xlUp).Offset(1, 1)
.Range("I22").Copy Destination:=principal.Sheets(1).[a65536].End(xlUp).Offset(1, 2)
End With
ActiveWorkbook.Close False
End If
suivant:
If Err.Number = 9 Then MsgBox "Pas de feuille ""synth"" dans le fichier " & fichier, vbExclamation: ActiveWorkbook.Close False
fichier = Dir
Loop
Application.ScreenUpdating = True
End Sub