[AC-2007] sélection de ligne avec condition et les supprimer

[Sangoku62000]

Bonjour,

Sous Access avant l'importation du fichier Excel. Je voudrais supprimer des lignes que je ne veux pas importer.
J’ai testé de faire un filtre (3 catégories) en sélectionner 2 puis je veux supprimer toutes les lignes sauf la première comme ça au moment de l'importation il ne reste que une seul catégorie. Et je peux importer la feuille complète.

Sauf si il y a plus simple du style supprime toutes les lignes dont dans la colonne R ne comporte pas le mots rouge. Ou dans la table d'importation sous Access peut importe

Code :

1
2
3
objApp.range("R:R").Select
    objApp.selection.AutoFilter 
    objApp.ActiveSheet.range("$R$1:$R$300").AutoFilter Field:=1, Criteria1:=Array( "Bleu", "noir")

jusque la sa marche
la suite non

Code :

1
2
3
4
objApp.range(Selection, Selection.End(xlDown)).Select
    objApp.selection.ClearContents
    objApp.ActiveSheet.range("$R$1:$R$300").AutoFilter Field:=1, Criteria1:="<>"
    objBook.Save

[Jeannot45]

Bien qu'il s'agisse d'un import de données Excel vers une appli Access, le problème exposé se passant dans les lignes concernant Excel, je pense que la question serait plus appropriée sur le forum d'Excel

[Sangoku62000]

sous Excel la macro sa marche. mais pas sous access.