XL 2013 Enregistrement fichier txt

[N12ico]

Bonjour j'utilise actuelement vba sous excel.

Je voudrait pouvoir enregistrer les données d'une cellule excel dans un fichier txt.

Voici le cellule dans laquelle j'insére mes différentes variables:

Range("B10") = debut & vbLf & Range("F1") & vbLf & plus & vbLf & moin & vbLf & Range("H1") & vbLf & Range("G1") & vbLf & fin

Je voudrait enregistrer les données de Range("B10") dans un fichier txt

 

[CPk]

Re : Enregistrement fichier txt

Bonjour essayez

Sub Macro1()
    chemin$ = "C:\......\"
    Open chemin & "Fichier.txt" For Output As #1
    Print #1, ActiveSheet.Range("B10")
Close
End Sub

Où il faudra renseigner la variable chemin en indiquant à quelle adresse devra être stocké le fichier.

 

[N12ico]

Re : Enregistrement fichier txt

J'ai essayez votre méthode en fessent cela :

Sub test1()


Dim i As Integer
Dim position As Integer
Dim chemin As String
position = Range("B6")
debut = "//"
plus = ""
moin = ""
fin = "//"

For i = 1 To position
plus = plus & vbLf & Range("A1") & vbLf & Range("B1") & vbLf & Range("C1") & vbLf & Range("D1") & vbLf & Range("E1")
Next i

For i = 1 To position
moin = moin & vbLf & Range("A1") & vbLf & Range("B2") & vbLf & Range("C1") & vbLf & Range("D1") & vbLf & Range("E1")
Next i

Range("B10") = debut & vbLf & Range("F1") & vbLf & plus & vbLf & moin & vbLf & Range("H1") & vbLf & Range("G1") & vbLf & fin

chemin = "C:\Users\labo\Desktop\Fichier texte"
Open chemin & "TRINAMIC.txt" For Output As #1
Print #1, ActiveSheet.Range("B10")


End Sub

Cependant visual basic me donne une erreur comme quoi le fichier est déjà ouvert sauf qu'il n'existe pas encore je ne comprend pas cela

 

[Lone-wolf]

Re : Enregistrement fichier txt

Bonjour N12ico, CPk

Si Fichier texte dans le chemin est un dossier, il manque \.

Dans le dossier il faut ajouter, par clic-droit, un fichier vierge du nom de TRINAMIC.txt. Ensuite seulement tu lance la macro.

 

[N12ico]

Re : Enregistrement fichier txt

Non dsl cela à marcher j'ai retrouver mon fichier

Cependant il reste deux problèmes:

lorsque je souhaite enregistrer à nouveau le fichier si mes données doivent être modifier dans la cellule que j'enregistre il ne me permet pas de la faire

Et les données sont inscrite sur le fichier sur une seul ligne alors que je souhaite qu'elle soit enregistrer comme sur ma cellule où elle sont toutes sur une ligne différentes de texte

 

[N12ico]

Re : Enregistrement fichier txt

merci Lone pour le "\"

 

[Lone-wolf]

Re : Enregistrement fichier txt

Re

Voici une exemple à adapter à ton cas, mais il faut mettre déjà le fichier .txt.

Sub Copy_Txt()
Dim fs As Object, file As Object
Dim i As Integer, lig As Long
Dim line1, line2, line3, line4

Set fs = CreateObject("Scripting.FileSystemObject")
Set file = fs.CreateTextFile("C:\Main.txt", True)
With Feuil1
lig = .Range("a65536").End(xlUp).Row
For i = 2 To lig
line1 = .Cells(1, 1) & " " & i - 1 & ": " & .Cells(i, 1)
line2 = .Cells(1, 2) & ": " & .Cells(i, 2)
line3 = .Cells(1, 3) & ": " & .Cells(i, 3)
line4 = .Cells(1, 4) & ": " & .Cells(i, 4) & Chr(13) + Chr(10)
file.WriteLine line1
file.WriteLine line2
file.WriteLine line3
file.WriteLine line4
Next
i = i + 1
End With
file.Close
End Sub

 

[N12ico]

Re : Enregistrement fichier txt

Lone-wolf Merci mais t'on exemple ne ma pas aider

J'ai n'est plus de problème avec le retour à la ligne cependant si je souhaite enregistrer une nouvelle fois les données de ma cellule je suis obligé de supprimer le fichier pour qu'il puisse crée le fichier avec les nouvelles données

Aussi je me suis rendu compte que dans le fichier toutes les données non pas été inscrite dans le fichier texte il n'a pas enregistrer les dérniére données je croit que cela est du au fait que les données soit toutes sur une lige de texte et il n'y a pas assez d'espace

 

[Lone-wolf]

Re : Enregistrement fichier txt

Re

Avec la macro que j'ai mis, les données se mettent à jour sans besoin de supprimer quoi que ce soit.

Je te met en pj un classeur exemple. Mets dans C:\ un fichier au nom Main.txt - clique sur le bouton. Une fois que tu à regardé et fermé le fichier, modifie les données et clique à nouveau sur le bouton.