Fichier excel vb.net

Résolu/Fermé
gatoune78 Messages postés 42 Date d'inscription samedi 3 décembre 2011 Statut Membre Dernière intervention 30 janvier 2012 - 11 janv. 2012 à 15:17
 Stev28fr - 11 juin 2014 à 15:26
Bonjour,

j'effectue un petit programme pour pouvoir enregistrer des données au sein d'un fichier excel
tout fonctionne super bien!

cependant, j'aimerai bien pouvoir afficher la page un fois que mon application est terminée, mais je n'y arrive pas, malgré plusieurs recherches sur la toile.

voici quelques lignes de code pour vous aider à m'aider :

appExcel = CreateObject("Excel.Application")
wbExcel = appExcel.Workbooks.Add
wsExcel = wbExcel.Worksheets(1)
wbExcel.SaveAs("toto.xls")

je ne vous ai pas mis l'insertion au sein du fichier mais tout fonctionne!

Merci d'avance

A voir également:

2 réponses

Utilisateur anonyme
11 janv. 2012 à 19:25
Bonjour,

Exemple type :

Private Sub btn_CreerFichier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_CreerFichier.Click

	Dim appExcel As New Excel.Application
	Dim wbExcel As Excel.Workbook
	Dim wsExcel As Excel.Worksheet
	Dim CheminFichier As String = "C:\Document\"
	Dim CheminAcces As String = String.Empty

	appExcel = New Excel.Application
	wbExcel = appExcel.Workbooks.Add
	wsExcel = DirectCast(wbExcel.Worksheets(1), Excel.Worksheet)

	wsExcel.Range("A1").Value = "Lupin"

	CheminAcces = String.Format("{0}{1}", CheminFichier, "Essai.xls")

	wbExcel.SaveAs(CheminAcces)

	appExcel.Visible = True

	'wbExcel.Close()
	'appExcel.Quit()

	MessageBox.Show("Fichier créé", "Création", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Sub


Cdt

Lupin
4
gatoune78 Messages postés 42 Date d'inscription samedi 3 décembre 2011 Statut Membre Dernière intervention 30 janvier 2012
12 janv. 2012 à 08:32
Merci Beaucoup!
0
Xineroks Messages postés 158 Date d'inscription lundi 9 janvier 2012 Statut Membre Dernière intervention 25 janvier 2014 3
20 janv. 2012 à 10:39
Merci pour ce code, j'en avais besoin aussi !
0
Bonjour,
Moi j'ai un petite problème c'est qu'il me souligne en tant qu'erreur
Excel.Application 
Excel.Worbook
Excel.Worksheet

Pouvez vous m'aider ? :)

Merci
0