Transfert données vers Word + couleur caractères

[pepi]

Bonjour

A partir de mon application Excel je créé des devis sous Word qui reprennent des données de la feuille Excel ouverte sous la forme :

'N° devis1
wordDoc.Tables(1).Columns(1).Cells(1).Range.Text = Range("B17")

par exemple.

Maintenant je voudrais qu'à l'impression ce texte ne soit pas visible.

J'ai pensé qu'il doit y avoir une solution par ex en donnant l'ordre de le donner la couleur blanche.

Pour les montant HT, TVA et TTC j'utilise

'Prix HT
wordDoc.Tables(8).Columns(3).Cells(1).Range.Text = Format(Range("B9"), "# ###.00 €")

Est-ce qu'il y a un code dans ce genre?

Merci de votre lumière

Pepi😀

 

[pierrejean]

Re : Transfert données vers Word + couleur caractères

bonjour pepi

a tester

wordDoc.Tables(8).Columns(3).Cells(1).Font.ColorIndex = 2

 

[pepi]

Re : Transfert données vers Word + couleur caractères

Merci PierreJean
J'essaie🙂

 

[pepi]

Re : Transfert données vers Word + couleur caractères

Non ca ne marche pas.

Il faut que je garde le premier code qui transmet le valeur de la cellule B17 vers le tableau sous Word.

Seul chose est qu'il ne faut pas qu'il soit visible sous impression. Pourquoi?

Parce que je veux que quand j'enrégistre le document Word, que le texte de la cellule B17 soit le titre du document Word.

🙄

Pepi

 

[pepi]

Re : Transfert données vers Word + couleur caractères

Peut être on peut rajouter quelquechose à

wordDoc.Tables(1).Columns(1).Cells(1).Range.Text = Range("B17")

en reprenant les rajouts que vous avez faits?

 

[pierrejean]

Re : Transfert données vers Word + couleur caractères

re

le code que je t'ai donné doit s'ajouter au precedent
il faudrait:

wordDoc.Tables(1).Columns(1).Cells(1).Range.Text = Range("B17")
wordDoc.Tables(1).Columns(1).Cells(1).Font.ColorIndex = 2

quand tu dis que ca ne marche pas cela signifie qu'il y a une erreur , que le texte n'est passé en blanc ,....?????

 

[Staple1600]

Re : Transfert données vers Word + couleur caractères

Bonjour


N'est il pas possible d'utilisler la fonctionnalité [Texte masqué] de Word ?


Public Sub AfficherMasquerTexte()
With ActiveWindow.View
.ShowHiddenText = Not .ShowHiddenText
End With
End Sub

(Je ne peux pas tester Word pas installé sur ce poste)

 

[pepi]

Re : Transfert données vers Word + couleur caractères

Chers tous: merci de votre aide. J'ai essayé la solutionde PierreJean et de tatiak: toutes les 2 marchent. Staple 1600: je garde cette possibilité en cas où.

Bien à vous tous