Discussion :

[bib34690]

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.

[HULK]

il faut importer la reference miscrosoft excel

[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.

[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

[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.

[HULK]

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 :

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
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

[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