VB.NET Pilotage Excel : parametres xl... non reconnus

Version imprimable

07/03/2006, 11h44
bib34690

VB.NET Pilotage Excel : parametres xl... non reconnus

Bonjour,

Je souhaite réaliser une petite appli en VB.NEt qui pilote Excel.
Voici mon code :

Public XL As Excel.Application
...
XL.Selection.PasteSpecial(Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False)

VS me dit que xlValue et xlNone ne sont pas déclarés.
J'ai essayé avec XL.xlValues...VS ne dit plus rien mais ça plante à l'execution.
J'ai ce problème avec toutes les fonctions dont les param. ont une réponse autre que True ou False (tout ce qui commence par xl...).
qq a t'il une solution ?

merci pour votre aide.
07/03/2006, 12h06
HULK

il faut importer la reference miscrosoft excel
07/03/2006, 14h00
bib34690

Milles excuses pour le titre effectivement pas trés clair...que j'ai corrigé

Merci pour ta réponse, morpheus, mais je suis débutant et je ne voit pas coment faire...un petit exemple serait sympa
J'ai selectionné dans Projet, ajouter reference, COM, Microsoft Excel 10.0 Object Library
mais il n'accepte toujours pas les mots commençants pas xl et il plante tj si j'ajoute XL. devant

merci.
07/03/2006, 16h30
HULK

importe aussi la réference microsoft office, pour importer une référence, tu fais comme tu as dit, apres tu dois voir ce que tu as importé dans la liste des references en haut de l'arborescence de ton projet
07/03/2006, 17h24
bib34690

dans l'explorateur sous References je vois :
-Excel
-Microsoft.Office.core
...
j'essaye de rajoute Microsoft office 10.0 Object Library mais ça ne rajoute rien, donc ça doit correspondre à xxx.core

pourtant ça marche pas.

La syntaxe qui devrait marcher c'est quoi :
Paste:=xlValues ou Paste:=XL.XlValues ou Paste:=XL.Values ?
en tout cas, aucune ne marche chez moi.

Merci pour ton aide.

bah moi j'ai pas plus de références que toi, office 10 library correspond bien à office core, chez moi ca fonctionne, je vois pas dou'viens le pb, je te file moncode mais c'est du vb :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Dim xlApp As Excel.Application
        Try
            xlApp = GetObject(, "excel.application")
        Catch
            xlApp = New Excel.Application
        Finally
            xlApp.Visible = False
        End Try
 
        'ajout d'une page et sélection 
        Dim xsSoldesComptes5 As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
        'requete serveur 
        Try
            With xsSoldesComptes5.QueryTables.Add(Connection:= _
            "ODBC;DRIVER=SQL Server;SERVER=....;Integrated Security=SSPI;" & _
            "APP=Microsoft® Query;DATABASE=Brazza;Trusted_Connection=Yes" _
            , Destination:=xsSoldesComptes5.Range("A1"))
 
                .CommandText = "ESSAI_1" 
                .Name = "SoldesComptes5"
                .FieldNames = True
                .RowNumbers = True
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells
                .SavePassword = False
                .SaveData = False
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .PreserveColumnInfo = True
                .Refresh(BackgroundQuery:=False)
            End With
            ' affichage 
            xlApp.Visible = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

08/03/2006, 09h49
bib34690

Ca marche...!

il faut remplacer le code vba suivant :
XL.Selection.PasteSpecial(Paste:=xlValues)

par :
XL.Selection.PasteSpecial(Excel.XlPasteType.xlPasteValues)
ou
XL.Selection.PasteSpecial(Paste:=Excel.XlPasteType.xlPasteValues)

merci pour ton aide Morpheus et toute l'équipe du forum.
bonne journée