XL 2019 Export en Txt

[bauerjackob]

Bonjour

Je m'adresse tout particulièrement a vous mes amis pour me donner une solution a mon problème

with Sheets("Feuill1")
WordDoc.Tables(nb + 4).cell(1, 1).Range.Text = .Range("A1").Value & " " & Euro & _
IIf(.Range("B1").Value > 0, .Range("B1").Value, "")
End With
End Sub

comment le changer en texte pas en valeur et surtout euro

 

[dysorthographie]

Bonjour,
IIf(.Range("B1").Value > 0, .Range("B1").Text, "")

 

[bauerjackob]

Bonjour,
IIf(.Range("B1").Value > 0, .Range("B

Bonjour,
IIf(.Range("B1").Value > 0, .Range("B1").Texte, "")

merci
1").Texte, ""

 

[dysorthographie]

Désolé c'est Range("B1").Text

 

[bauerjackob]

Bonjour,
IIf(.Range("B1").Value > 0, .Range("B1").Text, "")

Merci c'et regle