Discussion :

[Soticca]

Bonjour à tous,

J'ai une application Excel qui génère un document Word à partir d'un fichier Word dans lequel j'ai inséré des balise du type <%=xxxx%> afin d'utiliser la fonction "rechercher / remplacer".

Cela fonctionne très bien pour les variables de moins de 255 caractères. Pour les variables contenant plus de texte, j'essaye d'utiliser le presse papier mais le fonctionnement est totalement aléatoire. Le texte est bien ajouté mais 1 fois sur 10 on va dire

Avez-vous une idée du pourquoi du comment ? Merci d'avance.

Voici le du code utilisé :

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
Sub Remplace(doc As Word.Document, chaine As String, ByVal value As String)
    Dim i As Integer
    Dim objData As New DataObject
 
    doc.Characters.First.Select
 
    If Len(value) > 254 Then
        objData.SetText value
        objData.PutInClipboard
 
        With doc.ActiveWindow.Selection.Find
            .Text = chaine
            .Replacement.Text = "^c"
            .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
        End With
 
        objData.SetText ""
        objData.PutInClipboard
    Else
        With doc.ActiveWindow.Selection.Find
            .Text = chaine
            .Replacement.Text = value
            .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
        End With
    End If
End Sub

[Invité]

Bonjour,

Dans le code ci-dessous, je copie colle le contenu d'une cellule de plus de 680 caractères sur un signet de position. La cellule (le tableau) est ensuite transformée en texte.

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
 
Sub CopierPlusDe255Caracteres()
 
Dim AppWord As Object, DocWord As Object
Dim MaCelluleACopier As Range
 
    Set MaCelluleACopier = Sheets("Paramètres").Range("CelluleACopier")
 
    Set AppWord = CreateObject("word.application")
    With AppWord
         .Visible = True
         Set DocWord = .Documents.Open(ThisWorkbook.Path & "\RAPPORT_REV0.docm")
    End With
 
    With DocWord
         MaCelluleACopier.Copy
         .Bookmarks("fixe").Range.Paste
         Application.CutCopyMode = False
         .Tables(1).ConvertToText Separator:=wdSeparateByParagraphs, NestedTables:=True
         .Close SaveChanges:=True
    End With
 
    AppWord.Quit
 
    Set DocWord = Nothing
    Set AppWord = Nothing
    Set MaCelluleACopier = Nothing
 
End Sub

[Soticca]

Au départ j'utilisai les signets mais le problème c'est qu'il ne peut pas y avoir x signets avec le même nom et j'ais besoin de pouvoir insérer plusieurs fois la même valeur à différents endroits du document Word.

Maintenant, si je ne trouve pas une solution fonctionnelle pour les variables de plus de 255 caractères, je ferai un mix "remplacer / signet".

[Invité]

Je ne comprends pas le problème car rien n'empêche d'injecter la même valeur sous N noms de signets différents. Pour cela, utilisez une table d'association.

[Soticca]

Je ne comprends pas le problème car rien n'empêche d'injecter la même valeur sous N noms de signets différents. Pour cela, utilisez une table d'association.

Juste une question de pratique car cela monte à plus de 150 signets (15 * 10 valeur distinctes) et la table d'association n'est pas forcément idéale.

Je vais garder les signets pour les valeurs supérieures à 255 caractères car là, ils sont unique à chaque fois (même si j'en ai une bonne cinquantaine).

[Invité]

Vous pourriez également utiliser avantageusement des renvois pour chaque signet en double.