msg #NOTHING# dans un export txt

[olivierd]

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

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]

 

[Bernard_XLD]

Bonjour Olivierd, le forum

cela fonctionne parfaitement sous excel XP.
toujours sous mac? 😉

A+

 

[olivierd]

😱
oui, j'avoue
sous mac Os X Avec les deux derniers patch correctifs SP XLS/VLA
A+

 

[olivierd]

bonjour Forum et Yeahou
Il y a t il une alternative pour tester une autre bout de code VBA afin de contourner ce problème ?
cordialement

 

[olivierd]

et en plaçant quelque part un

 if isempty(activecell)=true then activecell.value=' '

...mais où ?

 

[dg62]

Bonsoir

a essayer !

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)


for J = 1 to 6
 if cells(i,J).value='#nothing#' then
 cells(i,j).value=''
 endif
next j

Next
Close
End Sub

Message édité par: dg62, à: 25/03/2005 17:30

 

[olivierd]

hello,
Hélas sans succès,
le code laisse les #nothing#

J'ai essayé:
if cells(i,J).value='#nothing#' then
cells(i,j).value=''
et
if cells(i,J).value='
' then
cells(i,j).value=''

Euh, une autre idée ?

A+

Message édité par: olivierd, à: 25/03/2005 17:37

Message édité par: olivierd, à: 25/03/2005 17:49

 

[olivierd]

bonjour,
Voici le code ( Mac et PC ) en entier pour ceux interessés:

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
A bientôt