Discussion :

[han87]

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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[han87]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Sylvio13]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!!