Effacer table excel à partir d'access code vba

Bonjour,
J aimerai savoir est ce que c est possible d'effacer les ligne d'un classeur Excel on gardant les entité on utilisant un code vba a partir d'access?

Par ce que j ai besoin de vider le classeur avant d'exporter les nouvelles données d'access vers EXcel. Le fichier Excel existe déjà j ai pas besoin de le recréé on utilisant un code sql j aimerai seulement effacer ce qu'Il contient.

Alors si vous avez une idée comment fair, merci d'avance.

Bonjour,

C'est quand même plus simple de le recréer avec une exportation, plutôt que de le vider.

Cependant, voici un exemple utilisant la référence Microsoft Excel (à ajouter au projet)

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim oApp As Excel.Application Set oApp = New Excel.Application Dim oS As Excel.Worksheet oApp.Workbooks.Open "monclasseur.xlsx" With oApp.Workbooks(1) .Worksheets("Feuil1").Range("A2", "Z65536").Delete .Save .Close End With oApp.Quit: Set oApp = Nothing

---

Citation:

---

Envoyé par Tofalu

Bonjour,

C'est quand même plus simple de le recréer avec une exportation, plutôt que de le vider.

Cependant, voici un exemple utilisant la référence Microsoft Excel (à ajouter au projet)

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim oApp As Excel.Application Set oApp = New Excel.Application Dim oS As Excel.Worksheet oApp.Workbooks.Open "monclasseur.xlsx" With oApp.Workbooks(1) .Worksheets("Feuil1").Range("A2", "Z65536").Delete .Save .Close End With oApp.Quit: Set oApp = Nothing

---

---

Merci pour la réponse je vais essayer cette solution.

Bonjour, je reviens à propos de ce sujet car bien qu'ayant navigué sur plusieurs forums et trouvé pas mal d'infos à ce sujet, mon code ne fonctionne toujours pas.
Je souhaite tout simplement à partir d'ACCESS en VBA, exporter une requête en fichier Excel, et supprimer des lignes de ce fichier en fonction de la valeur d'une cellule.
Mon code fonctionne correctement pour l'export, mais les lignes ne sont pas supprimer lorsque j'ouvre le fichier.
Pour vérifier si ma boucle pour supprimer les lignes fonctionnait bien, j'ai utilisé la fonction .Interior.ColorIndex = 46 pour mettre les lignes "normalement à supprimer" en rouge. Le code fonctionne bien, mais si je mets .EntireRow.Delete alors il ne se passe strictement rien...

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For l = 2 To DernLigne With xlsheet.Cells(l, 5) If xlsheet.Cells(l, 5).Value like "ESCOT*" Then   'xlsheet.Cells(l, 5).EntireRow.Delete (1ere tentative) 'xlsheet.Rows(l).EntireRow.Delete (2ieme tentative) xlsheet.Rows(l).Delete (3ieme tentative)   End If End With Next l

---

Merci pour votre aide!!!