Discussion :

[yahyazid]

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)

[Jean-Philippe André]

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

[78chris]

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.. ?

[yahyazid]

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

[Jean-Philippe André]

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

[Menhir]

- 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.