Bonjour,
J'ai un texte, dans Word :
'strNomProcedure = "btnEnregistrer_Click"
Précédé de l'apostrophe.
Et mon 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
 Sub Apostrophe()
 
Dim strLigne1 As String
Dim strLigne2 As String
IntNoLigne = 2
 
    'Sélection ligne
    strLigne1 = (ActiveDocument.Paragraphs(IntNoLigne).Range.Text)
    strLigne3 = Replace(strLigne1, " ", vbNullString)
    Debug.Print "Ligne modifiée sans espace : " & """" & strLigne3
    If Left(strLigne3, 1) = "'" Then
    '                        ^
        MsgBox Left(strLigne2, 1)
    Else
        MsgBox "Pas d'apostrophe !"
    End If
End Sub
Si je remplace l'apostrophe par n'importe quelle autre lettre ou chiffre, le résultat est donné.
Comment faire admettre cette apostrophe ?