Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ouvrir fichier txt existant et le remplir derniere ligne

ouvrir fichier txt existant et le remplir derniere ligne

11 réponses
Avatar
Michel
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte aller
a la derniere ligne automatiquement puis coller un resultat d'une cellule
d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
Clément Marcotte
Bonjour,

C'est plus facile avec le FileSystemObject. Je dois bien avoir quelque chose
à quelque part, mais je vais devoir chercher.

Avec un peu de chance, je devrais pouvoir le faire en soirée (chez moi)


"Michel" a écrit dans le message de
news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat d'une
cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.



Avatar
Clément Marcotte
P.S. C'est parce que dans le FileSystemObject, il y a une propriété ou une
méthode qui permet soit de se rendre automatiquement à la fin du fichier,
soit de connaître le nombre de lignes. (Je me souviens que cela existe, mais
j'ai oublié comment cela se fait.)


"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

C'est plus facile avec le FileSystemObject. Je dois bien avoir quelque
chose à quelque part, mais je vais devoir chercher.

Avec un peu de chance, je devrais pouvoir le faire en soirée (chez moi)


"Michel" a écrit dans le message de
news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat d'une
cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.







Avatar
Michel
salut,

ca serait genial de ta part si tu pouvais retrouver ton bout de code.

en attendant de tes nouvelles,

@+

Michel.


"Clément Marcotte" a écrit dans le message
de news:
P.S. C'est parce que dans le FileSystemObject, il y a une propriété ou une
méthode qui permet soit de se rendre automatiquement à la fin du fichier,
soit de connaître le nombre de lignes. (Je me souviens que cela existe,
mais j'ai oublié comment cela se fait.)


"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

C'est plus facile avec le FileSystemObject. Je dois bien avoir quelque
chose à quelque part, mais je vais devoir chercher.

Avec un peu de chance, je devrais pouvoir le faire en soirée (chez moi)


"Michel" a écrit dans le message
de news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat d'une
cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.











Avatar
Daniel
Bonsoir.
Essaie :

Open "c:temptest.txt" For Append As #1
Write #1, [A1]
Close #1

Cordialement.
Daniel
"Michel" a écrit dans le message de
news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat d'une
cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.



Avatar
Daniel
Plutôt :

Open "c:temptest.txt" For Append As #1
Print #1, [A1]
Close #1

Daniel
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie :

Open "c:temptest.txt" For Append As #1
Write #1, [A1]
Close #1

Cordialement.
Daniel
"Michel" a écrit dans le message de
news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat d'une
cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.







Avatar
Michel
Salut,

Merci je vais tester et je te reponds demain..... Je vais aller me
coucher...

@+

Michel.

P.S. : Une idee sur ma demande "Creation d'un fichier plat" ? 14/06/06 a
21H36 ?
Je sais j'abuses des bonnes choses.... :o)



"Daniel" a écrit dans le message de news:

Plutôt :

Open "c:temptest.txt" For Append As #1
Print #1, [A1]
Close #1

Daniel
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie :

Open "c:temptest.txt" For Append As #1
Write #1, [A1]
Close #1

Cordialement.
Daniel
"Michel" a écrit dans le message
de news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat d'une
cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.











Avatar
Daniel
Adapte :

Sub tutu()
[K1] = WorksheetFunction.Rept("a", 1000) & _
WorksheetFunction.Rept("b", 800) & "c"
var1 = Left([K1], 1000)
var2 = Right([K1], Len([K1]) - 1000)
Open "c:temptest.txt" For Output As #1
Print #1, var1 & var2
Close #1
End Sub

Daniel

"Michel" a écrit dans le message de
news:
Salut,

Merci je vais tester et je te reponds demain..... Je vais aller me
coucher...

@+

Michel.

P.S. : Une idee sur ma demande "Creation d'un fichier plat" ? 14/06/06 a
21H36 ?
Je sais j'abuses des bonnes choses.... :o)



"Daniel" a écrit dans le message de news:

Plutôt :

Open "c:temptest.txt" For Append As #1
Print #1, [A1]
Close #1

Daniel
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie :

Open "c:temptest.txt" For Append As #1
Write #1, [A1]
Close #1

Cordialement.
Daniel
"Michel" a écrit dans le message
de news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat d'une
cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.















Avatar
Clément Marcotte
Oups!!! Là j'ai dit une connerie. Quand on ouvre un fichier "for Append",
les nouvelles écritures se font automatiquement à la fin du fichier, s'il
existe déjà.


"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

C'est plus facile avec le FileSystemObject. Je dois bien avoir quelque
chose à quelque part, mais je vais devoir chercher.

Avec un peu de chance, je devrais pouvoir le faire en soirée (chez moi)


"Michel" a écrit dans le message de
news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat d'une
cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.







Avatar
Clément Marcotte
Bonjour,

Tu as bien fait de rectifier mon ânerie. ;-)


"Daniel" a écrit dans le message de news:

Adapte :

Sub tutu()
[K1] = WorksheetFunction.Rept("a", 1000) & _
WorksheetFunction.Rept("b", 800) & "c"
var1 = Left([K1], 1000)
var2 = Right([K1], Len([K1]) - 1000)
Open "c:temptest.txt" For Output As #1
Print #1, var1 & var2
Close #1
End Sub

Daniel

"Michel" a écrit dans le message de
news:
Salut,

Merci je vais tester et je te reponds demain..... Je vais aller me
coucher...

@+

Michel.

P.S. : Une idee sur ma demande "Creation d'un fichier plat" ? 14/06/06 a
21H36 ?
Je sais j'abuses des bonnes choses.... :o)



"Daniel" a écrit dans le message de news:

Plutôt :

Open "c:temptest.txt" For Append As #1
Print #1, [A1]
Close #1

Daniel
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie :

Open "c:temptest.txt" For Append As #1
Write #1, [A1]
Close #1

Cordialement.
Daniel
"Michel" a écrit dans le message
de news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat
d'une cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.



















Avatar
Daniel
Bonjour.
J'ai rien retifié, je n'ai pas compris ce que tu voulais dire . ;-)
Cordialement.
Daniel
"Clément Marcotte" a écrit dans le message
de news:
Bonjour,

Tu as bien fait de rectifier mon ânerie. ;-)


"Daniel" a écrit dans le message de news:

Adapte :

Sub tutu()
[K1] = WorksheetFunction.Rept("a", 1000) & _
WorksheetFunction.Rept("b", 800) & "c"
var1 = Left([K1], 1000)
var2 = Right([K1], Len([K1]) - 1000)
Open "c:temptest.txt" For Output As #1
Print #1, var1 & var2
Close #1
End Sub

Daniel

"Michel" a écrit dans le message
de news:
Salut,

Merci je vais tester et je te reponds demain..... Je vais aller me
coucher...

@+

Michel.

P.S. : Une idee sur ma demande "Creation d'un fichier plat" ? 14/06/06 a
21H36 ?
Je sais j'abuses des bonnes choses.... :o)



"Daniel" a écrit dans le message de news:

Plutôt :

Open "c:temptest.txt" For Append As #1
Print #1, [A1]
Close #1

Daniel
"Daniel" a écrit dans le message de news:

Bonsoir.
Essaie :

Open "c:temptest.txt" For Append As #1
Write #1, [A1]
Close #1

Cordialement.
Daniel
"Michel" a écrit dans le
message de news:
Bonjour tout le monde,

Je voudrais savoir comment faire via VBA pour ouvrir un fichier texte
aller a la derniere ligne automatiquement puis coller un resultat
d'une cellule d'excel sauver et fermer le fichier ?

Merci d'avance,

@+

Michel.























1 2