bonjour lecteurs du matin,
sous Windows, comment obtenir la boite de dialogue
permettant de selectionner l'endroit ( la destination:bureau, dossier...)
ou exporter le fichier texte
de la macro ci-dessous ?'mon_fichierdexport.txt'
Amicalement
merci pour vos conseils
sous Windows, comment obtenir la boite de dialogue
permettant de selectionner l'endroit ( la destination:bureau, dossier...)
ou exporter le fichier texte
de la macro ci-dessous ?'mon_fichierdexport.txt'
Code:
Sub export_txt_6_colonnes()
Open 'mon_fichierdexport.txt' For Output As 1
Dim i As Integer, derniereligne As Integer
Sheets('mafeuille_mononglet').Select
derniereligne = [a65536].End(xlUp).Row
For i = 1 To derniereligne
For j = 1 To 6
MaCellule = Cells(i, j).Value
If IsEmpty(MaCellule) = True Then MaCellule = vbNullChar
Maligne = Maligne & MaCellule & vbTab
Next j
Maligne = Left(Maligne, Len(Maligne) - 1)
Print #1, Maligne
Maligne = ''
Next i
Close
End Sub
Amicalement
merci pour vos conseils