Ouvrir fichier excel puis supprimer ligne

Fermé
tius38 Messages postés 22 Date d'inscription lundi 11 avril 2011 Statut Membre Dernière intervention 19 avril 2011 - 11 avril 2011 à 10:35
 Cindy - 20 avril 2012 à 12:07
Bonjour,

J'ai un petit soucis concernant une macro que j'essaie de réaliser pour le boulot. Je suis novice dans ce domaine.

Je dois à l'aide de la macro ouvrir mon fichier excel puis supprimer toutes les lignes qui contiennent une valeur supérieur à 3300 en colonne C.

Voila ce que j'ai :

J'ouvre mon fichier excel suivant son nom :

Sub macro()

For i = 1 To 130
feuille = Format(i, 0) & "DAP.tif.xls"

ChDir "C:\Documents and Settings\mc225714\Bureau\Supp3300"
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\mc225714\Bureau\Supp3300\" & Format(i, 0) & "DAP.tif.xls", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1) _
, Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True


Et la je lui dis de supprimer les lignes avec une valeur supérieur à 3300 mais il manque quelque chose je pense. J'ai récupérer ça sur internet mais il me dit "erreur 424 objet requis"

Dim cel As Range
For Each cel In feuille
If Val(cel.Value) >= 3300 Then
cel.EntireRow.Delete
End If
Next cel
Next i
End Sub


Merci de votre aide

Bonne journée

A voir également:

43 réponses

tius38 Messages postés 22 Date d'inscription lundi 11 avril 2011 Statut Membre Dernière intervention 19 avril 2011
19 avril 2011 à 14:09
Ça me mets toujours la même chose : la plage d'entrée ne peut contenir des données non numériques"
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 193
20 avril 2011 à 10:49
Y a plus qu'une solution pour te dépanner, que tu mette le code de la macros xla.
0
Ouais je vais faire ça.

Merci pour toute ton aide :)

Bonne journée
0