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

[ftrap]

Le code bloque au niveau de ExpWin As New clsWindowsExporer

Message d'erreur : Type défini par l'utilisateur non défini.

[Invité]

clsWindowsExporer est un classe que j'ai développé.
tu dois l’intégrer à ton projet.
dans VB l'explorateur de projet fonctionne comme Windows explorer:
ouvre le fichier Excel que je t'es envoyé, ouvre ton fichier Excel et procède par déplacé collé, maintiens le click gauche de la souris sur Modules de Classe->clsWindowsExporer et déplace le vers ton projet vb

[ftrap]

Je suis désolé mais je ne comprends pas. On peut insérer un module mais pas le déplacer.

[Invité]

tu ouvre mon fichier Excel et le tiens;
tu vas dans VBA [ALT] + [F11];
dans VBA explorateur de projet tu fais un déplacé collé de mon projet vers le tien.

[ftrap]

Merci pour votre réponse.

Les valeurs dans le fichier texte sont collées les unes aux autres sur une même ligne. Comment faire pour mettre un espace entre deux valeurs ? Merci.

[Invité]

Code :

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

ExpWin.FichierLog Fichier, MyRange(L, 1) & " " & MyRange(L, 2) & vbCrLf

vbcrlf= retour chariot.
& " " &
si csv separateur par ;

Code :

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

ExpWin.FichierLog Fichier, MyRange(L, 1) & ";" & MyRange(L, 2) & vbCrLf

le & caractère de concaténation.
val1 & Val2 & Val3 & ...