Enregisrement automatique de fichier exel

Question

Bonjour, 
Je suis débutante et j'ai le même problème mais  dans les deux lignes
xlWorkSheet.SaveAs(chemin)
            xlApp.Application.Quit() 
Message d'erreur " xlWorkSheet n'est pas déclaré "et   " xlApp n'est pas déclaré "! Pourquoi? Y a t il de bibliothèque à ajouter ?
Merci bien de m'aider

cs_Le Pivert · Answer

Bonjour,

Regarder cette conversation, vous avez la réponse qui est la même pour Excel:

 http://codes-sources.commentcamarche.net/forum/affich-1635019-pilotage-par-interop-vb-2010-word-2010

Rimanta · Answer

Bonjour,
Merci bien de votre attention,mais de même mon problème n'est pas résolu et pour mieux d'explication mon code est le suivant:

  Dim saveFileDialog1 As New SaveFileDialog
        saveFileDialog1.Filter = "Excel|*.xls|Texte|*.txt|Richtext|*.rtf"
        saveFileDialog1.Title = "Sauver le fichier exporter sous ?"
        saveFileDialog1.ShowDialog()
        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            saveExcelFile(saveFileDialog1.FileName)
            MessageBox.Show("Enregistrement terminé")
        End If
--->saveExcelFile:fonction pour enregistrement
et ce code pour enregistrer ce fichier exel manuelement 
mais je veux une enregistrement  automatique.comment
Merci bien ami de me repondre

cs_Le Pivert · Answer

Voici un code qui crée un classeur et l'enregistre:


Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Créer une instance d'Excel
        Dim ApExcel As New Excel.Application
        Dim xlWorkBook As Object
        xlWorkBook = CreateObject("Excel.application") 'creer un objet
        xlWorkBook = ApExcel.Workbooks.Add() 'cree un classeur pour enregistrement
        Dim sfd As New SaveFileDialog
        With sfd
            .Filter = "Excel|*.xls|Texte|*.txt|Richtext|*.rtf"
            .Title = "Sauver le fichier exporter sous"
            If .ShowDialog() = DialogResult.OK Then
                xlWorkBook.SaveAs(.FileName)
                MessageBox.Show("Opération réussie," & vbNewLine & "vous trouverez votre classeur dans le dossier: " & .FileName, "Enregistrer vers Excel", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End With
    End Sub
End Class

cs_Le Pivert · Answer

Une autre manière avec un classeur existant qu'il faut ouvrir avant l'enregistrement:

Option Strict On
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'Créer une instance d'Excel
        Dim ApExcel As New Excel.Application
        Dim xlWorkBook As Excel.Workbook
        'Ouverture d'Excel
        ApExcel.Visible = True
        'Ouverture de mon classeur Excel
        xlWorkBook = ApExcel.Workbooks.Open("C:chemin classeur.xls")
        Dim sfd As New SaveFileDialog
        With sfd
            .Filter = "Excel|*.xls|Texte|*.txt|Richtext|*.rtf"
            .Title = "Sauver le fichier exporter sous"
            If .ShowDialog() = DialogResult.OK Then
                xlWorkBook.SaveAs(.FileName)
                MessageBox.Show("Opération réussie," & Environment.NewLine & "vous trouverez votre classeur dans le dossier: " & .FileName, "Enregistrer vers Excel", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End With
        ApExcel.Visible = False
        ApExcel.Quit()
    End Sub
End Class

Enregisrement automatique de fichier exel

4 réponses

Votre réponse

Discussions similaires