Discussion :

[Ericntoukam]

Bonjour à tous,
Je voudrais solliciter votre grande aide suite à mon projet de réalisation d'une application.
Je débute dans la programmation sous visual stiudio 2008
l'application à pour objectif de récupérer des données numériques dans un tableau excel contenant 20 lignes et 700 colonnes (les lignes sont occupées par des sujets numérotés de sujet1 à sujet20 à l'intérieur des données numériques puis les colonnes contiennent des électrodes de différents noms) et de les afficher sous forme de tableau excel
J'aimerai par exemple récupérer le contenu des lignes 7à12 ,et 14 à19 puis des colonnes 30 à 40 et 45 à 50.
je ne sais pas trop comment m'y prendre pour la récupération des données.

Je vous prie de bien vouloir m'aider afin que je puisse récupérer d'autre données.

Merci d'avance pour votre grande aide.

[Theze]

Bonjour,

Teste :

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
41
42
43
 
    Sub RecupExcel()
 
        Dim AppExcel As New Microsoft.Office.Interop.Excel.Application
        Dim Classeur As Microsoft.Office.Interop.Excel.Workbook
        Dim Feuille As Microsoft.Office.Interop.Excel.Worksheet
        Dim Plage As Microsoft.Office.Interop.Excel.Range
        Dim I As Long
        Dim J As Integer
 
        'crée le classeur
        Classeur = AppExcel.Workbooks.Open("D:\test.xls")
 
        'rend visible l'application
        AppExcel.Visible = True
 
        Feuille = Classeur.Worksheets("Feuil1")
 
        'défini la plage sur les zones voulues en "Feuil1"
        With Feuille
 
            Plage = AppExcel.Union(.Range("AD7:AN12"), .Range("AD14:AN19"), .Range("AT7:AX12"), .Range("AT14:AX19"))
 
        End With
 
        With DataGridView1
 
            .ColumnCount = Plage.Columns.Count
            .RowCount = Plage.Rows.Count
 
            For I = 0 To Plage.Rows.Count - 1
 
                For J = 0 To Plage.Columns.Count - 1
 
                    .Rows(I).Cells(J).Value = Plage(I + 1, J + 1).value
 
                Next
 
            Next
 
        End With
 
    End Sub

Hervé.