Bonjour
Je souhaite copier un texte et une valeur en euros venant d'Excel vers un signet Word. J'ai 2 problèmes :
1. Après la copie, la macro me génère un retour chariot après la valeur copiée
2. Je n'arrive pas à garder la police (Police, Taille police, Couleur) que j'ai à l'endroit du signet. La macro semble s'inspirer en partie de ce qui vient d'Excel
Voici mon bout de code :
D'avance merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 ' Collage Montant et Texte signet = "Texte_01" ThisWorkbook.Worksheets("Sommaire").Range("Texte_exemple").Copy With AppWord.Selection .HomeKey Unit:=wdStory 'envoi en début de page .Goto What:=wdGoToBookmark, Name:=signet 'Recherche du signet End With AppWord.Selection.PasteSpecial signet = "Montant_01" ThisWorkbook.Worksheets("Sommaire").Range("Montant_exemple").Copy With AppWord .Selection.HomeKey Unit:=wdStory 'envoi en début de page .Selection.Goto What:=wdGoToBookmark, Name:=signet 'recherche du signet End With AppWord.Selection.PasteSpecial
Cordialement
Partager