Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transfert données vers Word + couleur caractères

  • Initiateur de la discussion Initiateur de la discussion pepi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

pepi

Guest
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😀
 
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
 
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?
 
Re : Transfert données vers Word + couleur caractères

re

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

Code:
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 ,....?????
 
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)
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
Réponses
8
Affichages
2 K
F
D
Réponses
3
Affichages
3 K
denisbouchard
D
Réponses
7
Affichages
5 K
Arnaud91
A
G
Réponses
4
Affichages
2 K
Compte Supprimé 979
C
E
Réponses
3
Affichages
2 K
Emmanuel_3005
E
A
Réponses
1
Affichages
7 K
Antony
A
A
Réponses
2
Affichages
2 K
AreYouBush
A
Réponses
5
Affichages
20 K
I
Réponses
2
Affichages
2 K
I
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…