Discussion :

[SBranchu]

Bonjour à toutes et à tous,
à partir d'Excel je pilote word, jusque là tout baigne...
Maintenant je vais avoir des cellules ou zones de textes sur Excel avec des caractères formatés (Gras, Italique, Couleur, taille, Différentes...).
Comment importer ces textes formatés ?
En farfouillant et en faisant appel à la communauté "Excel", j'ai réussi à sortir du Code XML, comment l'intégrer dans word ?
Par exemple :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

<FONT color=#000000>Tata m</FONT><FONT color=#00b050>an</FONT><FONT color=#000000>ge des </FONT><FONT color=#ff0000>Carottes</FONT><FONT color=#000000> </FONT><B><FONT color=#00b050 size=16>Vertes</FONT></B>

Devient : Tata mange des Carottes Vertes
Merci de votre aide,
SB

[Invité]

Bonjour,

Comment générez-vous cette ligne ?

[SBranchu]

Bonjour,

Comment générez-vous cette ligne ?

Sur excel : https://www.developpez.net/forums/d2...t-texte-excel/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function test(c As Range)
    codexml = Replace(Replace(c.Value(xlRangeValueXMLSpreadsheet), "html:", ""), "ss:", "")
    With CreateObject("htmlfile")
        .body.innerhtml = Replace(Replace(codexml, "<Data", "<pre  id =xx"), "Data>", "pre>")
        'MsgBox .getelementbyid("xx").innerhtml
        test = .getelementbyid("xx").innerhtml
    End With
End Function

[SBranchu]

Bonjour,

Comment générez-vous cette ligne ?

Mais moi c'est justement l'inverse sur word que je veux faire...

[Invité]

Merci pour votre retour.

Si je copie la cellule B2 et que je la colle dans Word, je restitue correctement la mise en forme.

Quel code utilisez-vous pour piloter Word et déverser vos données ?

[SBranchu]

Merci pour votre retour.

Si je copie la cellule B2 et que je la colle dans Word, je restitue correctement la mise en forme.

Quel code utilisez-vous pour piloter Word et déverser vos données ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WordApp.ActiveDocument.SelectContentControlsByTitle("Ctrl")(1).Range.Text = Zaza2

Suis pas fan du copier/coller mais si il n'y a que cette possibilité...

[Invité]

Une solution pas forcément satisfaisante mais qui marche : Vous récupérez dans vos contentcontrols un tableau d'une cellule.
En l'état actuel, cela marchera si votre document est issu d'un modèle. En revanche, si vous souhaitez le modifier, il faudra creuser le cas où le contenu des contentcontrols est un tableau.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Sub CopierCollerDansWord()
 
Dim AireSource As Range
Dim I As Long, J As Long, DerniereLigne As Long
Dim WordApp As Object, WordDoc As Object
Dim CheminWord As String, NomDoc As String
Dim HeureDebut, HeureFin, TempsTotal
 
    On Error GoTo Fin
 
    Application.ScreenUpdating = False
    HeureDebut = Timer
    CheminWord = ActiveWorkbook.Path & "\Cellule en Html.docm"    ' A adapter
 
    With Sheets("Feuil1")
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         Set AireSource = .Range(.Cells(2, 1), .Cells(DerniereLigne, 1))
    End With
 
    Set WordApp = CreateObject("word.Application")
 
    With WordApp
         .Visible = True
         Set WordDoc = .Documents.Open(CheminWord)
 
         For J = 1 To AireSource.Count
             AireSource(J).Offset(0, 1).Copy
             For I = 1 To WordDoc.contentcontrols.Count
                 If AireSource(J) = WordDoc.contentcontrols(I).Title Then
                    WordDoc.contentcontrols(I).Range.Paste
                    Exit For
                 End If
             Next I
          Next J
         ' WordDoc.Close savechanges:=True
 
    End With
 
    Application.ScreenUpdating = True
 
    HeureFin = Timer
    TempsTotal = HeureFin - HeureDebut
 
    Debug.Print "Temps total du traitement : " & Round(TempsTotal, 0) & " seconde(s)"
 
   GoTo Fin
 
Fin:
 
   Application.ScreenUpdating = True
 
  ' WordApp.Quit
   Set WordApp = Nothing: Set WordDoc = Nothing
   Set AireSource = Nothing
 
End Sub

Les données sont organisées de cette manière dans l'onglet Feuil1

Pièce jointe 595320