Plage de cellule en format txt

**Zarkann** · 16/07/2016, 00h56

Bonsoir à tous

j'aurais besoin d'un code permettant d'enregistrer une plage dans une feuille de calcul en fichier Actionxx.txt
sachant que le xx est un nombre récupéré dans une cellule
La plage est A1;B24
l'emplacement du fichier est le bureau C:\Users\xxxxxx\Desktop

je précise que le code doit soi créer un nouveau fichier "Actionxx.txt", soi modifier un fichier existant

Merci de vos réponses

Cordialement Eric

**Poussemousse** · 17/07/2016, 16h43

Bonjour Eric, l'enregistreur de macro va te faire 95% du travail, il restera éventuellement l'histoire de la création ou de la modification à forcer.

Tu démarres l'enregistreur
Tu sélectionnes et copie ta plage
Tu la colles dans un nouveau classeur
Tu enregistres au format texte en forçant le xx à la main
Tu arrêtes l'enregistrement.

Ensuite tu reprends la macro et tu remplace le xx par la valeur de ta cellule qui te donnera le bon N°.

Quelle partie spécifique te bloque ?

**Zarkann** · 17/07/2016, 19h46

Bonjour et merci de ta réponse

L'application étant destiné à divers utilisateurs, je souhaite qu'elle ne crée pas d'autre fichiers autre que ces fichiers txt le xx étant une incrémentation
je souhaite également que tout se face en un seul clic sur un bouton.

J'ai vu sur internet que cela est possible mais le contexte n'est pas le même, a vrai dire il est plus simple.

Cordialement Eric

**jeanmidudu** · 18/07/2016, 09h21

Bonjour Zarkann,

Tu devrai relire le message de poussemousse car il te donne la solution.

Je vais donner un peu plus de précision, mais son message est très.

1) Démarrer l'enregistreur
2) Sélectionner et copier la plage
3) Coller dans un nouveau classeur
4) Enregistrer au format texte avec le nom "Action1.txt" (la première fois)
5) Arrêter l'enregistrement.
6) Reprendre le code pour créer une boucle afin d'incrémenter automatiquement le nom du fichier où enregistrer

**Zarkann** · 20/07/2016, 23h13

Bonsoir

Je suis donc bien obligé de créer un nouveau classeur

Bon, je vais essayer cette solution.

En tout cas merci à vous deux pour vos réponses.

PS: je mettrais le post en "résolu" quand j'aurais terminé la programmation, que je partagerais pour d'autre...

Cordialement Eric

**Marc-L** · 21/07/2016, 17h05

Bonjour,

oui si tu es un grand débutant …

Sinon sans créer un nouveau classeur juste en lisant l'aide VBA interne des instructions Open … For et Print # et
leurs exemples sans compter ceux dans les discussions de ce forum !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

**Poussemousse** · 22/07/2016, 22h50

Envoyé par Zarkann

Bonsoir

Je suis donc bien obligé de créer un nouveau classeur

Bon, je vais essayer cette solution.

En tout cas merci à vous deux pour vos réponses.

PS: je mettrais le post en "résolu" quand j'aurais terminé la programmation, que je partagerais pour d'autre...

Cordialement Eric

Eric,
tu peux aussi ouvrir une instance Word, coller ton texte et fermer en enregistrant au format txt.

Tu peux t'inspirer de ce qui est indiqué ici : http://www.developpez.net/forums/d34...artir-d-excel/ ou ailleurs, le forum est rempli de bons exemples.

**patricktoulon** · 22/07/2016, 23h14

Bonsoir
cet exemple enregistre au format texte la plage c5 f12 dans un fichier texte sur ton bureau

Code :

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

1
2
3
Sub test()
    range2txt Sheets(1).Range("C5:F12")
End Sub

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
Function range2txt(plage)
    Dim fichier As String, tablo, col As Long, lig As Long, x
    tablo = plage.Value
    fichier = "C:\Users\" & Environ("UserName") & "\Desktop\plage transformée.txt"
    x = FreeFile
    For lig = 1 To (UBound(tablo))
        For col = 1 To plage.Columns.Count
            texte = texte & tablo(lig, col) & ";"
        Next
        texte = texte & vbCrLf
    Next
    Open fichier For Output As #x
    Print #x, texte
    Close #x
End Function

**jijie** · 23/07/2016, 03h51

Salut

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
 
Sub ExportTxtChamp()
Dim repertoire As Variant
Dim champ As Variant
Dim i, col
Dim lig, ligne
 
  repertoire = "C:\Users\xxxxxx\Desktop"
  Open repertoire & "\" & "Action" & Sheets("feuil1").Range("c1") & ".txt" For Output As #1 'en exemple tu récupère un nombre en c1
 
  Set champ = Sheets("feuil1").Range("A1").CurrentRegion ' remplire le tableau nommé champ
  For lig = 1 To 24
    ligne = ""
    For col = 1 To 2
      ligne = ligne & champ.Cells(lig, col) & "#" ' le # est le séparateur!
    Next col
    Print #1, Left(ligne, Len(ligne) - 1)
  Next lig
  Close #1
 
End Sub
 
Sub ExportTxtChampDate()
Dim repertoire As Variant
Dim champ As Variant
Dim i, col
Dim lig, ligne
Dim DeTE
 
DeTE = Now
Dim valeur_initiale As String
        Dim valeur_finale As String
    valeur_initiale = DeTE
 
    valeur_finale = Replace(valeur_initiale, "/", "-")
    valeur_finale = Replace(valeur_finale, ":", "_")
 
  repertoire = "C:\Users\xxxxxx\Desktop"
  Open repertoire & "\" & "Action" & Sheets("feuil1").Range("c1") & valeur_finale & ".txt" For Output As #1  'en exemple tu récupère un nombre en c1
 
  Set champ = Sheets("feuil1").Range("A1").CurrentRegion ' remplire le tableau nommé champ
  For lig = 1 To 24
    ligne = ""
    For col = 1 To 2
      ligne = ligne & champ.Cells(lig, col) & "#" ' le # est le séparateur!
    Next col
    Print #1, Left(ligne, Len(ligne) - 1)
  Next lig
  Close #1
 
End Sub