[VBA-E]Récup séléction excel dans un fichier txt en separant par des points virgules

**Vinceee38** · 02/05/2007, 16h57

Coucou tout le monde , je vous explique mon problème,

je dispose d'un logiciel qui me permet d'extraire les adresses mail de certains clients dans un fichier excel , seulement quand je veux envoyer un mail à toute une liste de client je suis obligé de faire du copier coller répétitif ce qui devient trés barbant à la longue donc je me penche sur les macros,

je cherche une macro me permettant d'exporter ma séléction dans un fichier texte en separant les cellules par des ';' mais en ne tenant pas compte des cellules vide

j'ai fait des recherches j'ai trouvé ce code :

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
Sub tmp()
'   Declaration variables
Dim i, j, nl, nc As Integer
Dim FileName, t As String
 
'   Demande fichier de sauvegarde
FileName = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
 
'   Ouverture fichier
Open FileName For Output As #1
 
'       On boucle sur la selection
For i = 1 To nl
t = ""
For j = 1 To nc
'               ajout de la tabulation comme separateur
If t <> "" Then t = t & Chr(9)
t = t & ActiveWindow.RangeSelection.Next(i, j - 1)
Next j
'           Ecriture de la ligne dans le fichier si non vide
If t <> "" Then Print #1, t
Next i
 
'   Fermeture fichier
Close #1
End Sub

qui permet de faire ce que je fais mais en séparant par une tabulation mais cela ne fonctionne pas , en executant pas à pas je me rend compte que je passe directement de

Code :

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