Supprimer une feuille de classeur Excel depuis VB.net

Bonjour,

wbExcel.Worksheets.Delete() Avez-vous mis le nom de la feuille a deleter: wbExcel.Worksheets.Delete("nomdelafeuille") ?????

En effet, j'ai mis

wbExcel.Worksheets(numfeuil).name = "Feuilakill" <-- je renomme pour être sur
wbExcel.Worksheets("Feuilakill").Delete() <---- je demande la suppression
wbExcel.Close() <--- je ferme le classeur et je provoque une fenêtre qui me demande si je souhaite enregistrer. (évidement je dis oui) mais quand j'ouvre le fichier excel la page a bien été renommé cela est sur mais ... elle est toujours là.

et lorsque que je met le nom ici : wbExcel.Worksheets.Delete("Feuilakill")
il m'indique "Arguments trop nombreux pour 'Public Sub Delete()'.

Bonjour,

essayez sans les () a la fin:

wbExcel.Worksheets("Feuilakill").Delete

il me les rajoute automatiquement snif

Bonjour,

Bonjour, voilà dans le développement de mon application, Vous developpez en quel langage ?????

en VB.net depuis Microsoft Visual Basic 2008

Bonjour,

en suivant ce lien, vous aurez un exemple de pilotage excel via vb.net, par contre pas de delete de feuille. Regardez vos declarations de variable etc ...

https://support.microsoft.com/en-us/help/301982

A defaut, montrez le code complet pour que nous puissions comprendre.

A+

Bonjour, après de multiple tentative et recherche voici l'intégralité de mon code car je n'ai toujours pas trouvé de solution ....

En espérant que vous trouviez ce qui cloche.

Imports Microsoft.Office
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
Public Class Gestion
Dim nbagent As Integer
Dim ligne As Integer = 2
Dim compteurappli As Integer = 0
Dim temp As String
Dim Basedonnees2 As String
Dim numfeuil As Integer

Private Sub Gestion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

temp = Form1.basedonnees

Basedonnees2 = temp.Replace("db.xlsx", "db2.xls")

numfeuil = 1
''Lignes de base...
Label3.Text = numfeuil

Try
choixclient.appExcel = New Excel.Application
choixclient.wbExcel = choixclient.appExcel.Workbooks.Open(Basedonnees2) 'path: le chemin d'accès à ton fichier
choixclient.wsExcel = choixclient.wbExcel.Worksheets(numfeuil)
Label2.Text = choixclient.wsExcel.Cells(2, 7).value.ToString
TextBox1.Text = choixclient.wsExcel.Cells(2, 8).Value.ToString
TextBox2.Text = choixclient.wsExcel.Cells(2, 2).value.ToString
TextBox3.Text = choixclient.wsExcel.Cells(2, 3).value.ToString
TextBox4.Text = choixclient.wsExcel.Cells(2, 4).value.ToString
TextBox5.Text = choixclient.wsExcel.Cells(2, 5).Value.ToString
TextBox6.Text = choixclient.wsExcel.Cells(2, 6).value.ToString

Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
choixclient.wbExcel.Worksheets(numfeuil).name = "Feuilakill"
choixclient.wbExcel.Worksheets("Feuilakill").Select
choixclient.wbExcel.Worksheets.Delete()
choixclient.wbExcel.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
numfeuil = numfeuil + 1
Try
choixclient.wsExcel = choixclient.wbExcel.Worksheets(numfeuil)
Label2.Text = choixclient.wsExcel.Cells(2, 7).value.ToString
TextBox1.Text = choixclient.wsExcel.Cells(2, 8).Value.ToString
TextBox2.Text = choixclient.wsExcel.Cells(2, 2).value.ToString
TextBox3.Text = choixclient.wsExcel.Cells(2, 3).value.ToString
TextBox4.Text = choixclient.wsExcel.Cells(2, 4).value.ToString
TextBox5.Text = choixclient.wsExcel.Cells(2, 5).Value.ToString
TextBox6.Text = choixclient.wsExcel.Cells(2, 6).value.ToString

Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

choixclient.wbExcel.Close()
choixclient.appExcel.Quit()
End Sub
End Class

Bonjour,

Solution enfin trouvé !!!

il faut simplement ceci : myworksheet.Application.DisplayAlerts = false

La musiquette faisait vraisemblablement apparaître une fenêtre mais celle étant invisible ^^ fallait la voire !!!

Mon problème est résolu, merci a vous tous.

Cordialement.