Dim NomFic As String
NomFic = "C:\Temp\Test.tif"
ImageDoc = Engine>>PrepareAndOpenImage(ConstruitVariantAutomation(NomFic))