Bonjour à Tous.

Voila je suis vraimment pas un crack en programmation et je souhaiterai avoir de l' aide pour réalisé un petit programme pour mon explotation agricole.

Ma première question est la suivante :

Comment ouvre t' on un fichier exel pour travailler dessus avec un programme visual basic.

Ma deuxième question est la suivante.

Comment affiché une cellule dans un textarea ?

Merci.

salut,

pour ta 1ere question :

1/ ajoute Microsoft Excel 11.0 (ou 10.0, ... et fonction de la version d'Excel installée) Object Library aux references du projet (Projet -> References dans ton projet vb)

2/
Dim xlApp as Excel.Application
Dim wb as Excel.Workbook

Set xlApp = new Excel.Application
Set wb = xlApp.Workbooks.Open("TonFichier.xls",<Liaisons>,<LectureSeule>)

' où <Liaisons> = True si tu veux mettre a jour les liaisons du classeur sinon False
' où <LectureSeule> = True si tu vaux ouvrir le fichier en lecture seule sinon False

' Si tu veux qu'Excel soit visible tu ajoutes
xlApp.Visible = True

apres tu peux utiliser ton objet wb pour acceder aux Feuilles et Cellules de ton classeur.

Pour la 2eme question ... désolé ... j'ai pas de réponse.

A+

Christophe.

re,

le textarea c'est une textbox ???

si c'est le cas a la suite de mon exemple precedent tu ajoutes

TonFormVB.TaTextBox.Text = wb.Worksheets("TaFeuilleExcel").Range("A1").value

pour copier la valeur de la cellule A1 de la feuille TaFeuilleExcel dans ta text box

A++

Christophe.

Merci jhary69 de tes réponses.

J' ai donc fait tous ce qui est indiqué mais il me surligne " Set "et il me dit Compil error.

Dim xlApp As Excel.Application
Dim wb As Excel.Workbook

Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open("C:classeur1.xls", Liaisons >= True)
xlApp.Visible = True

Text1.Text = wb.Worksheets("C:classeur1.xls").Range("A1").Value

Désolé si je suis un peu lourd mais je débute

re,

tu as mis ce code sur quel evenement

En fait voila le code exact

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim wb As Excel.Workbook

Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open("C:\WINDOWS\Bureau\CHRIS.XLS", Liaisons = True)
Text1.Text = wb.Worksheets("C:\WINDOWS\Bureau\CHRIS.XLS").Range("A1").Value
End Sub

Encore merci de ton aide.

C' est bon pour le set cela venait de la librairie exel 9.0 que j' avais pas sélectionné mais maintenant j' ai le message suivant

"subscript out of range" et cela me surligne la ligne :

Text1.Text = wb.Worksheets("C:\WINDOWS\Bureau\CHRIS.XLS").Range("A1").Value

Décidemment je suis vraimment pas doué.

re,

en fait la syntaxe est :
Text1.Text  = wb.Worksheets("NomDeLaFeuille").Range("A1").Value


NomDeLaFeuille = nom de l'onglet (de la feuille) dans ton classeur Excel, exemple Feuil1, pas le nom du fichier.

A+

Christophe.

Alors la chapeau bas Monsieur. C' est super sympa de m' avoir aidé. Je suis vraimment trop content.

Encore merci.