Créer un simple fichier EXCEL avec des données dans 1 lignesRésolu

Question

salut, Je cherche comment on fait en vb.net pour creer un fichier excel. J'arrive a aller lire un fichier excel et le recuperer dans un dataset, comme ceci Dim oAd As New OleDb.OleDbDataAdapter Dim oCmd As New OleDb.OleDbCommand Dim oCnx As New OleDb.OleDbConnection Dim ofd As OpenFileDialog = New OpenFileDialog ofd.Filter = "Fichier Excel xls|*.xls" ofd.Multiselect = False 'Verifier qu'on a cliquer sur OK et pas cancel If ofd.ShowDialog <> DialogResult.Cancel Then Dim NomFichier As String NomFichier = ofd.FileName Dim sCnxString As String sCnxString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + NomFichier + ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'" oCnx.ConnectionString = sCnxString oCmd.CommandText = "SELECT * FROM [Feuil1$]" oCmd.Connection = oCnx oAd.SelectCommand = oCmd Dim oDs As New DataSet("ExcelDataset")oAd.Fill(oDs) For i As Integer = 0 To oDs.Tables(0).Rows.Count - 1 next -------------- Jaimerai bien pouvoir creer un simple fichier excel qui aurait dans la 1ere ligne : ---- Adresses e-mail , Nom, Prenom, Adresse, Code Postal, Localite, Fax, GSM, Pays, Remarque, Société, Téléphone, N° TVA Juste ça Je suppose que je dois le mettre dans un dataset mais bon ... sais pas trop. J'ai trouver des trucs sur le net, mais pour asp et cetait beaucoup trop hard, il doit y avoir plus simple. Quelqu'un a deja fait ?

Syphou · Accepted Answer

Oups ben désolé alors ...

Oui j'y suis arriver, j'envoie ma réponse.

Donc : Comment créer un fichier excel en VB.NET et écrire dans les cellules ?


Dim sfd 
As SaveFileDialog = 
New SaveFileDialog


sfd.Title = "Veuillez sélectionner l'endroit où sauver le fichier EXCEL"


sfd.AddExtension = True



sfd.Filter = "Fichiers xls|*.xls"







If
 sfd.ShowDialog = DialogResult.OK 

Then






Dim
 App 

As



New
 Excel.ApplicationApp.Visible = 


True

App.Application.SheetsInNewWorkbook = 1







Dim
 Destination 

As
 Excel.Workbook = App.Workbooks.Add()


Dim
 Destination_Sheet 

As
 Excel.Worksheet = Destination.Sheets(1)


'Updates the cells with labels

Destination_Sheet.Range("A1").Value = "Adresses E-mail"


Destination_Sheet.Range("B1").Value = "Nom"


Destination_Sheet.Range("C1").Value = "Prenom"


Destination_Sheet.Range("D1").Value = "Adresse"


Destination_Sheet.Range("E1").Value = "Code Postal"


Destination_Sheet.Range("F1").Value = "Localité"


Destination_Sheet.Range("G1").Value = "Fax"


Destination_Sheet.Range("H1").Value = "GSM"


Destination_Sheet.Range("I1").Value = "Pays"


Destination_Sheet.Range("J1").Value = "Remarque"


Destination_Sheet.Range("K1").Value = "Société"


Destination_Sheet.Range("L1").Value = "Téléphone"


Destination_Sheet.Range("m1").Value = "N° TVA"







'Autofit Columns

Destination_Sheet.Columns.AutoFit()







'Save woorkbook

Destination_Sheet.SaveAs(sfd.FileName)








App.Workbooks.Close()


App.Quit()

-----------------------------------------------------

Pour plus d'information, suffit de faire une recherche sur Workbooks.Add. Fallais le savoir

aaliyan · Answer

Essaye ca

Workbooks.Add

Syphou · Answer

Merci de ta reponse, je vai chercher de ce coté la ^^ (rien avoir avec ce que javais trouver)

jrivet · Answer

Salut,
J'ai failli te donner un bout de code en VB6 : Heureusement que assez rapidement dans ton post tu disais VB.NET et non VB6. 
Mais alors une question me turlupine pourquoi avoir poser cette question dans:[infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_DIVERS_220.aspx Divers] / [infomsgt_TRUCS-ASTUCES_242.aspx Trucs & Astuces] / 

On ne redira jamais assez de bien faire attention à la section où les questions sont postées....
Toi tu t'en fiches peu être mais moi, j'ai failli perdre du temps. 

Enfin Bref. Y es tu arrivé???
@+: Ju£i?n
Pensez: Réponse acceptée

Créer un simple fichier EXCEL avec des données dans 1 lignes

4 réponses

Votre réponse

Discussions similaires