[..] Filtre VBA ( Excel ) en .au3

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
LqX
Niveau 3
Niveau 3
Messages : 47
Enregistré le : ven. 11 nov. 2011 12:32
Status : Hors ligne

[..] Filtre VBA ( Excel ) en .au3

#1

Message par LqX »

Bonjour,

J'aimerai pouvoir utiliser se script en VBA sous Auto-it.

Code : Tout sélectionner

Selection.AutoFilter

ActiveSheet.Range("$A$1:$J$48").AutoFilter Field:=4, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
ActiveSheet.Range("$A$1:$J$48").AutoFilter Field:=7, Criteria1:="=HTA", _
Operator:=xlOr, Criteria2:="=Source"
ActiveSheet.Range("$A$1:$J$48").AutoFilter Field:=3, Criteria1:="Préparé"

    Columns("B:B").Select
    Range("B20").Activate
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Columns("A:A").Select
    ActiveSheet.Paste
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
 
Ce script filtre un fichier .xls.
J'aimerai pouvoir faire de même avec Autoit pour ainsi l'integrer dans un script Autoit qui intervient après.

Voici le .xls a filtrer :
► Afficher le texte
Désoler pour le rendu du tableau, les colonne et ligne ne sont pas trés visible.
Le script ne garde que la valeur de la colonne B si la date correspond a celle du jour, que le status soit préparé, et le type d'ouvrage HTA & Source.

hors je n'arrive pas a le faire sous autoit, j'ai essayé en utilisant un filtre élaboré mais rien a faire je n'arrive pas.
Un coup de main serais bienvenue.

Merci.
Modifié en dernier par LqX le sam. 26 nov. 2011 19:40, modifié 4 fois.
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11830
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [..] Filtre VBA ( Excel ) en .au3

#2

Message par Tlem »

Bonsoir,
merci de rajouter les balises de code.

Merci
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
LqX
Niveau 3
Niveau 3
Messages : 47
Enregistré le : ven. 11 nov. 2011 12:32
Status : Hors ligne

Re: [..] Filtre VBA ( Excel ) en .au3

#3

Message par LqX »

C'est fait.
Répondre