Fichier excel vb.net [Résolu/Fermé]

Signaler
Messages postés
42
Date d'inscription
samedi 3 décembre 2011
Statut
Membre
Dernière intervention
30 janvier 2012
-
 Stev28fr -
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

2 réponses


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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
42
Date d'inscription
samedi 3 décembre 2011
Statut
Membre
Dernière intervention
30 janvier 2012

Merci Beaucoup!
Messages postés
158
Date d'inscription
lundi 9 janvier 2012
Statut
Membre
Dernière intervention
25 janvier 2014
4
Merci pour ce code, j'en avais besoin aussi !
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