Fonction "Parcourir" et lecture d'Excel

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:

---

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:

---

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:

---

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:

---

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

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

Code:

---

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.

Salut !

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

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:

---

Imports Microsoft.Office.Interop

---

Mais ça, je sais pas pourquoi :D