Plage de cellule en format txt

Version imprimable

15/07/2016, 23h56
Zarkann

Plage de cellule en format txt

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
17/07/2016, 15h43
Poussemousse

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 ?
17/07/2016, 18h46
Zarkann

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
18/07/2016, 08h21
jeanmidudu

Solution déjà donnée

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
20/07/2016, 22h13
Zarkann

Bonsoir

Je suis donc bien obligé de créer un nouveau classeur :roll:
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
21/07/2016, 16h05
Marc-L

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, …
22/07/2016, 21h50
Poussemousse

Citation:

Envoyé par Zarkann

Bonsoir

Je suis donc bien obligé de créer un nouveau classeur :roll:
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.

exemple

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

Code:

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

Code:

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

Salut

Code:

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

ExportTxtChamp : écrase à chaque fois les données

ExportTxtChampDate : avec la date en créer un nouveaux!

Mais bon c'est du travail mâché!

23/07/2016, 10h56
patricktoulon

re

re
bonjour
pour ajouter dans un fichier existant
c'est

Code:

Open fichier For Append As #x
23/07/2016, 13h25
jijie

Oui Patrick tu as raison!!:ccool:

Je n'avais pas vu qu'il voulait le modifier! je croyait qu'il l'écrasait!:scarymov: