Discussion :

[ftrap]

Bonjour,

J'ai un fichier texte avec des valeurs sous un certain format. Je cherche à copier des données de mon classeur excel vers le fichier texte. Mais lorsque je colle les valeurs, elles ne sont pas alignées aux autres.

J'ai mis en pièce jointe mon fichier texte.

Merci pour votre aide,

[Invité]

bonjour,
le problème est dans le code pas dans le fichier texte, qui reflète exacte de ce que tu lui as demandé.

un peut de VBA me ferait le plus grand bien!

[ftrap]

Bonjour,

Je ne cherche pas forcément à faire du code. J'aimerais uniquement copier-coller des valeurs dans un fichier texte, en respectant la syntaxe des premières valeurs :

1.29000000000000e+003 2
2.87710000000000e+000 5.76510000000000e-001
2.87630000000000e+000 5.76530000000000e-001
1.29100000000000e+003 3
2.87540000000000e+000 5.76510000000000e-001
2.87440000000000e+000 5.76500000000000e-001
2.87350000000000e+000 5.76490000000000e-001


Aurait t-il une commande sur excel pour faire cela ? Sinon comment faire sur vba?


Merci pour votre aide

[Invité]

Test ça

[ftrap]

Merci pour votre réponse. La macro est actif sur la colonne A. J'aimerais qu'elle écrive dans un fichier texte les valeurs des colonnes A et B.

Merci pour votre aide

[Invité]

faut-il un caractère de séparation, exemple:[;]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim Fichier As String
Dim MyRange As Range
Dim L As Long
Dim ExpWin As New clsWindowsExporer
Fichier = ActiveWorkbook.Path & "\Donnees" & Format(Now, "_yyyy-mm-dd-hh-mm-ss") & ".txt"
Set MyRange = ActiveSheet.UsedRange
For L = 1 To MyRange.Rows.Count
'     ExpWin.FichierLog Fichier, MyRange(L, 1) & vbCrLf
'     ExpWin.FichierLog Fichier, MyRange(L, 1) & ";" & MyRange(L, 2) & vbCrLf
     ExpWin.FichierLog Fichier, MyRange(L, 1) & MyRange(L, 2) & vbCrLf
Next
Shell Chr(34) & "notepad.EXE" & Chr(34) & Space(1) & Chr(34) & Fichier & Chr(34), 3
End Sub