A voir également:
- Programmation ado-excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
- Comment trier par ordre alphabétique sur excel - Guide
2 réponses
Pour bien commencer :
Option Compare Database
Option Explicit
'Description des liens OLE avec Excel
Public Excel_Application As Excel.Application
Public Excel_book As Excel.Workbook
Public Excel_sheet As Excel.Worksheet
'Déclaration Variables Globales
Dim db As New ADODB.Connection
Dim rst As New ADODB.Recordset
Public Sub Excel_Création_Lien_OLE()
Set Excel_Application = CreateObject("Excel.Application")
End Sub
Public Sub Excel_ouvertureFichier(nomFichier As String)
Set Excel_book = Excel_Application.Workbooks.Open(nomFichier)
End Sub
Sub MaMeth()
Call Excel_Création_Lien_OLE
Call Excel_ouvertureFichier(monchemin)
End MaMeth
Option Compare Database
Option Explicit
'Description des liens OLE avec Excel
Public Excel_Application As Excel.Application
Public Excel_book As Excel.Workbook
Public Excel_sheet As Excel.Worksheet
'Déclaration Variables Globales
Dim db As New ADODB.Connection
Dim rst As New ADODB.Recordset
Public Sub Excel_Création_Lien_OLE()
Set Excel_Application = CreateObject("Excel.Application")
End Sub
Public Sub Excel_ouvertureFichier(nomFichier As String)
Set Excel_book = Excel_Application.Workbooks.Open(nomFichier)
End Sub
Sub MaMeth()
Call Excel_Création_Lien_OLE
Call Excel_ouvertureFichier(monchemin)
End MaMeth
