Tri
Bonjour,
Je suis débutante sur VB j'ai fait une macro qui m'extrait les données d'un fichier texte sur un fichier Excel
Mon problème est de trié le résultat par agence et afficher le résultat de chaque agence dans un fichier Excel à part
Pourriez vous m'aider svp
Bonjour,
Pouvez vous attacher votre fichier ?
Bonsoir,
merci de trouver ci-joint un exemple de fichiers avec résultat souhaité
merci d'avance
Bonsoir,
voila j'ai pu faire une extraction sur feuils du même classeur hors que j'aimerai que chaque résultat soit sur un classeur a part en enregistrent chaque résultat dans un chemin bien précis
pourriez vous me corriger svp, merci d'avance
Sub Bouton2_Cliquer()
Dim Chemin$, NomFichier$, Lg%, i%
Dim Ws As Worksheet
Dim trouve As Boolean
Dim contenu As String
Dim lig, derlig As Integer
With Sheets("Feuil1") 'à adapter Feuil1 = feuille ou sont vos données
derlig = .Range("A65536").End(xlUp).Row 'à adapter, E = colonne "Dossier groupe"
For lig = 2 To derlig
contenu = .Cells(lig, 1).Value 'à adapter 5 = 5ème col cf E ci dessus ( jai mis 1 pour que le tri soit par nom donc colonne 1 )
For Each Ws In ThisWorkbook.Worksheets
trouve = False
If StrComp(Ws.Name, contenu, vbTextCompare) = 0 Then
trouve = True
Exit For
End If
Next Ws
If trouve = True Then
.Rows(1).Copy Sheets(contenu).Range("A1") 'copie/colle la 1ère ligne en 1ère ligne
.Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
Else
Sheets.Add
ActiveSheet.Name = contenu
.Rows(1).Copy Sheets(contenu).Range("A1") 'copie/colle la 1ère ligne en 1ère ligne
.Rows(lig).Copy Sheets(contenu).Range("A65536").End(xlUp).Offset(1, 0)
Next lig
End With
' End Sub
' Dim Chemin$, NomFichier$, Lg%, i%
Application.ScreenUpdating = False
Chemin = ThisWorkbook.Path
With ActiveSheet
Lg = .Range("a65536").End(xlUp).Row
Application.DisplayAlerts = False
'--- Attention: écrase le fichier si existe déjà à ce nom ---
For i = 1 To Lg
NomFichier = .Cells(i, "a") & ".xls"
Workbooks.Add
.Rows(i).Copy Destination:=Range("a1")
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & _
NomFichier, FileFormat:=xlNormal
ActiveWorkbook.Close Savechanges:=False
Next i
End With
End Sub
Voila mon exemple