Bonjour,
Mon code m'affiche la même erreur : "Exception de HRESULT : 0x800A03EC"
Néanmoins cela à l'air d'être pour une autre raison :
Dim EXCELAPP As Application
Dim BOOK As Workbook
Dim SHEET As Worksheet
EXCELAPP = New Application
'### Ligne avec erreur
BOOK = EXCELAPP.Workbooks.Open(TheFichier)
'###
TheFichier = "C:\DOSSIERS HC_BLUE\DESTINATION\12345678910\20150303-133451-12345678910.xlsx"
C'est donc sur cette dernière ligne qu'elle me pose problème.
Pouvez-vous m'aider ?