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
| Option Strict Off
Imports System.IO
Imports System.Reflection ' For Missing.Value and BindingFlags
Imports Excel = Microsoft.Office.Interop.Excel
Module Resultat_Excel
'Friend WithEvents Ex As Excel.Application
'Friend WithEvents ThisDocument As Excel.Worksheets
Public Sub Affichage_Resultats_Excel()
Dim xl As New Excel.Application
xl = New Excel.Application
Dim msg1, msg2, msg3 As String
If xl Is Nothing Then
MsgBox("ERROR: EXCEL couldn't be started!")
'Environment.ExitCode = 0
Exit Sub
End If
xl.Visible = False 'affiche le document
xl.Workbooks.Add() 'ajouter un nouveau classeur ==> Ligne de blocage du code
If l_strFileName = "" Then
xl.ActiveWorkbook.SaveAs("C:\NouveauClasseur") 'Enregistrer sous le classeur
Else
Dim toto As String = l_strFileName
Call Lecture_chaine(toto)
msg1 = "C:\" & toto
xl.ActiveWorkbook.SaveAs(msg1) 'Enregistrer sous le classeur
End If
xl.ActiveWorkbook.Worksheets("Feuil1").Select() 'Selectionner une feuille
xl.ActiveWorkbook.Worksheets("Feuil1").Name = "1" 'Renommer une feuille
xl.ActiveWorkbook.Worksheets("1").Range("A1").Value = "Noeuds / Cas"
xl.ActiveWorkbook.Worksheets("1").cells(1, 2).Value = "Fx"
xl.ActiveWorkbook.Worksheets("1").Range("C1").Value = "Fy" |
