generer feuille excel

Bonjour,

Je cale sur un truc... sur mon appli, un clic sur un bouton crée un tableau
excel que je dois enregistrer et fermer manuellement.
Voila le code

Private Sub Command3_Click()

Dim xls As Excel.Application
Dim Ligne As String
Dim LigneExcel As Integer
Dim compt As Integer
Set xls = CreateObject("Excel.Application")

'Rendre visible EXCEL
xls.WindowState = xlNormal
xls.Visible = True

'Créer un nouveau classeur EXCEL initialisé à la ligne 1
xls.Workbooks.Add
LigneExcel = 1


For z = 0 To 1000

' Affecter les données de la listbox dans les cellules
de la feuille
With ActiveWorkbook.Worksheets("Feuil1")
.Cells(LigneExcel, 1) = ...
.Cells(LigneExcel, 2) = ...
LigneExcel = LigneExcel + 1

End With


Next


xls.DefaultFilePath = App.Path
xls.Workbooks.Close
Set xls = Nothing


Mon problème ; si je reclique, j'ai une erreur sur cette ligne :

With ActiveWorkbook.Worksheets("Feuil1")"

Puis-je enregistrer automatiquement la feuille et refermer excel...

Merci de votre aide !

JC

Bonjour jc2nantes,
jc2nantes a écrit :

Bonjour,

Je cale sur un truc... sur mon appli, un clic sur un bouton crée un
tableau excel que je dois enregistrer et fermer manuellement.
Voila le code

Private Sub Command3_Click()

Dim xls As Excel.Application
Dim Ligne As String
Dim LigneExcel As Integer
Dim compt As Integer
Set xls = CreateObject("Excel.Application")

'Rendre visible EXCEL
xls.WindowState = xlNormal
xls.Visible = True

'Créer un nouveau classeur EXCEL initialisé à la ligne 1
xls.Workbooks.Add
LigneExcel = 1


For z = 0 To 1000

' Affecter les données de la listbox dans les
cellules de la feuille
With ActiveWorkbook.Worksheets("Feuil1")
.Cells(LigneExcel, 1) = ...
.Cells(LigneExcel, 2) = ...
LigneExcel = LigneExcel + 1

End With


Next


xls.DefaultFilePath = App.Path
xls.Workbooks.Close
Set xls = Nothing


Mon problème ; si je reclique, j'ai une erreur sur cette ligne :

With ActiveWorkbook.Worksheets("Feuil1")"

Puis-je enregistrer automatiquement la feuille et refermer excel...

Merci de votre aide !

JC

Pour enregistrer la feuille, automatiquement (sans message), ici toujours
sous le même nom, et fermer Excel :

xls.DefaultFilePath = App.Path
xls.DisplayAlerts = False ' Pas de message
xls.ActiveWorkbook.SaveAs "toto.xls" ' Sauvegarde
xls.Workbooks.Close
xls.Quit ' Fermeture d'EXcel
Set xls = Nothing

Pour l'erreur sur la ligne :

With ActiveWorkbook.Worksheets("Feuil1")

utilises :

With xls.ActiveWorkbook.Worksheets("Feuil1")
--
Cordialement,

Jacques.

trop fort jacques! ça marche du tonnerre...

un grand MERCI à toi !

jc