Charger un fichier excel précis dans un endroit précis

**Attila54** · 14/05/2012, 11h04

Bonjour
Actuellement, mon appli charge dans un formulaire les données d'un fichier excel nommé monclasseur.xls toujours situé dans "mes documents", et ce sur click button (Private Sub btnLoadData_Click).
A cet effet, j'utilise

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 'ouvre la feuille 1 de l'application mais la laisse invisible
            AppExcel = New OXL.Application
            xlWorkbook = AppExcel.Workbooks.Open(appPath & "\monClasseur.xls")
            xlWorkSheetOne = CType(xlWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
            AppExcel.Visible = False
 
            'chargement des data en Textbox 
            Dim rng As OXL.Range = Nothing
 
            rng = CType(Me.xlWorkSheetOne.Cells(10, 7), Microsoft.Office.Interop.Excel.Range)
            Me.txtNOM.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(10, 8), Microsoft.Office.Interop.Excel.Range)
            Me.txtPRENOM.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(10, 9), Microsoft.Office.Interop.Excel.Range)
            Me.TxtNAISSANCE.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(16, 2), Microsoft.Office.Interop.Excel.Range)
            Me.S.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(16, 3), Microsoft.Office.Interop.Excel.Range)
            Me.C.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(16, 4), Microsoft.Office.Interop.Excel.Range)
            Me.AXE.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(16, 8), Microsoft.Office.Interop.Excel.Range)
            Me.SC.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(16, 9), Microsoft.Office.Interop.Excel.Range)
            Me.CC.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(16, 10), Microsoft.Office.Interop.Excel.Range)
            Me.AC.Text = CType(rng.Value, String)
.
.
.
 
 MessageBox.Show("Data loaded in the form")
            CloseAppExcel()
End Sub
Private Sub CloseAppExcel()
        'procedure de fermeture du fichier excel
        If xlWorkSheetOne IsNot Nothing Then
            xlWorkSheetOne = Nothing
        End If
        If xlWorkSheetTwo IsNot Nothing Then
            xlWorkSheetTwo = Nothing
        End If
        If xlWorkbook IsNot Nothing Then
            xlWorkbook = Nothing
        End If
        If AppExcel IsNot Nothing Then
            AppExcel.Quit()
            AppExcel = Nothing
        End If
    End Sub

Maintenant je voudrais ouvrir, toujours sur clic button, non pas toujours le meme nom de fichier toujours situé dans mes documents, mais le fichier que je veux, ou qu'il se trouve (tant que c'est un fichier .xls)

J'ai pensé utiliser un Openfiledialog mais je n'arrive absolument pas a l'integrer correctement dans ma "Private Sub btnLoadData_Click"

**hunteshiva** · 14/05/2012, 11h15

Bonjour,

Voici un bout de code qui devrait t'aider à l'integer

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
        ' #####################################################
        ' ############# Déclaration des variables #############
        ' #####################################################
 
 
        ' Fichier Excel
        Dim CheminFicher As String
        Dim BoiteDialogue As New OpenFileDialog
 
        ' #####################################################
        ' ############ Recherche du fichier Excel #############
        ' #####################################################
 
        With BoiteDialogue
            ' Initialisation de la boite de dialogue
            .Title = "Selection d'un essai"
            .InitialDirectory = My.Application.Info.DirectoryPath ' répertoire de l'application
            .Filter = "Fichiers Excel |*.xls; *xlsx"
            ' vérification de la séléction
            If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                CheminFicher = .FileName
            Else
                MsgBox("Aucun fichier Excel séléctionné")
                Exit Sub ' Abandon de la routine
            End If
        End With

**hunteshiva** · 14/05/2012, 11h22

concernant ton code,
il est pas mal j'aime bien quand tu commence avec "txtNOM", "txtPRENOM", ...

Pourquoi abandonner cette syntaxte par la suite?

Code :

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

1
2
3
Me.S.Text
Me.C.Text
Me.AXE.Text

On ne sais pas si c'est des labels, des textBox ou autre ....

et le seconde point, c'est que tu devrais mettre des "Try" "Catch",
si le fichier excel que tu charge n'est pas le bon, tu risque de planter ton appli.
(cellules vides, ou autre pourraient générer une erreur)

**Attila54** · 14/05/2012, 11h30

Merci hunteshiva pour tes encouragements et tes conseils avises
Je vais remedier a tout cela

**hunteshiva** · 14/05/2012, 11h37

De rien

Pense a mettre

**Attila54** · 14/05/2012, 11h51

euh alors j'ai oublié un paramètre important qui doit me faire planter le "load" je pense
dans mon classeur excel, j'ai 2 worksheet selon la veleur de mon etiquette et en l'occurence j'ai un peu oublié de la mentionner

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
 Private Sub btnLoadData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadData.Click
        txtDocteur2.Text = txtDocteur.Text
        If AppExcel IsNot Nothing Then
            MessageBox.Show("Excel Worksheet is closing please wait")
            If xlWorkSheetOne IsNot Nothing Then
                xlWorkSheetOne = Nothing
            End If
            If xlWorkSheetTwo IsNot Nothing Then
                xlWorkSheetTwo = Nothing
            End If
            If xlWorkbook IsNot Nothing Then
                xlWorkbook = Nothing
            End If
            AppExcel.Quit()
            AppExcel = Nothing
        End If
 
        If Etiqoeiltraite.Text = "OD" Then
 
            'ouvre la feuille 1 de l'application mais la laisse invisible
            AppExcel = New OXL.Application
            xlWorkbook = AppExcel.Workbooks.Open(appPath & "\monClasseur.xls")
            xlWorkSheetOne = CType(xlWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
            AppExcel.Visible = False
 
            'chargement des data en Textbox 
            Dim rng As OXL.Range = Nothing
 
            rng = CType(Me.xlWorkSheetOne.Cells(10, 7), Microsoft.Office.Interop.Excel.Range)
            Me.txtNOM.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(10, 8), Microsoft.Office.Interop.Excel.Range)
            Me.txtPRENOM.Text = CType(rng.Value, String)
.
.
MessageBox.Show("Data loaded in the form")
            CloseAppExcel()
        End If
 
If Etiqoeiltraite.Text = "OS" Then
 
            'ouvre l'onglet 2 de l'application
            AppExcel = New OXL.Application
            xlWorkbook = AppExcel.Workbooks.Open(appPath & "\monClasseur.xls")
            xlWorkSheetTwo = CType(xlWorkbook.Worksheets(2), Microsoft.Office.Interop.Excel.Worksheet)
            AppExcel.Visible = False
 
            'chargement des data en Textbox 
            Dim rng As OXL.Range = Nothing
 
            rng = CType(Me.xlWorkSheetTwo.Cells(10, 8), Microsoft.Office.Interop.Excel.Range)
            Me.txtPRENOM.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetTwo.Cells(10, 7), Microsoft.Office.Interop.Excel.Range)
            Me.txtNOM.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetTwo.Cells(10, 9), Microsoft.Office.Interop.Excel.Range)
            Me.TxtNAISSANCE.Text = CType(rng.Value, String)
.
.
 MessageBox.Show("Data loaded in the form")
            CloseAppExcel()
        End If
End sub
 
Private Sub CloseAppExcel()
        'procedure de fermeture du fichier excel
        If xlWorkSheetOne IsNot Nothing Then
            xlWorkSheetOne = Nothing
        End If
        If xlWorkSheetTwo IsNot Nothing Then
            xlWorkSheetTwo = Nothing
        End If
        If xlWorkbook IsNot Nothing Then
            xlWorkbook = Nothing
        End If
        If AppExcel IsNot Nothing Then
            AppExcel.Quit()
            AppExcel = Nothing
        End If
    End Sub

la, je peux effectivement selectionner le fichier que je veux dans le rep que je veux mais au chargement ..... plantage total ....

**Attila54** · 14/05/2012, 11h52

j'y avais pensé mais je l'ai "déresolu" car je viens de constater un plantage objet du topic juste au dessus ....

**hunteshiva** · 14/05/2012, 12h07

Alors ton problème est résolu ou pas ??

je te conseil de mettre la réponse a tes problèmes car même moi je ne comprend pas tout avec tes étiquettes.

mais au chargement ..... plantage total ....

Oui peut tu nous montrer la ligne et le message d'erreur retourné?

**Attila54** · 14/05/2012, 13h27

en fait je l'ai cru résolu et je me suis apercu que le chargement ne tenait pas compte du fait que il y avait des worksheet (1 et 2) dans le fichier excel.
En fait pour faire simple, quand on parle de l'oeil gauche, j'ai une etiquette "OG" qui s'affiche dans le formulaire et si cette etiquette est affichée, on charge le worksheet2 du .xls
Dans le cas de l'oeil droit, , etiquette OD, on charge le worksheet1
Je pensais qu'en faisant :

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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
 
 Private xlWorkbook As OXL.Workbook
    'feuille 1
    Private xlWorkSheetOne As OXL.Worksheet
    'feuille 2
    Private xlWorkSheetTwo As OXL.Worksheet
.
.
 
Private Sub btnLoadData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadData.Click
        txtDocteur2.Text = txtDocteur.Text
        If AppExcel IsNot Nothing Then
            MessageBox.Show("Excel Worksheet is closing please wait")
            If xlWorkSheetOne IsNot Nothing Then
                xlWorkSheetOne = Nothing
            End If
            If xlWorkSheetTwo IsNot Nothing Then
                xlWorkSheetTwo = Nothing
            End If
            If xlWorkbook IsNot Nothing Then
                xlWorkbook = Nothing
            End If
            AppExcel.Quit()
            AppExcel = Nothing
        End If
 With BoiteDialogue
            ' Initialisation de la boite de dialogue
            .Title = "Selection d'un essai"
            .InitialDirectory = My.Application.Info.DirectoryPath ' répertoire de l'application
            .Filter = "Fichiers Excel |*.xls; *xlsx"
            ' vérification de la séléction
            If .ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                CheminFicher = .FileName
            Else
                MsgBox("Aucun fichier Excel séléctionné")
                Exit Sub ' Abandon de la routine
            End If
        End With
 
        If Etiqoeiltraite.Text = "OD" Then
 
            'ouvre la feuille 1 de l'application mais la laisse invisible
            AppExcel = New OXL.Application
            xlWorkSheetOne = CType(xlWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
            AppExcel.Visible = False
 
            'chargement des data en Textbox 
            Dim rng As OXL.Range = Nothing
 
            rng = CType(Me.xlWorkSheetOne.Cells(10, 7), Microsoft.Office.Interop.Excel.Range)
            Me.txtNOM.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetOne.Cells(10, 8), Microsoft.Office.Interop.Excel.Range)
            Me.txtPRENOM.Text = CType(rng.Value, String)
.
.
MessageBox.Show("Data loaded in the form")
            CloseAppExcel()
        End If
 
If Etiqoeiltraite.Text = "OS" Then
 
            'ouvre l'onglet 2 de l'application
            AppExcel = New OXL.Application
            xlWorkSheetTwo = CType(xlWorkbook.Worksheets(2), Microsoft.Office.Interop.Excel.Worksheet)
            AppExcel.Visible = False
 
            'chargement des data en Textbox 
            Dim rng As OXL.Range = Nothing
 
            rng = CType(Me.xlWorkSheetTwo.Cells(10, 8), Microsoft.Office.Interop.Excel.Range)
            Me.txtPRENOM.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetTwo.Cells(10, 7), Microsoft.Office.Interop.Excel.Range)
            Me.txtNOM.Text = CType(rng.Value, String)
 
            rng = CType(Me.xlWorkSheetTwo.Cells(10, 9), Microsoft.Office.Interop.Excel.Range)
            Me.TxtNAISSANCE.Text = CType(rng.Value, String)
.
.
 MessageBox.Show("Data loaded in the form")
            CloseAppExcel()
        End If
End sub
 
Private Sub CloseAppExcel()
        'procedure de fermeture du fichier excel
        If xlWorkSheetOne IsNot Nothing Then
            xlWorkSheetOne = Nothing
        End If
        If xlWorkSheetTwo IsNot Nothing Then
            xlWorkSheetTwo = Nothing
        End If
        If xlWorkbook IsNot Nothing Then
            xlWorkbook = Nothing
        End If
        If AppExcel IsNot Nothing Then
            AppExcel.Quit()
            AppExcel = Nothing
        End If
    End Sub

cela fonctionnerait, mais en fait, si je peux choisir le document effectivement, je plante a la ligne

Code :

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

1
2
 
xlWorkSheetOne = CType(xlWorkbook.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)

de type : l'exception nullreferenceException n'a pas ete gérée.

Je pense a un souci entre les lignes bleues et l'initial directory de mon Openfiledialog. Je les ai mises en commentaires, peut etre dois je modifier mon initial directory ......

Bref, j' y suis presque mais pas encore tout a fait ......

**hunteshiva** · 14/05/2012, 14h04

Je travaille sur le même type de fichier,
je te laisse mon code et tu prend ce qui t’intéresse

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
44
45
46
        ' #####################################################
        ' ############## Lecture du fichier Excel #############
        ' #####################################################
 
        Try
            ' Ouverture du fichier Excel
            Workbook = Excel_App.Workbooks.Open(CheminFicher)
 
            ' Recherche dans le feuillet Excel
            For Each ExcelWorkSheets As Microsoft.Office.Interop.Excel.Worksheet In Workbook.Worksheets
 
                ' #####################################################
                ' ################## Feuille RESULTAT #################
                ' #####################################################
                If (ExcelWorkSheets.Name = "RESULTAT") Then
 
                    ' etc.
 
                    'Nom de l'essai
                    Try
                        ' Recupération du nom de l'essai
                        Nom_Essai = ExcelWorkSheets.Range("F7").Value.ToString
                    Catch ex As Exception
                        Nom_Essai = Nothing
                        RESULTAT_Ok = False 'Erreur lors de la lecture
                    End Try
 
                    ' etc.
 
                ' #####################################################
                ' #################### Feuille DATA ###################
                ' #####################################################
                ElseIf (ExcelWorkSheets.Name = "DATA") Then
 
 
                    ' etc.
 
                End If
 
            Next
 
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical, "Erreur lors de la lecture du fichier Excel")
            Exit Sub ' Abandon de la routine
 
        End Try

Il est simplifié, tu n'a pas toutes les gestion d'erreurs. mais ça devrais t'aider à avancer

**Attila54** · 14/05/2012, 14h47

j'ai essaye de modifier

Code :

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

1
2
 
xlWorkbook = AppExcel.Workbooks.Open(appPath & "\monClasseur.xls")

en

Code :

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

1
2
 
xlWorkbook = AppExcel.Workbooks.Open(.FileName & "\*.xls")

et essaye d'ouvrir un excel appelé paul.xls.

Resultat :

'C:\Users\secretariat.CDLV\Documents\fiches patients\29022012\paul.xls\*.xls' introuvable. Vérifiez l'orthographe du nom du classeur et la validité de l'emplacement.

j'ai ensuite essaye

Code :

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

1
2
 
xlWorkbook = AppExcel.Workbooks.Open(.FileName)

la, je n'ai pas d'erreur, j'ai le message data loaded in the form ..... mais rien dans le form

je suis a cours d'idées .............

J'essaye avec ton code hunteshiva mais je suis un peu perdu entre mon code et le tien

**shayw** · 14/05/2012, 14h59

xlWorkbook = AppExcel.Workbooks.Open(.FileName & "\*.xls")

plutot

Code :

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

xlWorkbook = AppExcel.Workbooks.Open (CheminFicher )

puisque le fichier que tu ouvres et forcément avec une extension xls

**hunteshiva** · 14/05/2012, 15h03

la, je n'ai pas d'erreur, j'ai le message data loaded in the form ..... mais rien dans le form

Il faut que regarde pourquoi

,
met des points d’arrêt un peu partout et regarde si ça ne vient pas de la lecture des cellules Excel.

Comment fait tu la lecture de tes cellules?

**Attila54** · 14/05/2012, 15h11

eh ben bien joué une fois de plus shayW, tout fonctionne impeccablement maintenant

gros merci a vous deux pour l'aide et la disponibilité

**Attila54** · 14/05/2012, 15h13

Envoyé par hunteshiva

Il faut que regarde pourquoi

,
met des points d’arrêt un peu partout et regarde si ça ne vient pas de la lecture des cellules Excel.

Comment fait tu la lecture de tes cellules?

normal en fait et j'ai honte de la dire ........ le worksheet etait vide de données

Charger un fichier excel précis dans un endroit précis [Débutant]

VB.NET

Discussions similaires

Partager

Partager