Discussion :

[Nimitz-4145]

Bonjour à tous!

Voilà mon souci :

J'ai un fichier excel de longueur variable avec des zones à sélectionner sur la colonne A de 1 à x lignes...
Chaque zone correspond à un fichier à créer en .txt
Je dois, pour chaque fichier faire un copier coller des valeurs en colonne A, activer le Bloc notes, coller mes valeurs et enregistrer le tout en .txt
Malheureusement, je ne parviens pas (même en enregistrement macro) à "placer" les actions u Bloc notes dans le VBA que je veux créer...

Dans l'exemple joint, je dois créer 5 fichiers .txt portant chacun le nom du gestionnaire

Voilà voili

[parmi]

Bonjour,

je n'ai pas regardé ton fichier, mais tu peux copier tes données dans un onglet, faire une copie de cet onglet et le sauvegarder sous format TXT.
C'est, je pense, la méthose la plus simple.

[Invité]

bonjour,
regarde ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Dim NumF As Long
Dim txt As String
Dim sFile As String
sFile = "c:\RepTest\TxtTest.txt"
'lire de A1 à AXX
For i = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row
txt = txt & Range("A" & i).Value & vbCrLf
Next
'Ecrire Fichier
NumF = FreeFile
Open sFile For Output As #NumF
   Write #NumF, txt
 Close NumF
End Sub

[Nimitz-4145]

Je te remercie et te tiens au courant dès que possible (overbooké le pauvre gars)