Impossibilité d'écrire le caractère "à" alors qu'il est nécessaire dans mon code

Version imprimable

1 pièce(s) jointe(s)

Bonjour
J'ai un problème sur le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Populateddfood()
 
    Dim xDirection As FormField
    Dim xState As FormField
    On Error Resume Next
    Set xDirection = ActiveDocument.FormFields("ld1")
    Set xState = ActiveDocument.FormFields("ld2")
    If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
    With xState.DropDown.ListEntries
        .Clear
        Select Case xDirection.Result
            Case "Projets d'échanges de groupes"
                .Add "Rencontre au domicile du partenaire"
                .Add "Rencontre en tiers lieu"
            Case "Projets et mesures destinés à développer la qualité des rencontres et des échanges pour les professionnels de jeunesse"
                .Add "Réunion de coopération institutionnelle"
                .Add "Réunion de préparation et d'évaluation"
                .Add "Projet d'échange entre professionnels de la jeunesse"
            Case "Autres projets"
                .Add "p.e. projet trinational, rencontre en tiers lieu"
            End Select
    End With
End Sub

Lorsque je saisi le code sur VBA, le "à" de la ligne 15 se transforme en Pièce jointe 634607 et du coup il ne reconnait pas ce Case.

Quelqu'un a-t-il une solution ?
Merci

Bonjour yolbri, le forum,

Je n'ai pas testé, mais tu peux essayer de modifier ton Select Case ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim texte As String
    texte = xDirection.Result
    Select Case True
        Case texte = "Projets d'échanges de groupes"
            .Add "Rencontre au domicile du partenaire"
            .Add "Rencontre en tiers lieu"
        Case texte Like "Projets et mesures *"
            .Add "Réunion de coopération institutionnelle"
            .Add "Réunion de préparation et d'évaluation"
            .Add "Projet d'échange entre professionnels de la jeunesse"
        Case texte = "Autres projets"
            .Add "p.e. projet trinational, rencontre en tiers lieu"
    End Select

Comme ça, tu passes outre le problème du à.

A+

24/02/2023, 10h41
yolbri

Bonjour
C'est ce que j'avais fait au départ quand j'ai vu le problème. Malheureusement, le commanditaire veut le texte complet. :(

D'où ce post !!
24/02/2023, 15h21
mromain

Bonjour,

Peux-tu s'il-te-plaît fournir un fichier exemple avec le problème rencontré ?

Bonne journée