Sub
OuvrirHtmlDansXl()
Dim WbkTemp As Workbook
On Error Resume Next
Workbooks.Open [A1]
''en cas d'erreur, message d'avertissemeent à l'utilisateur, effacement du numéro d'erreur, remise à zéro du gestionnaire d'erreur et fin de Sub
If Err <> 0 Then MsgBox "Le fichier """ & [A1] & """ n'a pas été créé, veuillez .......patati et patata": Err.Clear: On Error GoTo 0: End
Set WbkTemp = ActiveWorkbook
'ligne de code
'ligne de code
'ligne de code
'Fermeture
WbkTemp.Close False
End Sub