Bonjour,

Qqn a-t-il une methode? J'ai ceci, mais cela génère des erreurs.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        DisplayDownloadDialog("D:\monfichier.xls")
    End Sub
 
    Sub DisplayDownloadDialog(ByVal strFileName As String)
        Dim objFileInfo As System.IO.FileInfo
 
        Try
            If Not System.IO.File.Exists(strFileName) Then Exit Sub
            objFileInfo = New System.IO.FileInfo(strFileName)
            Response.Clear()
            'Response.ClearHeaders()
            'Response.Buffer = True
            'Add Headers to enable dialog display 
            Response.AddHeader("Content-Disposition", "filename=" & objFileInfo.Name)
            Response.AddHeader("Content-Length", objFileInfo.Length.ToString())
            Response.ContentType = "application/octet-stream"
            Response.WriteFile(objFileInfo.FullName)
        Catch ex As Exception
 
        Finally
            Response.End()
        End Try
    End Sub
Merci