Supprimer des lignes en doublons

[dede039]

bonsoir,

j'ai se code qui importe des ficher txt mais il ne supprime pas les ligne en doublon
comment faire ??

Dim strPath$, strFile$, i As Long
strPath = UserForm2.Données_minimaxi_txt.Value
With ThisWorkbook.Sheets(1)
strFile = UserForm2.TextBox5.Value
 Application.ScreenUpdating = False
        With ActiveWorkbook.Worksheets("Données_mini_maxi")
            With .QueryTables.Add(Connection:="TEXT;" & strPath & strFile, _
                Destination:=.[A65536].End(xlUp).Offset)
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileSemicolonDelimiter = True
                .TextFileColumnDataTypes = Array(1)
                .Refresh BackgroundQuery:=False
            End With
            .[A1].CurrentRegion.Columns.AutoFit
        End With
       End With
Application.ScreenUpdating = False
End Sub

 

[dede039]

Re : Supprimer des lignes en doublons

si sa peut vous aidé voici les ficher

 

[dede039]

Re : Supprimer des lignes en doublons

personne ne peut m'aide ??

 

[Modeste]

Re : Supprimer des lignes en doublons

Bonjour dede039,

Il faudrait peut-être que tu définisses ce que sont tes "lignes en doublon"!? Il n'y a pas, dans ton exemple, de lignes entières en double.

D'autre part, cette fonction (recherche de doublons) a été ajoutée sous Excel 2007. Si tu veux intégrer la gestion des doublons dans ton code, as-tu essayé l'enregistreur de macros?

 

[dede039]

Re : Supprimer des lignes en doublons

bonjours modeste,

dans le ficher teste il y aura tout les jours une nouvelle ligne donc quand je ré-importerais le ficher il y aura forcement des doublon

sous 2007 l’enregistreur de macro marche très mal et donne des code très mal optimiser