1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Imports System.IO
Imports System.Diagnostics
Imports Microsoft.Office
Imports System.Net.Mime.MediaTypeNames
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Nomenclature
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
'/////////// FONCTION D'OUVERTURE EXCEL ////////////////////////////////////////
Sub ouvertureExcel()
'Ouverture de l'application
appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
wbExcel = appExcel.Workbooks.Open("C:\Kalysse\Matrice Primo")
End Sub |
