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

dhoundeton

XLDnaute Nouveau
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
 

Pièces jointes

  • PON_OCCUPATION_USAGE_011221.xlsx
    58.7 KB · Affichages: 3
  • INVENTORY_NE_SLOT_011221.xlsx
    19.9 KB · Affichages: 5

dhoundeton

XLDnaute Nouveau
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
 

Pièces jointes

  • PON_OCCUPATION_USAGE_011221.zip
    460.5 KB · Affichages: 3
  • INVENTORY_NE_SLOT_011221.txt
    436.6 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Transfert fichier texte dans feuille XL.xlsm
    21.2 KB · Affichages: 2

dhoundeton

XLDnaute Nouveau
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
 

Pièces jointes

  • RAPPORT01_PON_OCCUPATION_USAGE_011221.zip
    813.2 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Dhoundeton,
Comme dit dans mon post précédent:
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.
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.
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant