Private Sub CopierOuvrirFichier() Dim destination As String = My.Computer.FileSystem.SpecialDirectories.Temp System.IO.File.WriteAllBytes(destination, My.Resources.devisJMP) System.Diagnostics.Process.Start(destination) End Sub
Dim destination As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\provisoire.pdf"