problème vb excelRésolu

Question

bonjour a tous 
Tout d'abord je travail avec studio 2008 language vb.net , et je voulais savoir si il est possible d'ouvrir une feuille excel déja existante en rensignant le lien ou se trouve celle ci ? 
merci d'avance pour vos lumière car moi c'est le trou noir ^^

Renfield · Accepted Answer

exemple :
Option Strict On
Option Explicit On

Imports Microsoft.Office.Interop

Public Class Form1
    Private moXL As Excel.Application

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        moXL = New Excel.Application
        moXL.Visible = True
        moXL.Workbooks.Open("C:\a.xls")
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        moXL.Quit()
    End Sub
End Class


Renfield - Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

oui, bien sur.

tu trvoueras de nombreux exemples de codes sur le site faisant cela.

Renfield - Admin CodeS-SourceS - MVP Visual Basic

grosdur59 · Answer

j'ai trouvé comment on fait pour ouvrir un fichier mais pas un fichier existant  lol

Renfield · Answer

simplement

workbooks.Open "C:\a.xls"


Renfield - Admin CodeS-SourceS - MVP Visual Basic

grosdur59 · Answer

jessaie de suite merci

grosdur59 · Answer

voila jai fai sa donc sa fonctionne pour crée une nouvelle feuille mais 
avec 
workbooks.Open "C:\a.xls" sa ne fonctionne pas c'est peut etre que je travail avec studio 2008 ? 

'initialisation des variables
        Dim appxls As Microsoft.Office.Interop.Excel.Application
        Dim sheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim Colonne_Cellule As String = ""
        Dim Coord_Cellule As String = ""
        Dim valeure As String
        appxls = New Microsoft.Office.Interop.Excel.Application

        appxls.Visible = False
        'Ajouter un nouveau classeur
        appxls.Workbooks.Add()
        sheet = appxls.ActiveWorkbook.Worksheets("Feuil1")

grosdur59 · Answer

a oki atten j'essai encore une foi

grosdur59 · Answer

nikel sa marche impec !  t tro fort merci beaucoup

Renfield · Answer

et pour manipuler un peu la chose :
Option Strict On
Option Explicit On

Imports Microsoft.Office.Interop

Public Class Form1
    Private moXL As Excel.Application

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim oSh As Excel.Worksheet
        moXL = New Excel.Application
        moXL.Visible = True
        moXL.Workbooks.Open("C:\suivi CEN.xls")
        oSh = CType(moXL.ActiveSheet, Excel.Worksheet)
        oSh.Range("A1").Value = "Hello world !"
        oSh.Range("B1").Formula = "=12+31"
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        moXL.Quit()
    End Sub
End Class




Renfield - Admin CodeS-SourceS - MVP Visual Basic

Problème vb excel

9 réponses

Votre réponse

Discussions similaires