XL 2013 Importer et Combiner des infos des données fichier .TXT en model rapport sous fichier excel

dhoundeton · 5 Décembre 2021

Bonjour à tous

Besoin de votre support

A partir d'extraction quotidiennes de données en format . txt
Je souhaite Importer et Combiner différentes informations des données .TXT , pour faire des reporting sous fichier excel suivant deux différents model de rapport et avec de différents printout en attache . Ceci de manière automatique ; Si c'est possible en VBA

Model RAPPORT 01 ;: PON OCCUPATION USAGE
======================
Printout:
IDM_INV_iSAM_5_3_pon
IDM_INV_iSAM_5_3_ont
IDM_INV_NE
IDM_INV_iSAM_5_3_slot

Model RAPPORT 02 : INVENTORY NE_SLOT
======================
Printout:

IDM_INV_NE
IDM_INV_iSAM_5_3_slot
IDM_INV_iSAM_5_2_slot
IDM_INV_FTTBMDU_2_4_slot

CDT

dhoundeton · 7 Décembre 2021

Bjr à tous
Merci de trouver Ci joint les fichiers .txt en attache dans la feuille Input
il faut noter que la feuille Input c est la liste des commandes dont les contenu sont dans les fichiers. TXT

sylvanu · 9 Décembre 2021

Bonjour Dhoundeton,
Vous savez, lorsqu'un post fait 94 vues et pas une seule réponse, c'est que personne a compris.
Il faut une boule de cristal, et encore, pour voir le moindre rapport entre le contenu des fichiers txt et vos feuilles résultats comme INV_ iSAM.5.3.
Donc en PJ vous trouverez la moitié du boulot :
- Demande du fichier texte à traiter
- Ouverture de ce fichier avec les bons séparateurs, une donnée par colonne
- Importation du résultat dans le fichier excel
- Fermeture du fichier texte
Quand au post traitement pour vos différentes feuilles, je vous laisse faire.
La macro utilisée est :

VB:

Sub OuvertureFichiers()
    Dim MonFichier, Fichier, NomFichierXL, tablo
    'Préparation
    Application.ScreenUpdating = True
    MonFichier = ThisWorkbook.Name
    ' Demande quel fichier utiliser, seul les .txt seront affichés
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "CHOISIR FICHIER TEXTE A IMPORTER", , False)
    If Fichier = False Then Exit Sub
    ' Ouverture fichier txt, séparateur chr(124) "|"
    Workbooks.OpenText Filename:=Fichier, Origin _
        :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _
        , Comma:=False, Space:=False, Other:=True, OtherChar:="|", FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    ' Copie de la feuille dans le fichier courant
    ActiveSheet.Copy Before:=Workbooks(MonFichier).Sheets(1)
    ' Fermeture fichier txt
    tablo = Split(Fichier, "\")
    NomFichierXL = tablo(UBound(tablo)) ' Récupère le nom fichier sans le chemin
    Workbooks(NomFichierXL).Close SaveChanges:=False
End Sub

dhoundeton · 12 Décembre 2021

Bonsoir Sylvanu
Merci pour l'observation et surtout ton retour , mais cela réponds pas à mon besoin.
J ai repris mon fichier , en intégrant directement chaque input dans une feuille en tenant des données essentielles pour le Model RAPPORT 01 ;: PON OCCUPATION USAGE

Printout:
IDM_INV_iSAM_5_3_pon
IDM_INV_iSAM_5_3_ont
IDM_INV_NE
IDM_INV_iSAM_5_3_slot

Dans l'attente . Bon Dimanche

sylvanu · 12 Décembre 2021

Bonjour Dhoundeton,
Comme dit dans mon post précédent:

sylvanu à dit:
Il faut une boule de cristal, et encore, pour voir le moindre rapport entre le contenu des fichiers txt et vos feuilles résultats comme INV_ iSAM.5.3.

Il est impossible, vu de l'extérieur, de construire les différentes feuilles avec les données d'entrée.
Par ex les "IP address" qu'on a en feuilles de sortie sont introuvables dans les fichiers d'entrée.
C'est pour cela que j'ai dit, et maintiens.

sylvanu à dit:
Quand au post traitement pour vos différentes feuilles, je vous laisse faire.

J'ai fait la moitié du chemin, mais vous êtes le seul à pouvoir finir le travail.

XL 2013 Importer et Combiner des infos des données fichier .TXT en model rapport sous fichier excel

dhoundeton

XLDnaute Nouveau

Pièces jointes

dhoundeton

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

dhoundeton

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Discussions similaires