Bijour,
 
voila jai un probleme avec mes fichiers CSV  
 
je réalise l'export a partir d'un logiciel ( TreeSize Pro ) des resultats de recherche de fichiers que j'ai trouvé mais Excel separe les cellules par des petits carrés et donc chaque ligne est contenue dans une colonne physique.
 
Je voudrais donc que ces petits carrés séparent chaque cellule est qu'on le voit vraiment. donc une création de plusieurs colonnes.
 
Le problème est que je ne peux pas copier coller ces petits carrés nul part. donc je voudrais de l'aide SVP §§

tu peux faire ça à la manouch...
 
tu ouvre le fichier dans le notepad, tu copie un des petits carrés, tu fais CTRL H pour remplacement... tu remplace le petit carré par un tabulateur et voilà après tu réouvre dans excel

sinon dans excel à l'import tu choisis un séparateur ton petit carré dans l'option "autre"

je peux pas le choisir vu que je peux pas copy paste
et quand je le mets en texte PAD bah ca me l enleve

bin tu fais données/convertir et tu indiques comme séparateur de champs le petit carré en question
 
ceci va te permettre de splitter ta colonne unique en plusieurs colonnes
 
ah merde, je viens de voir que tu ne peux pas le sélectionner...    
 
à ce moment-là, tu peux utiliser le même menu en sélectionnant une largeur de colonne fixe si tes colonnes font la même taille
 
sinon, tu peux essayer cette macro pour virer les petits carrés et tu réessayes ensuite données/convertir :
 
Sub Macro1Carrés()
'Isabelle, MPFE 2002
Dim c
For Each c In Range("A1:" & _
Range("A1" ).SpecialCells(xlCellTypeLastCell).Address)
For i = 1 To 31
Application.StatusBar = c.Address & " " & i
On Error Resume Next
Range(c.Address) = Application.Substitute(c, Chr(i), " " )
'Err.Clear
'Resume
Next
Range(c.Address) = Application.Substitute(c, Chr(127), " " )
Range(c.Address) = Application.Substitute(c, Chr(129), " " )
Range(c.Address) = Application.Substitute(c, Chr(141), " " )
Range(c.Address) = Application.Substitute(c, Chr(143), " " )
Range(c.Address) = Application.Substitute(c, Chr(144), " " )
Range(c.Address) = Application.Substitute(c, Chr(157), " " )
Next
Application.StatusBar = False
End Sub
 
en désespoir de cause, indique nous réellement ce que tu as dans ta colonne et la structure qu'elle a, ça sera plus facile pour t'aider