Scénario de traitement

[souhail72]

Bonjour la roome

j'ai un scénario qui se présente de la manière suivant :

Pour le besoin d'un traitement notamment les filtres, j'essaye de développer une macro et le scénario est le suivant :

1 - Click sur bouton (qui est sur un userform)
2 - Ouverture de la boite parcourir
3 - Choisir un fichier
4 - lancer le traitement, notamment filtre sur colonne A et colonne H
5 - Enregistrer le fichier du résultat avec Enregistre sous .csv
6 - Changer l'extension du fichier en .txt
7 - Fermer le fichier en question.

J'ai déjà fait cette ébauche mais je bloque ..

Une âme charitable pour un coup de main ..

merci à vous

 

[vgendron]

Re : Scénario de traitement

Bonjour et bienvenue sur ce forum

1- ok. si tu le dis.
2-3 NomFichierAOuvrir = Application.GetOpenFilename("Fichiers excel (*.xls), *.xls")
workbooks.Open NomFichierAOuvrir

4- exemple de filtre

Rows("1:1").Select
    Selection.AutoFilter
    Range("A1").Select
    ActiveSheet.Range("$A$1:$K$10").AutoFilter Field:=1, Criteria1:="=1*", _
        Operator:=xlAnd
    ActiveSheet.Range("$A$1:$K$10").AutoFilter Field:=8, Criteria1:="=*5", _
        Operator:=xlAnd

5-

ActiveWorkbook.SaveAs Filename:="C:\Users\nomfichier.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

6- ??
7 -activeworkbook.close


voila

ah si.

J'ai déjà fait cette ébauche mais je bloque ..

une ébauche ?? chouette !! ou ca une ébauche...

bon. plus sérieusement,
vu que tu as déjà fait une partie du boulot et que tu t'es sans doute arraché les cheveux dessus, il est important voire indispensable de poster ton fichier sur lequel on peut travailler directement pour te donner de bonnes réponses (Bien sur. s'il contient des données confidentielles, retire les et remplace les par des data bidons.. le principe est d'avoir la structure de ton fichier

;-)

à plus

 

[souhail72]

Re : Scénario de traitement

Merci bcp pour le soutien, c'est super gentil.
du coup j'ai suivi votre conseil et la il me reste 2 point :
- Enregsitrer que le resultat du filtre appliqué
- changer l'extension du csv en .txt
ci joint le code. merci encore une fois.

Sub Traitement_Concat()
'Gestion des erreurs
On Error Resume Next

Dim Wb As Workbook

Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
'.Filters.Add Description:="Microsoft Excel", Extensions:="*.csv", Position:=1
.Filters.Add Description:="Microsoft Excel", Extensions:="*.txt", Position:=1
.Show
If .SelectedItems.Count = 0 Then Exit Sub
cheminfichier = .SelectedItems(1)
Workbooks.OpenText FileName:=cheminfichier, Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End With

Selection.AutoFilter
ActiveSheet.Range("$A$1:$Q$853").AutoFilter Field:=1, Criteria1:="PIG"
ActiveSheet.Range("$A$1:$Q$853").AutoFilter Field:=10, Criteria1:="<>*INFO" _
, Operator:=xlAnd


ActiveWorkbook.SaveAs FileName:="C:\Users\psei09701\Desktop\TEST\Sortie_Filtre.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ActiveWorkbook.Close
End Sub