Discussion :

[Olorin56]

Bonjour,

Je sèche completement sur une macro Excel.
Voilà ce que je voudrais faire : J'ai un fichier Excel et je voudrais générer avec une macro un fichier texte contenant les valeurs d'une colonne. J'ai trouvé des moyens de m'en sortir mais je dois entrer en dur le nom du fichier dans la macro, le nom du fichier est donc toujours le même et je dois le modifier à la main.
J'aimerais réussir à créer un fichier texte dont le nom serait la valeur d'une cellule au contenu variable (je m'occupe de la fonction générant le nom du fichier). Par exemple si la formule de la cellule T1 rend "toto", la macro génére un fichier toto.txt contenant les valeurs de la colonne S (une ligne dans le fichier texte pour chaque cellule non vide dans S).
Cela serait déja génial, mais le top du top , et là je pense que ça se complique , serait de pouvoir générer plusieurs fichiers texte aux noms différents regroupant les valeurs de la colonne S selon par exemple les différentes valeur de la colonne R.
Je ne sais pas si j'arrive à être clair, donc je donne un exemple :

Colonne R...Colonne S...Colonne T

Ligne 1...........10..............A.............Toto
Ligne 2...........10..............B
Ligne 3...........2Z..........Azerty
Ligne 4...........3G..........Bonjour

Ce qui nous donnerai en sortie 3 fichiers textes (3 valeurs différentes dans R) avec des noms fonctions et de la valeur de la cellule T1 et de la valeur dans R :
- Toto10.txt contenant 2 lignes, une avec "A" l'autre avec "B"
- Toto2Z.txt contenant 1 ligne avec "Azerty"
- Toto3G.txt contenant 1 ligne avec "Bonjour"

Si ce n'est pas possible je me "contenterai" en sortie d'un fichier unique Toto.txt avec 4 lignes :
A
B
Azerty
Bonjour

Une dernière demande : Est-il possible de générer le fichier sans extension .txt (je dois ensuite envoyer le fichier contenant le texte dans une application et ce sans extension)?

Merci d'avance à ceux qui essaieront de m'aider, que ce soit avec ou sans succès.

Arnaud.

[jfontaine]

Dans ce code il faut juste que la colonne R soit classée

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
 
Dim i As Long
Dim strNom As String
 
i = 1
 
Do While Range("R" & i).Value <> ""
    If strNom <> Range("R" & i).Value Then
        If strNom <> "" Then Close #1
        strNom = Range("R" & i).Value
        Open "d:\toto" & Range("R" & i).Value & ".txt" For Output As #1
    End If
 
        Print #1, Range("S" & i).Value
 
    i = i + 1
Loop
Close #1

[jfontaine]

Si tu ne vas pas d'extension, tu vides la partie ".txt"

[Olorin56]

Bonjour et merci beaucoup!

J'ai repris le script qui marchait bien et à partir de cette base solide, j'ai même pu rajouter quelques améliorations spécifiques à mon fichier.
Résultat : Une macro qui fait exactement tout ce que je voulais.
Voilà qui va me faire gagner beaucoup de temps!

Jérome, tu as toute mes congratulations pour ta réponse non seulement excelente, mais rapide!

Très bonne année et toi et aux membres du forum!

Arnaud.