Rechercher : dans
Par :

[vb net] ouvrir fichier excel

Dernière réponse le 5 aoû 2008 à 10:32:13 balabonov, le 4 jui 2006 à 09:14:47 
 Signaler ce message aux modérateurs

Bonjour à tous j'ai un problème pour ouvrr un fichier excellen vb.

Option Explicit On
Option Strict On

Imports Microsoft.Office.Interop.Excel.
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms



Public Class FormMain
    'Fonction ouvrir Fichier
    Private Sub OuvrirFichier()

        'Déclaration des variables
        Dim xlsapp As Excel.Application 'Application Excel
        Dim book As Excel.Workbook 'Classeur Excel

        Try
            'Nouvelle appliation excell
            xlsapp = New Excel.Application
            book = xlsapp.Workbooks.Open("chemin du fichier")
        Catch ex As COMException
            MessageBox.Show(ex.ToString())


        End Try

    End Sub

    'Ouvrir le fichier après click sur Le menu.
    Private Sub Men_Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Men_Ouvrir.Click

        OuvrirFichier()

    End Sub

    'Quitter l'application avec le menu.
    Private Sub Men_Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Men_Quitter.Click

        Me.Close()

    End Sub

End Class


Et j'obtiens cette erreur:
System.Runtime.interopServices.COMExecution (0x80040154):Impossible de créer l'objet COM avec le CLSID '{00024500-0000-0000-C000-000000000046}'en raison de l'erreur suivante : classe non enregistrée

Que dois je faire?

J'utilise: visual studio 2005, j'ai excell 2003. et j'ai rajouté les références excell dans mon projet.

1

Cyrille, le 6 déc 2006 à 17:23:08

Euh...j'ai le même problème et la même configuration(office 2003 VS 2005). As-tu trouvé la réponse à...notre problème?

Répondre à Cyrille

2

Lupin.A, le 7 déc 2006 à 22:25:10

Bonjour,

Je n'ai pas encore fait de vb net, mais mon intuition me dit que :

xlsapp = New Excel.Application

devrait être :

set xlsapp = New Excel.Application

Lupin

Répondre à Lupin.A

3

Nabil, le 7 mar 2007 à 15:11:48

Il ya une erreur tu as inscrit un point après excel: c'ets pour cette raison qu'il n'identifie pas la classe: Imports Microsoft.Office.Interop.Excel.===>Imports Microsoft.Office.Interop.Excel

Répondre à Nabil

4

Malinots, le 22 jun 2007 à 10:44:10

Moi j'ai fai sa et sa marche pour ouvrir une nouvelle page excel:

variables:

Dim excel As New Excel.Application
Dim workbook As Excel.Workbook
Dim worksheet As Excel.Worksheet
Dim r As Excel.Range
Dim firstcell As Excel.Range
Dim lastcell As Excel.Range
Dim rngg As String(,)

penser a ouvrir les librarie


mon prog et comment on ecri dedans:

Private Sub excell()

excel.Visible = True 'la fenêtre excel est visible
workbook = excel.Workbooks.Add(1) 'on ouvre un classeur dans excel
worksheet = workbook.Worksheets(1) 'on ouvre une feuille dans le classeur excel
WriteToExcel(worksheet, 1, 1, "Acquisition temps réel") 'on écrit "acquisition temps réel" à l'intersection de la ligne 1 et la colonne 1
WriteToExcel(worksheet, 2, 1, "Visualiser graphique appuyer sur ctrl+W")
Dim rng As String(,)
ReDim rng(5, 5)

rng(0, 0) = "Date et heure"
'on choisit l'intersection de la ligne 0 et de la colonne 0 pour écrire "date et heure"
rng(0, 3) = "Puissance kW"
'on choisit l'intersection de la ligne 0 et de la colonne 3 pour écrire "puissance W"
rng(0, 4) = "Tension V"
'on choisit l'intersection de la ligne 0 et de la colonne 4 pour écrire "tension V"
rng(0, 5) = "Courant A"
'on choisit l'intersection de la ligne 0 et de la colonne 5 pour écrire "courant A"

WriteToExcel(worksheet, 3, 1, rng)
'on écrit dans la feuille les expressions vu au-dessus en initialisant le curseur à la ligne 3 et la colonne 1

End Sub

si ya un probleme dite le moi

Répondre à Malinots

10

 Poupette, le 5 aoû 2008 à 10:32:13

Bonjour

Serait il possible de savoir kel librairie doit-on ouvrir pour creer un fichier excel ?
merci pour les info

Répondre à Poupette

5

Belsteak, le 22 oct 2007 à 10:21:46

Bonjour,

Pour travailler de manière correcte avec Excel, il faut changer la langue en Anlgais US avant de créer l'objet et de tarvailler avec lui. Sinon vous risquez des problèmes divers avec des messages d'erreurs ne reflétant pas le vrai problème...

ligne à ajouter.
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")

Répondre à Belsteak

6

Amine, le 30 oct 2007 à 10:10:42

Pourras tu me passer stp la fonction "WriteToExcel" que t'as utilisé dans ton script ??

Merci

Répondre à Amine

7

houssam-1, le 21 fév 2008 à 15:01:02

Si on a deux fichiers excel et je veux de prendre les informations de premier fichier et le mettre dans la deuxieme comment ?
merci

Répondre à houssam-1

8

oxywahid, le 31 mar 2008 à 19:30:31

Bjr
svp est q il ya un code vb.net pour ecrire table croisée dynamique dans un fichier excel

Répondre à oxywahid

9

redahs, le 16 avr 2008 à 12:59:48

Salut tout le monde ! j'aimerais savoir comment ouvrir un fichier excel que j'ai déja créer a partir de visual studio 2005 a l'aide d'un bouton "imprimer" et (si possible) comment remplir les champs de ce méme fichier excel a partir des textbox ou d'un datagrid. Merci de bien vouloir me répondre ^_^.


N.B:
-J'utilise microsoft office 2003.
-J'ai importé "imports microsoft.office.interop.excel".
-Je suis débutant en matiére de programmation ... please help me :)

Répondre à redahs
Collection CommentÇaMarche.net