Discussion :

[Trollakuir]

Bonjour à tous,

Je fais appel à vous pour un problème qui me bloque depuis deux jours.

Je vous explique :

j'ai un lot de n fichiers texte qui se trouvent dans un répertoire.

Je veux les ouvrir dans excel, faire dessus quelques manipulations (pour ça je me débrouille) puis les refermer.

J'ai bricolé le code suivant. Le problème c'est que je n'arrive qu'à ouvrir qu'un fichier à la fois (et j'ai 385 fichiers à modifier...). il me manque en fait une variable qui dirait "ouvre chaque fichier du répertoire" au lieu de ouvre tel fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 'macro pour importer dans excel des fichiers text et enregistrer le fichier xls dans le même repertoire
Sub OuvrirfichierTxt()
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim waExcel: Set waExcel = CreateObject("Excel.Application") 'Ouverture d'Excel
StrPath = "M:\ETUDES EN COURS\2006\06E023 Fédération Collectivités de l'eau SDA SeineMaritime\Donnees technique\test excel" 'Chemin d'accès du fichier
    If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\" 'Ajoute \ à la fin s'il y en a pas
    StrFich = "AMBRUMESNIL-20-10-05" 'Nom du fichier
    If FSO.FileExists(StrPath & StrFich) Then 'Existance du fichier
        waExcel.Visible = False 'Rendre invisible Excel
        'Importe le fichier texte vers une feuille Excel de façon Largeur fixe avec délimiteur : Tabulation et Space
        waExcel.Workbooks.OpenText StrPath & StrFich, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
        False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) _
        , TrailingMinusNumbers:=True
'Sauvegarde la feuiller importer vers le chemin d'accès de départ en motifiant l'extension et en mode partagé pour éviter des erreurs
        waExcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich, Len(StrFich) - 4) & ".xls", , , , , , 2
    End If
    'Fermeture d'Excel
    waExcel.Application.Quit
End Sub

J'ai mis en rouge le nom du fichier que j'ai utilisé pour tester mon code.

Il m'a bien créer un fichier xls dans le même répertoire mais je voudrais que la manip boucle sur chaque fichier de mon répertoire.

J'espère avoir été assez clair dans mes explications.

Merci d'avance pour votre aide.

Trollakuir

[Edit] bbil : Penser à rajouter les balises de codes, utiliser le bouton

[illight]

Pourquoi tu n'utilise pas un OpenText plutot ? en parcourant ton dossier et dès qu'il trouve un fichier txt, tu met son nom dans une variable, tu l'ouvre et tu fais tes opérations dessus, sans utuliser ce que ut met au début de ton code ?

Tu veux faire quoi avec tes fichiers textes ? ils ont tous exactement la meme forme ?

[Trollakuir]

Bonjour,

Merci pour l'aide Illight mais concrètement comment je procède?

Je suis un débutant en VB. Le code du dessus, je l'ai trouvé sur le net et un peu adapté.

Sinon, mes fichiers textes n'ont pas tous le même format mais il y a des similitudes.
Ce que je veux, c'est extraire de ces fichiers un paragraphe qui est toujours présent (à l'aide d'un mot clé) ce que je sais faire et supprimer tout le reste du texte (ce que je sais faire aussi)

Dans un second temps, j'importerai tout ça dans une base Access (champ mémo) mais c'est pas pour tout de suite.

voilà,
trollakuir

[illight]

Tes fichiers textes ont un nom particulier (en fonction de la date par exemple, ou autre ?)

Regarde les propriétés de la fonctions Dir peut etre

Je peut pas regarde j'ai une urgence la mais dès que j'ai fini le regarde

[illight]

Me revla. dans un fichier Excel neutre tu met ça :

Code :

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

1
2
3
4
5
6
7
8
9
Dim fic As String
fic = Dir("M:\ETUDES EN COURS\2006\06E023 Fédération Collectivités de l'eau SDA SeineMaritime\Donnees technique\test excel\*.txt")
Do Until fic = ""
    workbooks.openText fic
    'la tu insère ton code pour les opérations que ut veux effectueur sur ton texte
    'a la limite tu peux meme les copier dans le classeur ouvert pour tout avoir dans le meme fichier Excel
    activeworkbook.close savechanges:=false
    fic = Dir
Loop

C'est un truc dans ce genre, après il faut que tu l'adapte avec ce que tu veux faire exactement, les opérations que ut veux faire sur tes fichiers textes, etc...

[Trollakuir]

Merci pour la réponse.

bon j'ai encore un tout petit problème,

En fait quand je lance la macro, je me suis aperçu que mon texte était importé avec des tabulations.

Hors je voudrais importer sans séparateur. Comment dois-je procéder?

Merci

[illight]

Comment ça sans séparateur tout est attaché ?

[Trollakuir]

Salut,

Non tout n'est pas attaché. Par contre pour une raison que j'ignore, Excel me place des éléments dans les colonnes A B et C alors que lorsque je fais la manip à la main (fichier ouvrir -> texte sans séparateur etc...), j'obtiens un fichier avec tout mon texte dans la premiere colonne.

Trollakuir

[illight]

Quand ut fais ton OpenText, met tous les arguments a False (qui sont des séparateurs)