Impossible de modifier la police de mon texte récupéré sur une cellule excel quelquun peut il me dire ou est mon probleme ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Set plage2 = Range("D2:D20") For x = 1 To 8 For Each Cell In plage2 If Not IsEmpty(Cell) Then WordDoc.Bookmarks("Signet" & t).Range.Text = Sheets("Feuil2").Cells(7, x) WordDoc.Bookmarks("Signet" & t).Range.Font.Size = 14 Else t = t - 1 End If x = x + 1 t = t + 1 Next Cell Next x
Partager