Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

programme important excel


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau Candidat au Club
    programme important excel
    bonjour
    j'ai un probleme je voudrais un programme qui convertit plusieurs fichiers .txt en excel (.xlsx) dans un seul workbook et le sauvegarder. Ces fichiers sont dans un dossier mais le plus important pour moi c'est juste de convertir les fichiers .txt sur excel(.xlsx)

  2. #2
    Rédacteur/Modérateur

    Bonjour,

    quels sont les essais que tu as réalisés pour l'instant ? Sur quel point rencontres-tu des soucis ?

    Aurais-tu un exemple de cas de figure à nous montrer ?

    L'objectif du forum n'étant pas de faire à ta place, mais de t'aider à progresser par toi meme.

    Merci
    Cycle de vie d'un bon programme :
    1/ ca fonctionne 2/ ca s'optimise 3/ ca se refactorise

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016 et Access 2019

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Expert éminent sénior
    Bonjour

    Sans doute faisable avec PowerQuery intégré à ta version Excel mais "dans un seul workbook" est flou : tout bout à bout dans un même onglet, chaque fichier dans un onglet différent.. ?
    Chris

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  4. #4
    Nouveau Candidat au Club
    mrc pour la reponse j'ai deja essayé avec cett coude source ms il ouvre moi chaque fichier(dans le dossier) dans défferents workbooks
    voila le code source:

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    Sub TXTconvertXLS()
     
     
        'Variables
        Dim wb As Workbook
        Dim strFile As String
        Dim strDir As String
     
        'Directories
        strDir = "C:\Users\xxxxxxx\Desktop\test\"
        strFile = Dir(strDir & "*.txt")
     
        'Loop
        Do While strFile <> ""
            Set wb = Workbooks.Open(strDir & strFile)
                With wb
                    .SaveAs Replace(wb.FullName, ".txt", ".xls"), 50
                    .Close True
                End With
            Set wb = Nothing
              strFile = Dir   '<- stuffs the next filename into strFile
        Loop
     
     
        End Sub

  5. #5
    Rédacteur/Modérateur

    Bonjour,

    cette premiere étape peut déjà te servir de base au code final.

    En effet, ici tu as réussi l'étape 1 fichier txt = 1 fichier xls

    La seconde étape sera de
    -parcourir chaque classeur xls (tu peux reprendre le code de ton étape1)
    -ouvrir le classeur (tu sais faire)
    - ajouter une feuille a ton classeur principal
    - copier le contenu du classeur
    - coller le contenu dans ta nouvelle feuille
    - fermer le classeur
    Cycle de vie d'un bon programme :
    1/ ca fonctionne 2/ ca s'optimise 3/ ca se refactorise

    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016 et Access 2019

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  6. #6
    Expert éminent sénior
    Citation Envoyé par Jean-Philippe André Voir le message
    - ajouter une feuille a ton classeur principal
    - copier le contenu du classeur
    - coller le contenu dans ta nouvelle feuille
    Plus simple : copier l'onglet du classeur source vers le classeur de synthèse.
    Lire ceci : https://msdn.microsoft.com/fr-fr/lib...4(v=office.15)

    En utilisant un Move au lieu d'un Copy (même syntaxe), il ne sera même pas nécessaire de fermer le fichier source.
    Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion.