bonjour à tous, y compris les saints ( du vendredi )
je sais, on a du vous poser la question mille fois, mais j'ai beau chercher je ne trouve pas la réponse...
j'utilise cette macro pour exporter 6 colonnes au format texte avec tabulation
mais si l'une des cellule est vide, j'ai un message texte #nothing# à la place :
421000 #NOTHING# 247,87 -500,87 #NOTHING#
Pourriez-vous m'indiquer comment éviter ce message sévépé et le remplacer par un blanc ?
Très cordialement
je sais, on a du vous poser la question mille fois, mais j'ai beau chercher je ne trouve pas la réponse...
j'utilise cette macro pour exporter 6 colonnes au format texte avec tabulation
mais si l'une des cellule est vide, j'ai un message texte #nothing# à la place :
421000 #NOTHING# 247,87 -500,87 #NOTHING#
Pourriez-vous m'indiquer comment éviter ce message sévépé et le remplacer par un blanc ?
Très cordialement
Code:
Sub macro()
Open 'mon_fichier.txt' For Output As 1
Dim i As Integer, derniereligne As Integer
Sheets('COMPTA').Select
derniereligne = [a65536].End(xlUp).Row
For i = 1 To derniereligne
Print #1, Cells(i, 1).Value, Cells(i, 2).Value, Cells(i, 3).Value, Cells(i, 4), Cells(i, 5).Value, Cells(i, 6).Value, Chr(32)
Next
Close
End Sub
[file name=test_20050325104422.zip size=31756]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050325104422.zip[/file]