Création fichier .XSLX [Résolu]

quentin22breizh 35 Messages postés mercredi 30 juillet 2014Date d'inscription 27 avril 2017 Dernière intervention - 17 mai 2016 à 22:19 - Dernière réponse : quentin22breizh 35 Messages postés mercredi 30 juillet 2014Date d'inscription 27 avril 2017 Dernière intervention
- 19 mai 2016 à 09:53
Bonjour,

Je me permets de venir vous demander un coup de pouce car je souhaiterai créer un fichier .xslx mais les exemple utilisant "Microsoft interop" créé un fichier xls. J'ai bien tenté de remplacé betement l'extension mais il me plante mon fichier...

Voici le code utilisé.

Merci d'avance de votre aide


Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook
Dim chpath As String = "C:\temp\test.xslx"

xls = CreateObject("Excel.Application")
xlsclasseur = xls.Workbooks.Add
xlsfeuille = xlsclasseur.Worksheets(1)



xlsfeuille.Cells(3, 1).Value = "MA FEUILLE EXCEL EST BELLE ET BIEN CREE"
xlsfeuille.Cells(4, 1).Value = "C'EST FACILE NON"


'CommonDialog1.Filter = "Fichiers excel (*.xlsx)|*.xlsx"
'CommonDialog1.ShowSave()
'chpath = CommonDialog1.FileName
If chpath <> "" Then
xlsclasseur.SaveAs(chpath)
End If
xls.Application.Quit()
xls = Nothing
MsgBox("FIN DE L'EXPORTATION", vbOKOnly + vbInformation, "GESTION DES STATISTIQUES")

Afficher la suite 

3 réponses

Répondre au sujet
Whismeril 11412 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 23 avril 2018 Dernière intervention - 17 mai 2016 à 23:26
0
Utile
Bonsoir,

il me semble que ça marche aussi avec les xlxx.
Quelle version d'excel as tu?
Commenter la réponse de Whismeril
cs_Le Pivert 5065 Messages postés jeudi 13 septembre 2007Date d'inscriptionContributeurStatut 13 avril 2018 Dernière intervention - 18 mai 2016 à 08:57
0
Utile
Bonjour,

Apprends- toi à mettre Option Strict à On, tu verras toutes les erreurs!
Ensuite en VB.Net on n'utilise plus ceci:

xls = CreateObject("Excel.Application")


Voir ceci:

http://codes-sources.commentcamarche.net/source/100410-piloter-office-en-vb-net

voici le code:

'Aller dans My Project- Références et ajouter dans COM:
'Microsoft Excel Object 12.0 Library
Option Strict On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Public Class Form1
    ' http://codes-sources.commentcamarche.net/source/100410-piloter-office-en-vb-net
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Créer une instance de Excel
        Dim ApExcel As New Excel.Application
        Dim wbExcel As New Excel.Worksheet
        Dim chpath As String = "C:\temp\"
        Dim nom As String = "test"
        'Créer un nouveau classeur
        ApExcel.Workbooks.Add()
        'Ouvrir un  classeur
        'ApExcel.Workbooks.Open("chemin classeur.xls")
        'rendre le classeur visible
        ApExcel.Visible = True
        ApExcel.Range("A1").Formula = "Bonjour" 'Ajouter du texte à une cellule
        ApExcel.ActiveWorkbook.SaveAs(chpath & nom & ".xlsx")
        ApExcel.Workbooks.Close() 'on ferme le classeur
        ApExcel.Visible = False
        ApExcel.Quit() 'on ferme Excel
    End Sub
End Class

Commenter la réponse de cs_Le Pivert
quentin22breizh 35 Messages postés mercredi 30 juillet 2014Date d'inscription 27 avril 2017 Dernière intervention - 19 mai 2016 à 09:53
0
Utile
Bonjour Whismeril et cs_Le Pivert,

merci d'avoir pris le temps de répondre à mon post. J'ai testé le code de cs_Le Pivert et ça fonctionne. Je devais faire une connerie quelques part.

cs_Le Pivert, merci pour le conseil de l'option "Strict" à On. Je ne connaissais pas. En même temps, je débute en VB donc...

Je clos le sujet
Commenter la réponse de quentin22breizh

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.