[VB] Création fichier Excel Fermé

Question

Bonjour,

Je voudrais créer un fichier excel dans lequel je puisse écrire dans la suite du code mais je n'y arrive pas.
Voici mon code:

Set ExcelApplication = CreateObject("Excel.Application")
Set MyFile = ExcelApplication.CreateObject(PathFile, True)

Set Report = MyFile.Worksheets("Test_Failed_Defects")

Merci de me dire ce qui ne va pas.

abdou · Accepted Answer

Private Sub Command1_Click()
    
    Dim xls As Excel.Application
    Dim xlsfeuille As Excel.Worksheet
    Dim xlsclasseur As Excel.Workbook
    Dim pchar As String
        
    Set xls = CreateObject("Excel.Application")
    Set xlsclasseur = xls.Workbooks.Add
    Set 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 (*.xls)|*.xls"
    CommonDialog1.ShowSave
    chpath = CommonDialog1.FileName
    If chpath <> "" Then
        xlsclasseur.SaveAs (chpath)
    End If
    xls.Application.Quit
    Set xls = Nothing
    MsgBox "FIN DE L'EXPORTATION", vbOKOnly + vbInformation, "GESTION DES STATISTIQUES"


End Sub

blancinette · Answer

Il faut que tu importes excel sinon il ne comprend pas les code excel
tu va dans Projet / Ajouter une référence / COM et tu sélectionne Microsoft excel ... là il te souligneras plus rien ^^

abdel008 · Answer

salut

tu doit avant tous dans le menu objet selectionner reference puis activer microsoft excel

Utilisateur anonyme · Answer

Bonjour,

Dim xls As Excel.Application 
Dim xlsfeuille As Excel.Worksheet 
Dim xlsclasseur As Excel.Workbook 

Cette déclaration utilise des types prédéfinies qui se trouvent dans
la librairie ( référence Microsoft excel ... ).

À ce moment je dis que vous utilisé les objets d'Excel.

Par opposition, vous pouvez déclarer vos variables ainsi :

Dim xls As Variant
Dim xlsfeuille As Variant
Dim xlsclasseur As Variant

Set xls = CreateObject("Excel.Application")
Cette instruction instancie un objet de scripting et ne nécessite pas la référence.

exemple de script VBS pilotant Excel sans cette référence:
http://membre.oricom.ca/lupin/documents/excelvbs.txt

Lupin

Poupette · Answer

Ok c'est nickel merci à tous ^^

dj6mow · Answer

le compilateur me souligne le Type  Excel.Application  meme si j'ai importer le package
Imports System.Net.Mime.MediaTypeNames

[VB] Création fichier Excel

6 réponses

Discussions similaires