Discussion :

[Chamane106]

Bonjour à tous,

J'ai essayé de m'assurer de ne pas faire doublon avec mes questions mais les réponses que j'ai trouvées ne fonctionnent pas chez moi et je suis de plus en plus perdu ...

Je code un programme qui simule à partir de données dans des tableaux l'état de chargement d'une batterie. Une partie des données que j'utilise est interne à mon programme donc de ce côté pas de soucis. L'autre partie des données est sur un fichier Excel stocké quelque part. Je tourne sous Microsoft Visual Studio 2010.

J'aimerai avoir un bouton "Parcourir" qui m'ouvre une fenêtre type pop-up, qui me permette de me balader dans mon disque et de choisir mon fichier excel (type quand on fait Fichier\Ouvrir ...). Une fois le fichier selectionné je veux pouvoir récupérer dans une TextBox le chemin d'accès(Faire quelquechose d'interactif plutôt que manuel). J'ai essayé avec des RichBox ou des lignes que j'ai pu trouver sur divers forum mais rien qui marche ... avez vous des idées ?

La vraie question qui m'amène est pour remplir un table type

Code :

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

Dim Tabl(212) as Double

à partir d'une colonne de ce fameux Excel dont j'ai récupéré à la main ou pas le chemin d'accès. La encore j'ai essayé pas mal de trucs mais globalement le logiciel ne connait pas les fonctions que j'utilise: Excel.Application, Excel.workbook et Excel.Worksheet sont soulignées en bleu et il me dit ne pas connaitre le "type". J'ai l'impression que les lignes de codes que j'ai trouvées sont issues du VBA qui ne s'appliquerai que dans Excel (est ce que je me trompe ?).

Au final j'aimerai arriver à faire ce genre de trucs:

Code :

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

1
2
3
4
Dim i as Integer
For i = 0 to 211
Tabl(i) = wsExcel.cells(1.i)
Next

Voici quelques exemples des trucs que j'ai pu tenter ...

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim AppliExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
Dim ChemAcc as String 'Le chemin d'accès qui sera issu de la Textbox
 
Imports Excel = Microsoft.Office.Interop.Excel
 
AppliExcel = New Excel.Application
wbExcel = AppliExcel.Workbooks.Open(ChemAcc)
AppliExcel.Visible = False 'La tâche doit rester invisible

Code :

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

FileOpen(1, nomfichier, OpenMode.Input)

Voila, j'espère que j'ai été assez clair, que j'ai pas fait de doublon avec un autre post et que vous pourrez m'aider !

D'avance merci,


Chamane 106

[The_Big_Lebowski]

Bonjour,
pour sélectionner un fichier à ouvrir, il existe le composant openFileDialog

Code :

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

1
2
3
4
5
6
        Dim ofd As New OpenFileDialog
        ofd.Filter = "Fichiers excel|*.xls*"
        If ofd.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
            Dim Texte As String = "Nom du fichier choisi : " & ofd.SafeFileName & Environment.NewLine & "Chemin : " & ofd.FileName
            MsgBox(Texte)
        End If

Pour ce qui concerne ton code d'instanciation à l'application Excel, il faut que tu références l'objet COM "Microsoft Excel XX Object Library" (où XX correspond à la version dispo sur ton poste) avant de l'utiliser.

[Chamane106]

Salut !

Merci pour ta réponse rapide ! Je vais tester ça dans l'aprem et je viens faire mon rapport ^^

[Chamane106]

Pour ceux qui se posent la question (parce que moi je me la suis posée), pour référencer l'objet COM il faut:

- Aller dans la barre de menu appelée "PROJET"
- Ensuite, "Ajouter une référence"
- Onglet "COM"
- Sous onglet "Bibliothèque de types"
- Chercher et cocher dans la liste déroulante "Microsoft Excel xx.x Object Library" avec xx.x qui correspond à la version (du coup ce sont des chiffres à la place)

Moi j'ai ensuite du rajouter une ligne de code tout en haut du Form, au dessus même de Public Class:

Code :

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

Imports Microsoft.Office.Interop

Mais ça, je sais pas pourquoi