Lire et ecrire dans un fichier excel

Question

Je veux avoir acc&#232;s &#224; un fichier excel : sans l'ouvrir "qu'il soit workbook"
Je voudrais un truc du genre
App = "chemin/fichierexcel"
Dim TextLine
Open "" app For Input As #1   
 Do While Not EOF(1)    
    Line Input #1, TextLine        
    Debug.Print TextLine    
Loop
Close #1    ' Ferme le fichier.

Sauf que j'aimerais savoir comment avoir acc&#232;s &#224; des feuilles et des cellule pr&#233;cises

Je dois surement cr&#233;er un objet de type CreateObject... ??

Si quelqu'un pouvait m'aider
Ce serait cool
; je travail sous vba

jpleroisse · Answer

Bonjour,

Private Sub CommandButton1_Click()
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim Sheet As Excel.Worksheet
Dim wks As String
wks = "C:\Mes documents\Classeur4.xls"
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(wks)
Set Sheet = appExcel.ActiveWorkbook.Worksheets(1)
'appExcel.Visible = True
TextBox1.Text = Sheet.Cells(1, 1).Value
TextBox2.Text = Sheet.Cells(1, 2).Value
End Sub

jpleroisse

Lire et ecrire dans un fichier excel

1 réponse

Discussions similaires