lire et ecrire dans le bloc-notes avec excel

Salut,
Quel est l'objectif ?
Lire dans un fichier txt ?
Si c'est le cas, pas besoin du blocnote (en lecture seule):

Open "CXXX" For Input Access Read As 1
Do While Not EOF(1)
Line Input #1, TextLine
Loop

Cordialement,

F.

Salut,

Les macros ci-dessous liste l'ensemble des fichiers TXT dans le
repertoire du classeur, et alimentent la colonne A des valeurs de ces
fichiers :

Sub Lire(quoi As String)
Open quoi For Input Access Read As 1
Do While Not EOF(1)
Line Input #1, TextLine
With Sheets("1")
.Cells(.Cells(65536, 1).End(xlUp).Row + 1, 1) = TextLine
End With
Loop
Close #1
End Sub

Sub TouslesFichierTXT()
Dim chemin As String
Dim i As Integer
chemin = ActiveWorkbook.Path

With Application.FileSearch
.NewSearch
.LookIn = chemin & ""
.SearchSubFolders = Fasle
.Filename = "*.txt"
End With

With Application.FileSearch
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Lire .FoundFiles(i)
Next i
End If
End With

End Sub


Cordialement,

F.

Merci
cordialement
michel
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de
news:4c4dde16-f639-4efe-8d9e-becc6077656b@w13g2000prm.googlegroups.com...

Salut,

Les macros ci-dessous liste l'ensemble des fichiers TXT dans le
repertoire du classeur, et alimentent la colonne A des valeurs de ces
fichiers :

Sub Lire(quoi As String)
Open quoi For Input Access Read As 1
Do While Not EOF(1)
Line Input #1, TextLine
With Sheets("1")
.Cells(.Cells(65536, 1).End(xlUp).Row + 1, 1) = TextLine
End With
Loop
Close #1
End Sub

Sub TouslesFichierTXT()
Dim chemin As String
Dim i As Integer
chemin = ActiveWorkbook.Path

With Application.FileSearch
.NewSearch
.LookIn = chemin & ""
.SearchSubFolders = Fasle
.Filename = "*.txt"
End With

With Application.FileSearch
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Lire .FoundFiles(i)
Next i
End If
End With

End Sub


Cordialement,

F.