Discussion :

[Fdc_53]

Bonjour,

Je n'arrive pas a résoudre mon problème de nombre de caractères dans la déclaration de variable "variant"

erreur d'execution : chaine de caractère trop longue au niveau de

Code :

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

       .Replacement.Text = texte_de_remplacement

voici le code

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
Sub Word_Remplacer_texte(Texte_à_remplacer As Variant, texte_de_remplacement As Variant, Tout As Boolean, Optional taille As Byte)
 
Dim old_taille As Byte
'chargement des paramètre
old_taille = Word_Application.Selection.Font.Size
 
With Word_Application
    .Selection.Find.ClearFormatting
    .Selection.Find.Replacement.ClearFormatting
    With .Selection.Find
        .Text = Texte_à_remplacer
        .Replacement.Text = texte_de_remplacement
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    .Selection.Find.Execute
    With .Selection
        If taille > 0 Then Word_Application.Selection.Font.Size = taille
        If .Find.Forward = True Then
            .Collapse Direction:=wdCollapseStart
        Else
            .Collapse Direction:=wdCollapseEnd
        End If
        If Tout Then
            .Find.Execute Replace:=wdReplaceAll
        Else
            .Find.Execute Replace:=wdReplaceOne
        End If
    End With
End With
End Sub

[Menhir]

Cette macro ne manipule que des objets Word.
Qu'est-ce que cette demande vient faire dans la rubrique VBA Excel ?

[Fdc_53]

Bonjour,

Ma macro est bien dans excel et transpose des données de excel à word.

l’exécution se bloque sur ma macro Excel, je n'ai pas de macro sur mon fichier Word

[Menhir]

Je m'en doute. Cependant les objets manipulés sont des objets Word.
Et la syntaxe utilisée est celle de Word (ce qui est logique).
Cette question aurait donc plutôt sa place dans la rubrique VBA Word.

[Fdc_53]

Bonsoir,

comment déplacer le discussion sur vba Word? je n'ai pas trouvé.

Merci

[clementmarcotte]

Bonjour,

1) Ton texte est de quelle longueur ?
2) Si tu essaies avec un texte de 10 ou 20 caractères, cela donne quoi ?

Parce que j'ail l'impression que OLE limite la longueur des chaînes de caractères à quelque chose comme 256 caractères, il me semble.

[Arkham46]

Bonsoir,

comment déplacer le discussion sur vba Word? je n'ai pas trouvé.

Merci

Bonsoir,

Vous ne pouvez pas déplacer vous-même la discussion.
Étant donné que le code est exécuté dans Excel et qu'on ne sait pas à quoi est lié le problème, la discussion peut rester ici pour l'instant.

[Fdc_53]

effectivement cela bloque a 255 caractères

[clementmarcotte]

Bonjour,

Donc, soit que tu limites ton texte de remplacement. Soit que tu les passes à Word autrement que par OLE. Soit que tu exécutes ta macro directement dans Word.

Ceci étant dit, cela me semble périlleux de remplacer une énorme quantité de texte par une autre énorme quantité de texte sans surveillance. Personne n'est à l'abri d'un plantage.

Ceci étant dit; si je fais confiance à mon intuition, tu pourrais peut-être jeter un œil sur cette page.