important pour mon projet

[mirage23]

je rencontre un souci de programmation dans mon projet , je suis nouvelle sur ce forum qui est maintenat mon dernier recours pour ce probleme sur lequel j'ai passé des jours sans trouver de solution
donc voila,en fait j'ai des fichiers (voici le lien pour voir ces fichiers Free - Envoyez vos documents )qui sont téléchargés au fur et à mesure dans un dossier
il s'agit de fichiers texte representant chacun les données d'une journée, un dossier d'un mois contient 30 fichier par exemple et à la fin on aura un gros dossier d'une année contenant 12 dossier dont chaqu'un contient 30 fichiers txt comment copier automatiquement les données d'un fichier texte sur Excel.,et a chaque nouvelle arrivée de ficheir (c'est a dire quotiennement )est-ce possible d'additionner le nouveau fichier aux tableaux précédents ?
je veux d'abord etre sure que cela est faisable , et si c'est oui j'aimerais etre dirigé
merci d'avance

 

[kjin]

Re : important pour mon projet

Bonsoir,
Au pire Accueil de Cjoint.com
A+
kjin

 

[mirage23]

Re : important pour mon projet

bonsoir ,
désolée j'ai pas compris ton message
j'ai joint déja mon fichier ,non ?!!
sinon voici un autre lien http://cjoint.com/?3Kixhde8URS
la taille du fichier est trop importante pour la télécharger dans Cjoint ;les dossiers étaient pleins jusqu'à 14 mega minimum chacun
ce dossier contient les donnés de chaque mois pour une année
A+

 

[kjin]

Re : important pour mon projet

Bonsoir,
N'est-il point possible de joindre un tout petit fichier représentatif de la problématique que tu rencontres ?!
je suis sûr que la réponse tiens dans moins de 20 ko
A+
kjin

 

[mirage23]

Re : important pour mon projet

Re
voici le lien de mon fichier texte http://cjoint.com/?BKjvz2U84G9
je veux tout d'abord mettre ces donnés dans un tableaux excel
je n'est que quelques notions en VBA ,et j'ai du mal a retrouver quels sont les meilleurs instructions
j'apprécierai un tout petit coup de pouce
merci

 

[Staple1600]

Re : important pour mon projet

Bonsoir à tous, re kjin 😉

je suis nouvelle sur ce forum

Bienvenue alors 😉

mais être nouvelle n'a jamais empêché de dire bonjour ou bonsoir ....

(PS: je parle évidemment de ton premier message 😉 avant le bonsoir de kjin)

Sinon pour ta question, as-tu regardé dans les archives du forum, les fils relatifs à la "combination", la fusion de fichiers ?

NB: Regardes en bas de la page , dans les discussions similaires, et tu comprendras pourquoi il est judicieux de choisir un titre à ta question représentatif du problème rencontré.

 

[kjin]

Re : important pour mon projet

Re, Sieur Staple (t'as pas répondu à ma charade...)
Ma vue baisse, mon niveau aussi...
On commence à entrevoir un début de solution. Maintenant que l'on sait à quoi ressemblent les fichiers à importer quoi fait-on ?
A+
kjin

 

[Staple1600]

Re : important pour mon projet

Re Maitre Kjin

Ils ont quelques têtes les fichiers? Ici pas de quoi ouvrir les *.rar (et trop tard ce soir pour télécharger l'utilitaire adéquat)

Un tit batch ne ferait-il pas l'affaire ?
copy /A *.txt GROSFICHIER.xls
start GROSFICHIER.xls

PS: T'as pas répondu à ma charade non plus 😉 (je te réponds en MP ok?)

 

[Staple1600]

Re : important pour mon projet

Re


Avant d'aller au dodo, pour le fun, trouvé ceci chez Scripting Guy!
C'est du vbs

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = objFSO.CreateTextFile("compilTXT.xls")

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:\Temp\Test'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In FileList
    Set objTextFile = objFSO.OpenTextFile(objFile.Name, ForReading) 
    strText = objTextFile.ReadAll
    objTextFile.Close
    objOutputFile.WriteLine strText
Next

objOutputFile.Close

'Ce script VBS est facilement transposable en VBA.

kjin: si tu repasses ici avant moi, je te laisse diriger la danse avec la demoiselle 😉
(vu que nous sommes au bal des débutantes)

PS: J'espère que d'autres viendront avec des soluces plus vbaistes et plus accessibles aux débutants en vba (à moins qu'elles se trouvent déjà dans les archives)

 

[Staple1600]

Re : important pour mon projet

Re, bonne nuit à tous


Voici la version VBA (test ok ici) juste avant le dodo

Sub COMBINETXT()
Const ForReading = 1
Dim objFSO
Dim objOutputFile
Dim objWMIService
Dim FileList, objFile
Dim objTextFile
Dim strComputer$, srTxt$
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutputFile = objFSO.CreateTextFile("C:\Temp\compilTXT.xls") 'adapter le chemin

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='C:\Temp\Test'} Where " _
        & "ResultClass = CIM_DataFile") 'ici aussi mettre le nom adéquat du dossier

For Each objFile In FileList
    Set objTextFile = objFSO.OpenTextFile(objFile.Name, ForReading)
    strText = objTextFile.ReadAll
    objTextFile.Close
    objOutputFile.WriteLine strText
Next
objOutputFile.Close
End Sub

 

[mirage23]

Re : important pour mon projet

bonsoir
merci pour chacune de vos réponses
je testerai le code et rendrai la réponse prochainement
d'ici là bon vbaistage 😉