Separer en plusieurs une colonne

Bonjour,

J'ai un fichier où toutes mes informations sont contenues dans une colonne.

J'aimerais separer cette colonne en plusieurs colonne dès qu'il y a un espace sur une ligne.

Comment faire?

Merci pour votre aide, c'est très important! :s :s

bonjour,

Peux tu transmettre un fichier STP ?

Cdt.

hey!

Je t'ai mis en exemple un fichier. En fait j'importe des données de fichier .log que je copie dans un .xls et quand il me fait la copie il met tout dans la premiere colonne. Quand je le fais manuellement, il me suffit de faire "text to column" et d'uiliser le séprateur space mais comme je dois le faire pour tout un repertoire, j'ai besoin d'une macro.

Merci

Est ce que tu sais par quoi sont séparérés tes éléments.

regarde le fichier joint et dis moi si ca te va ?

Désolé je n'ai pas lu ton message jusqu'au bout. Je ne serai pas à partir d'une macro. désolé. Peut etre que quelqu'un d'autre pourra t'aider.

Merci quand même d'avoir essayé

Si quelqu'un d'autre a une idée...

Bonjour,

Tu peux obtenir ce résultat avec la fonction Split.

A+

C'est génial!!

Merci beaucoup!!

Bonjour

Pour convertit tous tes fichiers du répertoire en une seule fois, tu créés un nouveau fichier et tu l' enregistres dans le même répertoire

Dans un module de ce nouveau fichier tu copies ce code :

Sub Convertir()
Dim dossier As Object, Fichier As Object, Chemin As String, Lg As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Chemin = ThisWorkbook.Path
           FName = Dir(Chemin & "\" & "*.xls")
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)

For Each Fichier In dossier.Files

NomFichier = Fichier.Name
Workbooks.Open Filename:=Chemin & "/" & NomFichier

On Error Resume Next

With Workbooks(NomFichier)
    Columns(1).TextToColumns Destination:=Range("A1"), DecimalSeparator:=" "
Columns.EntireColumn.AutoFit
.Save
.Close
End With

Next
Application.DisplayAlerts = True
End Sub

Tu lances le code - Tous les fichiers du répertoire seront convertis.

Amicalement

Nad

Bonjour,

Merci beaucoup pour cette réponse aussi rapide, mais en lançant le code il ne fonctionne pas. Je pense que le pb vient du fait que j'ai un mac et qu'il y a un pb quand j'écris des chemins vers un repertoire il me dit qu'il y a une erreur de chemin (j'ai ce pb depuis hier et je n'arrive pas à le résoudre)

Tu as déjà eu ce type de pb?

Amicalement

Merci d'avance

Re

Quelle ligne est surlignée ?

Peux-tu me donner le message d'erreur STP ?

Nad

Re,

il me donne le msg "Run-time error '68' Device unavailable"

Et la ligne d'où vient l'erreur est celle ci: FName = Dir(Chemin & "\" & "*.xls")

Re

De ce que je peux lire sur le net, le séparateur sur Mac est le : - Essaye en remplaçant "\" par ":"

Nad

C'est ce que j'ai fait, mais ça ne fonctionne pas...

Je viens de trouver autre chose :

Remplace

Chemin = ThisWorkbook.Path 
        FName = Dir(Chemin & "\" & "*.xls")

par

Chemin = ThisWorkbook.Path & Application.PathSeparator
           FName = Dir(Chemin & "*.xls")

Nad

Je viens de tester mais ça ne marche pas non plus...

Pourtant j'ai bien fait comme toi je pense, j'ai crée un repertoire où il y a tous mes .log et j'y ajouté un .xls vierge ou je fait tourner ma macro.

Il ne devrait pas y a voir de pb de chemin...

D'ailleurs j'avais une question, on ne precise pas une fois que ce sont des .log qu'on traite, c'est normal?

baloo1989 a écrit :

D'ailleurs j'avais une question, on ne precise pas une fois que ce sont des .log qu'on traite, c'est normal?

Ben dans ton 2ème message tu dis avoir copié le . log dans un fichier excel ; je suis partie de là.

Peux-tu me fournir 2 fichier .log ? (je ne connais pas cette extension et ne sait pas à quoi ça ressemble)

Autrement, il faut penser à modifier également cette partie du code

Workbooks.Open Filename:=Chemin & "/" & NomFichier

devient

Workbooks.Open Filename:=Chemin & NomFichier

Nad

Ah je suis désolée, j'ai pas du bien m'expliquer.

Ce que je veux, c'est justement copier un .log vers une feuille excel. Sachant que j'ai plusieurs log qui sont tous dans un repertoire et que je dois faire cette opération pour tous les .log du repertoire.

Je te joins un exemple de fichier .log

merci pour ton aide

Après plusieurs tentatives, je sèche.

Je passe la main.

Amicalement

Nad

Hey!

ça y est j'y suis arrivée, en fait le pb vient du fait que j'ai un mac et qu'il est un peu vieux, du coup ya plein de truc qui bug dessus.

Merci beaucoup pour ton aide Nad! C'est super sympa!

Dernière petite question, est ce que tu sais lister le nom des fichier du repertoire courant?

Encore merci!

Bonjour

Un essai

Ce fichier et les fichiers .log dans le même répertoire