Exporter données cellule excel vers fichier txt

N12ico

XLDnaute Nouveau
Bonjour

J'ai un problème avec l'exportation des données d'une cellule la B10 dans mon cas, de ma feuille excel vers un fichier txt avec le code que j'ai utiliser l'exportation s'effectue cependant elle n'est pas complète, le fichier ne contient pas les données final de ma cellule la dernière données et la moitié d'un mot comme si il s'arrêter d'exporter les données.

Voici mon code pour l'exportation:

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")

Je veux envoyer les données de B10 vers le fichier txt que j’appelle TRINAMIC

Merci de vôtre aide
 

Lone-wolf

XLDnaute Barbatruc
Re : Exporter données cellule excel vers fichier txt

Bonjour

Est-ce une erreur?? :confused: Il me semble que l'on t'as déjà répondu ICI, non??
 

N12ico

XLDnaute Nouveau
Re : Exporter données cellule excel vers fichier txt

Re

Oui mais mon probléme n'est pas résolu, j'ai essayé d'utiliser ton code mais lorsque j'execute la commande suivante :

Sub Copy_txt()

Dim fs As Object, file As Object
Dim line1 As String

Set fs = CreateObject("Scripting.FileSystemObject")
Set file = fs.CreateTextFile("C:\Users\labo\Desktop\Fichier texte", True)

With Feuil3

line1 = Range("B10")
file.WriteLine line1

End With

file.Close

End Sub

Le debugger me dit que l'adresse de "set file" est introuvable alors que avec mon code précédent il me générer un txt file mais pas complet il manque la fin des données
 

N12ico

XLDnaute Nouveau
Re : Exporter données cellule excel vers fichier txt

Re

J'ai l'impression que cela fonctionne mtn je ne sais pas pk mais le fichier texte est créer dans mon dossier avec toutes les données et si je les modifie elle sont aussi modifié dans le fichier

Merci pour les infos de ce matin
 

Lone-wolf

XLDnaute Barbatruc
Re : Exporter données cellule excel vers fichier txt

Re,

bein... il n'y as pas de raison à ouvrir un autre fil pour ça. ;)
 

N12ico

XLDnaute Nouveau
Re : Exporter données cellule excel vers fichier txt

Non en faite cela ne marche toujours pas mais je ne comprend pas pk cela à marcher pendant un instant je suis un peu perdu je suis débutant si tu peut faire quelque chose pour moi dit le moi svp
 

Efgé

XLDnaute Barbatruc
Re : Exporter données cellule excel vers fichier txt

Bonjour N12ico, Lone-wolf
Et comme ça ?
Si Excel te dit que le fichier est déja ouvert, ferme tout, même excel et relance le code.

VB:
Sub test()
Dim Texte$, i As Integer, position As Integer
position = Range("B6")
debut = "//"
fin = "//"
 
For i = 1 To position
 plus = plus & vbLf _
 & Range("A1") & vbLf _
 & Range("B1") & vbLf _
 & Range("C1") & vbLf _
 & Range("D1") & vbLf _
 & Range("E1")

 moin = moin & vbLf _
 & Range("A1") & vbLf _
 & Range("B2") & vbLf _
 & Range("C1") & vbLf _
 & Range("D1") & vbLf _
 & Range("E1")
Next i

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

'Si nécessaire:
'Range("B10") .value = Texte

Num = FreeFile
'pour ajouter au fur et a mesure
'Open "C:\Users\labo\Desktop\Fichier texte\TRINAMIC.txt" For Append As #Num

'pour remplacer les données à chaque fois
Open "C:\Users\labo\Desktop\Fichier texte\TRINAMIC.txt" For Output As #Num

Print #Num, Texte
Close Num

End Sub
Cordialement
 
Dernière édition:

Haut Bas