Modification d'une ligne sur un fichier .txt

Résolu

kaskssou Messages postés 37 Date d'inscription lundi 30 juillet 2018 Statut Membre Dernière intervention 18 juillet 2019 - 11 juil. 2019 à 11:01
kaskssou Messages postés 37 Date d'inscription lundi 30 juillet 2018 Statut Membre Dernière intervention 18 juillet 2019 - 17 juil. 2019 à 11:48

Bonjour à tous,

C'est ma deuxième question sur ce forum, et j'avoue que ma première intervention était très bénéfique pour moi. Alors je reviens vers vous pour une deuxième problématique.

Vu que je ne maitrise pas le langage VBA, je trouve du mal à formuler mon besoin. En gros je cherche à mettre en place une macro qui va me permettre d'insérer un mot "exp : ha30jde20" dans une case excel et d'appuyer par la suite sur un bouton imprimer, l'action qui doit découler derrière c'est l'ouverture d'un fichier (.txt) se trouvant dans un dossier X et remplacer un mot ( 3eme mot de la première ligne sur le fichier .txt) par le nouveau mot que j'ai saisi sur le fichier excel. En suite faire automatiquement le (Ctrl + S) c.-à-d. enregistrer la modification réalisée.

Je vous remercie d'avance pour toute aide ou recommandation....

Bonne journée à tous,

KS

A voir également:

Modification d'une ligne sur un fichier .txt
Php lire fichier ligne par ligne ✓ - Forum PHP
Retour a la ligne c# - Forum C# / .NET
Lire une ligne d'un fichier python - Forum Python
Dérivée en ligne - Forum Delphi / Pascal

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7893 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 19 mai 2023 136
11 juil. 2019 à 11:45

Bonjour,

Google est ton ami:

https://www.bing.com/search?q=lire+ecrire+fichier+txt+vba&form=PRFRFR&httpsmsn=1&refig=e577fefe5ff04c2388abafd92a6967e0&sp=-1&pq=lire+ecrire+fichier+tx&sc=0-22&qs=n&sk=&cvid=e577fefe5ff04c2388abafd92a6967e0

kaskssou Messages postés 37 Date d'inscription lundi 30 juillet 2018 Statut Membre Dernière intervention 18 juillet 2019
15 juil. 2019 à 09:43

Bonjour,
Merci pour votre réponse,
Le problème c'est que je ne suis pas encore capable de comprendre les codes et les modifier, mais merci quand même pour le lien.
cdt

kaskssou Messages postés 37 Date d'inscription lundi 30 juillet 2018 Statut Membre Dernière intervention 18 juillet 2019
16 juil. 2019 à 13:36

RE bonjour,
j'ai mis en place ce petit code pour renseigner une page excel à partir d'un userform, le problème c'est que lors de l'insertion il saute une ligne à chaque fois! Pourriez vous m'aider ?

For i = 1 To 3
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + i
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtPart.Value
ws.Cells(iRow, 2).Value = Me.txtLoc.Value + i
ws.Cells(iRow, 3).Value = Me.txtDate.Value
ws.Cells(iRow, 4).Value = Me.txtQty.Value
Next i

cs_Le Pivert Messages postés 7893 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 19 mai 2023 136
16 juil. 2019 à 14:31

Bien que la question n'ai rien a voir avec la demande de ce post, voici la correction:

Dim i As Integer
Dim ws As Worksheet
Dim iRow As Integer
Set ws = Worksheets("Feuil1")
For i = 1 To 3
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
'copy the data to the database
ws.Cells(iRow + 1, 1).Value = Me.txtPart.Value
ws.Cells(iRow + 1, 2).Value = Me.txtLoc.Value + i
ws.Cells(iRow + 1, 3).Value = Me.txtDate.Value
ws.Cells(iRow + 1, 4).Value = Me.txtQty.Value
Next i

pensez à déclarer vos variables!

kaskssou Messages postés 37 Date d'inscription lundi 30 juillet 2018 Statut Membre Dernière intervention 18 juillet 2019
17 juil. 2019 à 11:48

Bonjour Le PIVERT :D

Merci beaucoup pour le code, ça fonctionne parfaitement :D :D

Discussions similaires

lire fichier ligne par ligne

Lire une ligne spécifique d'un fichier

paiement sécurisé en ligne

faire un examen en ligne avec QCM

Importer des fichiers txt dans excel avec une macro vba

Dernière cellule non vide d'une colonne

Votre réponse

Discussions similaires