Discussion :

[nanefou]

Bonjour à tous,

J'aimerais réaliser une macro qui est capable de balayer tout un dossier dans lequel se trouve des fichier au format .asc.
Je souhaiterais que dans ces fichiers, les espaces soient convertis en séparateur de colonne.

Je sais qu'il est possible en ouvrant ces fichiers avec Excel de les convertir directement. Mais le problème est que cette action doit être reproduite sur un ensemble de 1000 fichiers quelques fois.

Est-ce possible? Merci

PS : J'ai l'impression que les fichiers.asc ne peuvent être mis en pièce jointe

[Igloobel]

Bonjour,

Est-ce que tes colonnes sont de la mêmes taille ou pas ?

Tes fichiers .asc sont au format texte ou pas ?

@ bientôt

[nanefou]

Bonjour Igloobel,

Non les colonnes ne sont pas tous de même tailles, les fichiers asc sont au format textes.

Pour beaucoup plus de clarté j'ai upload le fichier sur dropbox
https://www.dropbox.com/s/g6m7l6q22y...89_L0.asc?dl=0

[Marc-L]

Bonjour, bonjour !

Le fichier pourrait être aussi directement joint sur ce forum !
En cas de souci d'extension, le renommer en .txt par exemple …

Sinon avant de concevoir une quelconque usine à gaz, il serait vraiment opportun de préciser la finalité.
Car s'il s'agit d'effectuer une importation dans Excel : suffit d'utiliser l'assistant de conversion !
Et combiné à l'Enregistreur de macros, un début de code est livré sur un plateau !

Sinon voir les nombreux exemples dans les discussions de ce forum pour traiter autrement un fichier texte.
Voir l'instruction Open … For et la fonction texte Replace par exemple …

Quant au balayage du dossier, consulter l'aide intégrée VBA de la fonction Dir …

[Igloobel]

Bonjour,
Je pense que je me suis mal exprimé ma question est pour la colonne1 est-ce que chaque ligne possède la même taille
C-à-d par exemple quelque soit la ligne la colonne1 a12 caractères ou au contraire pour la colonne1 ligne1 = 12, ligne2 = 24 lign3 = 3 ....

j'espère que c'est la première solution

[nanefou]

@Igloobel

Oui c'est la première solution

@Marc-L

Merci je regarde ça, c'est pas gagné ^^

[patricktoulon]

bonjour
une exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
dim texte as string, tablo(2,20) as variant, ligne a variant
 
texte ="chaque mot de ce texte est séparé par de espaces ou des saut de ligne" & vbcrlf  &"nous allons le placer dans un fichier Excel chaque mot dans une cellule"
 
ligne=split(texte,vbcrlf)
for e= 0 to ubound(ligne)
mot= split(ligne(e)," ")
for i= 0 to  ubound(mot )
tablo(e,i)=mot(i)
next i
next e
 
sheets("nom du sheet").cells(1,1).resize (e,i)=tablo

j'ai fait ca vite fait
tu peux améliorer en te servant de "redim preserve pour avoir un tablo avec la dimension juste nécessaire plutôt que moi je l'ai déclaré a la base avec 2 ligne et 20 colonne

au plaisir