Bonjour à tous,

j'ai une macro qui intérroge une base sqlserver, la macro fonctionne sauf que les accents ressort en caractère bizarre ( vãchicule Livrãe pour Véhicule Livrée)


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
 
Dim cnBat As ADODB.Connection
 
Set cnBat = New ADODB.Connection
Dim strConn As String
strConn = "PROVIDER=SQLOLEDB;"
strConn = strConn & "DATA SOURCE=10.11.7.10;............"
cnBat.Open strConn
cnBat.CommandTimeout = 0
 
Set fso = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2
Worksheets("resultat").Range("A4:S10000").ClearContents
 
 
 
                Set f = fso.OpenTextFile(chemin & "\sql\requete.sql", ForReading)
                une_variable = f.ReadAll
 
 
                f.Close
 
           Dim rsBat As ADODB.Recordset
 
            Set rsBat = New ADODB.Recordset
 
            With rsBat
    .ActiveConnection = cnBat
      .Open une_variable
        DerniereLigne = Range("A6000").End(xlUp).Row + 1
 
          MsgBox (DerniereLigne)
            Worksheets("resultat").Range("A" & DerniereLigne).CopyFromRecordset rsBat
          .Close
    End With
 
 
 
cnBat.Close
Set rsBat = Nothing
Set cnBat = Nothing
Lorsque j’exécute la requête depuis sql manager studio j'ai bien les accent.


A quelle niveau de mon code j'ai oublié une indication pour qu'il interprete les accents ?

merci d'avance pour vos conseils

guigui69