nom de cellule

Version imprimable

nom de cellule

bonjour

je souhaite récupérer les nom de cellule que j'ai défini dans un excel en utlisant le code suivant
mais en faite je ne récupére que les adresses cellule

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim nom As String
        xlApp = New Excel.ApplicationClass
 
        'ouverture du cahier
 
        xlWorkBook = xlApp.Workbooks.Open("C:\Users\seb\Desktop\test.xls")
        xlWorkSheet = xlWorkBook.ActiveSheet
 
        For Each nom In xlWorkBook.Names
            MsgBox(nom)
        Next
 
        xlApp.Visible = True
        xlWorkBook.Save()
        xlApp.Quit()

Je recupere "=Feuil1!$H$27" mais pas le nom defini par cette plage d'adresse

comment puis je faire SVP ?

Bon week end

collection des "noms" definis dans excel

Bonjour
Pas si simple que ca d'acceder au nom des cellules .Pourtant elles sont bien renseignes dans Excel (voir aide de VBA).
Un petit effort mon ami.
voici le code.....

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
 
Imports System.IO
Imports Microsoft.Office.Interop.Excel
 
Public Class Form1
    Dim strChemin As String = Directory.GetCurrentDirectory & "\"
    Dim fichier As String = "test.xls"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim xlApp As Microsoft.Office.Interop.Excel.Application
        Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        'vire ca
        'Dim nom As String
        xlApp = New Microsoft.Office.Interop.Excel.Application
        'ouverture du cahier
 
        xlWorkBook = xlApp.Workbooks.Open(strChemin & fichier)
        xlWorkSheet = xlWorkBook.ActiveSheet
        'Declare la collection Names 
        'Initialise avec nothing car c'est une interface COM
        '(sinon je garantis rien pour la suite de ton code) 
        Dim objNames As Microsoft.Office.Interop.Excel.Names = Nothing
        'affecte lui ensuite ceci
        objNames = xlWorkBook.Names
        'maintenant tu seras "happy"
        For I As Integer = 1 To objNames.Count
            MsgBox(objNames.Item(I).Name)
            Me.TextBox1.Text = Me.TextBox1.Text & objNames.Item(I).Name & vbCrLf
        Next I
 
 
        xlApp.Visible = True
        xlWorkBook.Save()
        xlWorkBook = Nothing
        xlApp.Quit()
        'ajoute ceci sinon Excel n'est pas ferme 
        xlApp = Nothing
    End Sub
End Class

bon code.....

21/06/2011, 10h50
gyver4000

super

merci bcp pour ton aide

++

vive developpez.Com et ces menbres