Discussion :

[Garth69]

Salut all !

Ma question paraitra sans doute très bête ( Pour certains ... ), mais je suis un "noob" sous Excel 97 !


Avec un logiciel spécifique à mon entreprise, j'émets de petit fichiers .TXT ( Simples fichiers notepad .TXT de quelques mots, pour décrire l'état d'un appareillage ... )

Pour ne pas à avoir à ouvrir l'un après l'autre ces petits fichiers .TXT pour en prendre connaissance : Je souhaiterai en visualiser l'ensemble des contenus dans une feuille Excel ...
( 1 Cellule contenant le contenu d'un fichier .TXT / xxx cellules, me permettant de lire le contenu de mes xxx fichiers .txt ... Suis je assez explicite ? )

Je voudrai visualiser directement dans mes cellules les contenus de mes fichiers .TXT, pas avoir un objet ou une case à cliquer pour y accéder !


Voilà ... Voilà ... J'imagine que ca doit pas être si compliqué, mais hors de mes connaissances actuelles sous Excel ...

En vous remerciant d'avance de l'aide que vous pourriez m'apporter ( Chacun peut tester la manip avec son Excel et un petit fichier .TXT ... ) !

[rvtoulon]

Bonjour,
voici un code tester sur Excel2007, je n'ai pas la version97.
Ce code boucle sur tous les fichiers txt du répertoire et met le texte dans les cellules de la colonne A en commençant en A1:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub test()
Dim Chemin As String, Fichier As String
Dim chaine As String
'Définit le répertoire contenant les fichiers
Chemin = "C:\Documents and Settings\Atelier\Bureau\Essai\"
 
'Boucle sur tous les fichiers txt du répertoire.
Fichier = Dir(Chemin & "*.txt")
Do While Len(Fichier) > 0
  If [A1] = "" Then
 
   'boucle sur toutes les lignes du fichiers txt 
    Open (Chemin & Fichier) For Input As #1
       Do While Not EOF(1)
       Line Input #1, Ligne
       chaine = chaine + Ligne
     Loop
    Close #1
    [A1] = chaine
    chaine = ""
 
   Else
    dercel = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1
 
    'boucle sur toute les lignes du fichier txt 
    Open (Chemin & Fichier) For Input As #1
      Do While Not EOF(1)
        Line Input #1, Ligne
        chaine = chaine + Ligne
      Loop
     Close #1
 
    Range("A" & dercel) = chaine
    chaine = ""
  End If
 
  Fichier = Dir()
Loop
End Sub

Tiens moi au courant.

[Garth69]

Merci rvtoulon !

Ta macro marche parfaitement sous excel 97 ...


Je l'ai testée seulement aujourd'hui à mon travail ! Pas eu le temps avant ...


Je vais l'adapter un peu, pour qu'elle réefface ma feuille excel à chaque lancement ( Sinon, ca reliste x fois le contenu de mes .TXT ... ) !