Fichier excel vb.net

Résolu
gatoune78 Messages postés 46 Statut Membre -  
 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

  1. Utilisateur anonyme
     
    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
    1. gatoune78 Messages postés 46 Statut Membre
       
      Merci Beaucoup!
      0
    2. Xineroks Messages postés 158 Date d'inscription   Statut Membre Dernière intervention   3
       
      Merci pour ce code, j'en avais besoin aussi !
      0
  2. Stev28fr
     
    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