Discussion :

[amirad]

Salut,

Est-il possible d'afficher le résultat d'une méthode VB.Net dans un fichier .xsl ?

Merci.

[ricil78]

Si j'ai bien compris tu veux écrire un truc dans un fichier xls, après peu importe d'où ça vient !

Ajouter la référence : Microsoft.Office.Interop.Excel

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
friend sub Ecrire(FileName)
        'Creation d'une nouvelle Application excel
        Dim app As Application
        Dim ExcelClasseurs As Workbooks
        Dim ExcelClasseur As _Workbook
        Dim ExcelFeuilles As Sheets
        Dim ExcelFeuille As _Worksheet
 
 
        Try
            'Nouvelle Application excel
            app = New Application()
            If app Is Nothing Then
                Throw New Exception("EXCEL n'a pas pu démarrer")
            End If
 
            'Application visible
            app.Visible = True
 
            'Récup les classeurs
            ExcelClasseurs = app.Workbooks
 
 
            ExcelClasseur = ExcelClasseurs.Add(XlWBATemplate.xlWBATWorksheet)
 
            'Récup les Feuilles
            ExcelFeuilles = ExcelClasseur.Worksheets
 
            'Se place en feuille 1
            ExcelFeuille = ExcelFeuilles.Item(1)
            If ExcelFeuille Is Nothing Then
              Throw New Exception("La feuille excel est Null")
            End If
 
 
 
 
            'Ici votre code (Attention vous êtes sur la feuille 1)
 
 
 
 
 
            'Enregistre
			ExcelClasseur.SaveAs(FileName)
            'app.UserControl = False
            'app.Quit()
 
        Catch ex As Exception
            Throw ex
        End Try
End sub

[amirad]

Si j'ai bien compris tu veux écrire un truc dans un fichier xls, après peu importe d'où ça vient !

Ajouter la référence : Microsoft.Office.Interop.Excel

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
friend sub Ecrire(FileName)
        'Creation d'une nouvelle Application excel
        Dim app As Application
        Dim ExcelClasseurs As Workbooks
        Dim ExcelClasseur As _Workbook
        Dim ExcelFeuilles As Sheets
        Dim ExcelFeuille As _Worksheet
 
 
        Try
            'Nouvelle Application excel
            app = New Application()
            If app Is Nothing Then
                Throw New Exception("EXCEL n'a pas pu démarrer")
            End If
 
            'Application visible
            app.Visible = True
 
            'Récup les classeurs
            ExcelClasseurs = app.Workbooks
 
 
            ExcelClasseur = ExcelClasseurs.Add(XlWBATemplate.xlWBATWorksheet)
 
            'Récup les Feuilles
            ExcelFeuilles = ExcelClasseur.Worksheets
 
            'Se place en feuille 1
            ExcelFeuille = ExcelFeuilles.Item(1)
            If ExcelFeuille Is Nothing Then
              Throw New Exception("La feuille excel est Null")
            End If
 
 
 
 
            'Ici votre code (Attention vous êtes sur la feuille 1)
 
 
 
 
 
            'Enregistre
			ExcelClasseur.SaveAs(FileName)
            'app.UserControl = False
            'app.Quit()
 
        Catch ex As Exception
            Throw ex
        End Try
End sub

Bonjour ricil78,
Merci pour ton aide, cependant, il ne s'agit pas d'un fichier Excel (xls), mais plutôt d'un fichier xsl (fichier de styles pour la représentation d'un fichier XML).

[ricil78]

Autant pour moi, effectivement réponse à coté de la plaque !

je connais pas trop les fichiers xls mais à mon avis tu peux l'écrire soit comment un fichier xml ou un simple fichier texte

exemple ecriture xml en linq et en standard
http://www.hookedonlinq.com/LINQtoXM...eOverview.ashx

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

My.Computer.FileSystem.WriteAllText("FullNameFichier","TaVariableAvecTonTxt",False)

en espérant t'avoir aider cette fois-ci.

[amirad]

Autant pour moi, effectivement réponse à coté de la plaque !

je connais pas trop les fichiers xls mais à mon avis tu peux l'écrire soit comment un fichier xml ou un simple fichier texte

exemple ecriture xml en linq et en standard
http://www.hookedonlinq.com/LINQtoXM...eOverview.ashx

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

My.Computer.FileSystem.WriteAllText("FullNameFichier","TaVariableAvecTonTxt",False)

en espérant t'avoir aider cette fois-ci.

Merci pour le lien, ça parait intéressant.
Bonne journée