macro de tri d'une liste csv.

[llaffont]

Salut !

J'ai un gros probleme nous somme en plein déménagement je dois récup des données sur un serveur. Mon probleme c'est que j'ai créé une liste de chemin ou ce trouve les derniers fichier, recalcitrants à la migration.

Il s'agit d'une extraction *.csv qui est constitué de la manière suivante.
Z:\\pinnochio\\DOCUMENTS\\DIRECTION, Mon gros document.doc,

J'aimerais recup uniquement le chemin. Vu qu'il ce termine par un virgule ce doit être possible par une macro.

La deuxieme chose c'est de suprimer les doublons de chemin ne pas avoir plusieur fois le même chemin.
Z:\\pinnochio\\DOCUMENTS\\DIRECTION,
Z:\\pinnochio\\DOCUMENTS\\DIRECTION,
Z:\\pinnochio\\DOCUMENTS\\DIRECTION,
Z:\\pinnochio\\DOCUMENTS\\DIRECTION,

Je suis nul en script Alors pitier c'est Urgent j'ai jusquà 14H

 

[WILFRIED]

Salut llaffont

Est tu sur du séparateur de ton fichier csv car chez moi c'est un ';'?

Mais bon cela est faisable je suis entrain de te le faire j'espere avoir terminer avant l'heure fatidique...

A+ will ;op

 

[llaffont]

Il s'agit bien d'une ',' la ligne est dans une seule cellule. Mais tu viens de me donner une idée pour déjà faire la moitié du bouleau. Remplacer la ',' par une ';' ce qui me permettra d'isoler les chemins d'acces.
Il me restera que les doublons.

Merci de ton aide :silly:

 

[Hervé]

Bonjour llafont, wilfried

J'ai pas bien compris comment était disposé tes données.

Mais si elles sont en colonne, ce type de code trie une liste sans doublons, merci de précisez.

Sub Feuil2_Bouton1_QuandClic()
Dim tablo
Dim i As Integer
Dim data As Collection

Set data = New Collection

tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)
On Error Resume Next
For i = 1 To UBound(tablo)
    tablo(i, 1) = Mid(tablo(i, 1), 1, Len(tablo(i, 1)) - 1)
    data.Add CStr(tablo(i, 1)), CStr(tablo(i, 1))
Next i
On Error GoTo 0

For i = 1 To data.Count
    Range('b' & i) = data.Item(i)
Next i
End Sub

Exemple en pièce jointe.

Salut
[file name=Classeur2_20050712120236.zip size=7919]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050712120236.zip[/file]

 

[WILFRIED]

Re-

Voici ton appli avec comme séparateur une ','

A+ will [file name=import_csv.zip size=14633]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/import_csv.zip[/file]

 

[llaffont]

vous êtes super c'est exactement ça !!!

Merci :woohoo:

 

[WILFRIED]

Oups Pb de raffraichissement...

Désolé
A+