Regroupement de plusieurs fichiers TXT en un seul Fermé

Question

Bonjour, 

J'ai vu la même demande sur le forum sans pour autant comprendre le langage VBA ne me parle pas du tout cependant je vois que ca pourrait bien m'aider !!
J'ai dans un dossier des fichiers txt generés en extraction  par un logiciel. pour chaque jour du mois et toujours le même format separé par des ";" 
Je sais faire l'extraction fichier par fichier mais sur 365 jours vous imaginez bien le nombre de clics répété que je peux faire !!
Mon 1er objectif serai de récupéré chaque fichier pour un même mois sur un classeur excel
(excel 2010) 1 onglet serai un jour et le nom de l'onglet répété sur chaque ligne de données. 


En schématisation j'aimerai ça :
SMAR01_20180301.txt                                                       onglet 1 SMAR01_20180301   |
SMAR01_20180302.txt  >>> dans un classeur excel     onglet 2 SMAR01_20180302   | >> pour les onglets créé
SMAR01_20180303.txt                                                       onglet 3 SMAR01_20180303   |       repeter ce nom sur
etc...                                                                                        etc...                                                     le nom de l'onglet

Est ce que vous pouvez m'aider ? merci d'avance


Configuration: Windows / Chrome 67.0.3396.99

horalex · Answer

zut la schématisation n'est pas bonne après validation du message ... J'espère que vous me comprendrez...

f894009 · Answer

Bonjour,

mais bon pas d'importance 
Juste une remarque car une ligne toutes les minutes pas deux

'un fichier final excel que j'ai fait "à la main"
Si vous voulez 

joindre un fichier, sans données confidentielles 
https://www.cjoint.com

horalex · Answer

Bonjour
Voici pour exemple 

Fichier txt généré par logiciel 
https://www.cjoint.com/c/HGCmCUdpZpY

Fichier Excel final « fait mains » en regroupant les fichiers txt d’un même mois
https://www.cjoint.com/c/HGCmEEC61gY

Merci bien de votre aide

horalex · Answer

Bonjour
je viens de tester en changeant comme indique le chemin d'acces (j'ai remplacé votre ligne avant !) 
"Y:nnaeic04-2\databfp$\Utilisateurs\ahonore\SERRE\HPE Aurélie\climat\climat S2\données clim 2018\regulateur 01_2018\SMAR01_recup données\

après lancement de la récup fichier j'ai sélectionné mes fichiers txt pour se régulateur et 
et sur le fichier j'ai ce classeur : SMAR01_201803 n'existe pas creer ? Clic sur OK et envois  sur VBA  qui me dit :
erreur d'exécution '1004' : la Methode 'Save As' de l'objet '_workbook' a échoué 
J'ai cliqué sur debogage 
et voici la fenêtre qui apparait : 

Sub Nouveau_Classeur(Rep_XLSX, Classeur, Onglet)
    Worksheets("Recup_TXT").Copy                             'copie de la feuille active
    'enregistrement dans un nouveau classeur
    With ActiveWorkbook
        '.Title = ActiveSheet.Name             'titre  pour propriete/detail du classeur
        '.Subject = ActiveSheet.Name       ' objet pour propriete/detail du classeur
        .ActiveSheet.Name = Onglet
        Application.DisplayAlerts = False   'desactive les alertes Excel
        .SaveAs Filename:=Rep_XLSX & Classeur        'sauvegarde le nouveau classeur
        .Close True     'ferme le nouveau classeur avec sauvegarde
        Application.DisplayAlerts = True    'active les alertes Excel
    End With
End Sub

La ligne soulignée est surlignee en jaune sur VBA

 j'ai un classeur avec un onglet identifié SMAR01_20180301 qui s'ouvre

J'ai été créer un fichier excel SMAR01_201803.XLSX pour voir mais pas de succès évidemment... 

c'est un sacrée truc la programmation !! je suis admirative du travail !

Regroupement de plusieurs fichiers TXT en un seul

4 réponses

Discussions similaires