rss
Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Résolu

Ouvrir plusieurs .txt avec excel

Posté par popoye, le jeudi 17 avril 2008 à 11:57:24
Bonjour,

Je voudrais ouvrir plusieurs fichiers texte à la suite dans une page excel.
Je suis arriver à ouvrir mes fichiers dans plusieurs classeur différents mais impossible de le faire dans une seule et meme page. 

Set fichcherche = Application.FileSearch
With fichcherche
    .LookIn = ActiveWorkbook.Path
    .Filename = "*.txt"
    If .Execute > 0 Then
        For I = 1 To .FoundFiles.Count
            Workbooks.OpenText Filename:=.FoundFiles(I)
            
        Next I
    Else
        MsgBox "Aucun fichier n'a été trouvé."
    End If
   
End With
Configuration: Windows XP
Internet Explorer 6.0
Répondre à popoye  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
LePierre, le jeudi 17 avril 2008 à 13:35:59
bonjour

après ouverture de ton 2ème classeur, il faut déplacer la feuille dans ton 1er classeur
voici par exemple un code obtenu avec l'enregistreur de macro : 
Sheets("Feuil1").Select
Sheets("Feuil1").Move Before:=Workbooks("Classeur1.xls").Sheets(1)

à plus
   
Répondre à LePierre

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
popoye, le jeudi 17 avril 2008 à 14:16:35
Merci pour ta réponse.
Mais j'ai pas trop compris je dois mettre ça dans ma boucle 'For' ?
   
Répondre à popoye

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
LePierre, le jeudi 17 avril 2008 à 14:30:50
je n'ai pas testé mais en mettant cette commande après "Workbooks.OpenText Filename:=.FoundFiles(I)", tu vas transférer l'onglet concerné dans ton classeur1.xls.
Il faudra ensuite refermer (voir close) ton classeur txt.
et ainsi de suite pour les autres classeurs txt puisque placé dans la boucle

Si tu rencontres des problèmes, dis le moi, je ferai un bout de programme pour tester.

à plus
   
Répondre à LePierre

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
popoye, le jeudi 17 avril 2008 à 14:41:00
J'ai testé mais j'ai une erreur qui apparait.

Voila ce que j'ai mis: 

Set fichcherche = Application.FileSearch
With fichcherche
    .LookIn = ActiveWorkbook.Path
    .Filename = "*.txt"
    If .Execute > 0 Then
        For I = 1 To .FoundFiles.Count
            Workbooks.OpenText Filename:=.FoundFiles(I)
            Sheets(.FoundFiles(I)).Select
            Sheets(.FoundFiles(I)).Move Before:=Workbooks("Cartelucent.xls").Sheets(1)
            Sheets(.FoundFiles(I)).Close
            
        Next I
    Else
        MsgBox "Aucun fichier n'a été trouvé."
    End If


Je pense que l'erreur vient de la façon dont j'appelle la feuille mais je ne vois pas comment faire autrement.
   
Répondre à popoye

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
LePierre, le jeudi 17 avril 2008 à 15:34:04
bonjour

voici le code rectifié et testé : 
Sub test()
    ClasseurRéférence = ActiveWorkbook.Name
    
    Set fichcherche = Application.FileSearch
    x = fichcherche.FoundFiles.Count
    With fichcherche
        .LookIn = ActiveWorkbook.Path
        .Filename = "*.txt"
        If .Execute > 0 Then
            For i = 1 To .FoundFiles.Count
                Workbooks.OpenText Filename:=.FoundFiles(i)
                ActiveSheet.Move Before:=Workbooks(ClasseurRéférence).Sheets(1)
            Next i
        Else
            MsgBox "Aucun fichier n'a été trouvé."
        End If
    End With
End Sub

la procédure de fermeture du fichier ne servait à rien puisque le fichier txt ne contient qu'une feuille. Le fait de la transférer dans classeur1.xls ferme de fait ce fichier txt.
à plus
   
Répondre à LePierre

6


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 popoye, le jeudi 17 avril 2008 à 15:46:13
ok merci beaucoup pour l'aide ça fonctionne
   
Répondre à popoye
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger Word Viewer 2003Word Viewer - La visionneuse Word Viewer vous permet d'ouvrir des documents Word 2003 et des documents créés avec toutes les versions...Catégorie: Traitement de texte
Licence: Freeware/gratuit
Télécharger PowerISO 4.2PowerISO - PowerISO est un outil de gestion d'images de CD et DVD, capable d'ouvrir, d'extraire, de créer, d'éditer, de compresser et...Catégorie: Gravure
Licence: Demo
Télécharger Switch Sound Format Converter 1.05Switch Sound Format Converter - Switchest un convertisseur de formats audio pour Windows ou Mac, capable de convertir des fichiers audio à partir de...Catégorie: Conversion audio
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « ouvrir plusieurs .txt avec excel »