Discussion :

[Tatouine]

Bonjour a tous,
Voila je viens de debuter lundi un nouveau projet et ma boite veux que je le developpe en VB.NET
J'ai commencé a lire un peu et a adapter un peu les codes

Voici le code que j'ai recuperer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Déclaration des variables
        Dim xlApp As Excel.Application 'Application Excel
        Dim xlBook As Excel.Workbook 'Classeur Excel
        Dim xlSheet As Excel.Worksheet 'Feuille Excel
 
        On Error GoTo err_handler
 
        'Ouverture de l'application
1:      xlApp = CreateObject("Excel.Application")
        'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert
2:      xlApp.Workbooks.Add() 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant
        'Récupération du classeur par défaut
        xlBook = xlApp.ActiveWorkbook
        'Récupération de la feuille par défaut
        xlSheet = xlBook.ActiveSheet
 
err_handler:
        MsgBox("The code failed at line " & Erl(), vbCritical)
 
    End Sub

Lors de la compilation j'ai un jolie message d'erreur :
The code failed at line 1

// donc ce code la : xlApp = CreateObject("Excel.Application")


Pourtant j ai bien ajouté la reference a excel dans mon projet...

Merci pour votr aide futur ...

D'ailleur si quelqu'un a un exemple d'extraction de données d'un fichier Excel et de recopie de celui ci dans 1 autre fichier Excel, je suis preuneur

PS : VB.net 2003 // Excel 97

[DontShootMe]

Bonjour;

Essaye en rajoutant des

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

New

dans la portion suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        Dim xlApp As New Excel.Application 'Application Excel
        Dim xlBook As New Excel.Workbook 'Classeur Excel
        Dim xlSheet As New Excel.Worksheet 'Feuille Excel

Dis nous si cela fonctionne !
En esperant t'avoir aider.
Bon courage !

[Tatouine]

Merci pour ton aide mais la du coup, nouveau message d'erreur :

Une exception non gérée du type 'System.UnauthorizedAccessException' s'est produite dans WindowsApplication1.exe

Informations supplémentaires : Accès refusé.

et j'avais lu ici que c'etait pas top top d'utiliser le newhttp://support.microsoft.com/kb/244264/fr

[DontShootMe]

Je ne connaissai pas, mais si tu lis bien cela ne s'applique pas à .Net !
C'est plus pour VB6 & -

Et dans ma réponse je n'avais pas verifier si ton code fonctionnait !
Ceci fait, tu peux en effet ne pas mettre les New !

Pour ton nouveau message d'erreur peut tu nous dire sur quelle ligne il apparait ?
au moment de lancer excel ou apres ?
Car d'aprés moi tu n'a pas les droits suffisants pour lancer Excel !

[Tatouine]

Je suis bien administateur de la machine, je ne vois donc pas pourquoi je ne pourrais pas lancer excel (outil dont je peux tres bien me servir pour creer des xls)

j ai meme executer : dcomcnfg puis verifier les composant service de l'ordinateur et la configuration DCOM et dans les proprieté de l'application Exel 97 et mis les droit par defaut...
et ca marche
par contre, sans les new

et cette erreur etait a la ligne :
xlApp As New Excel.Application