Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

important pour mon projet

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mirage23
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

mirage23

Guest
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
 
Dernière modification par un modérateur:
Trier par date Trier par votes
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+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : important pour mon projet

Bonsoir à tous, re kjin 😉

je suis nouvelle sur ce forum
Cliquez pour agrandir...

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é.
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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?)
 
Vote positif 0 Vote négatif
Re : important pour mon projet

Re


Avant d'aller au dodo, pour le fun, trouvé ceci chez Scripting Guy!
C'est du vbs
Code: 
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)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : important pour mon projet

Re, bonne nuit à tous


Voici la version VBA (test ok ici) juste avant le dodo
VB: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
A
  • Question Question
XL 2013 [A SUPPRIMER] sujet refait plus avancé.
Réponses
1
Affichages
698
Alafolix
A
  • Question Question
XL 2010 Demande d'aide pour méthodologie sur un projet ou comment aborder le problème
Réponses
4
Affichages
1 K
jeff1494
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
M
[REF] Wiki Page 9 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki Page 10 de MichelXld
Réponses
0
Affichages
31 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
52 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…