Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour José,
La procédure suivante écrit dans UNE CELLULE, le contenu d'un fichier texte.
'------------- Sub ÉcrireTexteDansUneCellule()
Dim Var As String Dim LeTexte As String
Open "c:log.txt" For Input As 1 Do While Not EOF(1) Input #1, LeTexte Var = Var & LeTexte LeTexte = "" Loop With Worksheets("Feuil3") .Range("A1") = Var End If Close End Sub '------------------------------
Salutations!
"José" a écrit dans le message de news: 4238a0bb$0$12713$ Bonsoir,
Est-il possible d'insérer à l'aide de VBA le contenu d'un fichier txt (situé sur le disque) dans la cellule active ?
D'avance merci à tous. José
Bonjour José,
La procédure suivante écrit dans UNE CELLULE, le contenu d'un fichier texte.
'-------------
Sub ÉcrireTexteDansUneCellule()
Dim Var As String
Dim LeTexte As String
Open "c:log.txt" For Input As 1
Do While Not EOF(1)
Input #1, LeTexte
Var = Var & LeTexte
LeTexte = ""
Loop
With Worksheets("Feuil3")
.Range("A1") = Var
End If
Close
End Sub
'------------------------------
Salutations!
"José" <perez.jose@free.fr> a écrit dans le message de news: 4238a0bb$0$12713$626a14ce@news.free.fr...
Bonsoir,
Est-il possible d'insérer à l'aide de VBA le contenu d'un fichier txt (situé
sur le disque) dans la cellule active ?
La procédure suivante écrit dans UNE CELLULE, le contenu d'un fichier texte.
'------------- Sub ÉcrireTexteDansUneCellule()
Dim Var As String Dim LeTexte As String
Open "c:log.txt" For Input As 1 Do While Not EOF(1) Input #1, LeTexte Var = Var & LeTexte LeTexte = "" Loop With Worksheets("Feuil3") .Range("A1") = Var End If Close End Sub '------------------------------
Salutations!
"José" a écrit dans le message de news: 4238a0bb$0$12713$ Bonsoir,
Est-il possible d'insérer à l'aide de VBA le contenu d'un fichier txt (situé sur le disque) dans la cellule active ?
D'avance merci à tous. José
Alain CROS
Bonjour.
Sub ImportText() Dim Fich$, Var$, I& Fich = "c:Excelaaa.txt" 'à déterminer If Dir(Fich) = vbNullString Then MsgBox "Fichier introuvable" Else I = FreeFile Open Fich For Input As #I [Feuil2!A1] = Application.Substitute(Input(LOF(I), #I), Chr$(13&), "") Close #I End If End Sub
Alain CROS
"José" a écrit dans le message de news: 4238a0bb$0$12713$
Bonsoir,
Est-il possible d'insérer à l'aide de VBA le contenu d'un fichier txt (situé sur le disque) dans la cellule active ?
D'avance merci à tous. José
Bonjour.
Sub ImportText()
Dim Fich$, Var$, I&
Fich = "c:Excelaaa.txt" 'à déterminer
If Dir(Fich) = vbNullString Then
MsgBox "Fichier introuvable"
Else
I = FreeFile
Open Fich For Input As #I
[Feuil2!A1] = Application.Substitute(Input(LOF(I), #I), Chr$(13&), "")
Close #I
End If
End Sub
Alain CROS
"José" <perez.jose@free.fr> a écrit dans le message de news: 4238a0bb$0$12713$626a14ce@news.free.fr...
Bonsoir,
Est-il possible d'insérer à l'aide de VBA le contenu d'un fichier txt (situé
sur le disque) dans la cellule active ?
Sub ImportText() Dim Fich$, Var$, I& Fich = "c:Excelaaa.txt" 'à déterminer If Dir(Fich) = vbNullString Then MsgBox "Fichier introuvable" Else I = FreeFile Open Fich For Input As #I [Feuil2!A1] = Application.Substitute(Input(LOF(I), #I), Chr$(13&), "") Close #I End If End Sub
Alain CROS
"José" a écrit dans le message de news: 4238a0bb$0$12713$
Bonsoir,
Est-il possible d'insérer à l'aide de VBA le contenu d'un fichier txt (situé sur le disque) dans la cellule active ?
