Bonjour,
J'ai créé une macro qui copie le contenu des colonnes d'une feuille Excel vers un fichier texte. Or, certaines de ces colonnes comprennent des caractères chinois. Le résultat obtenu pour ces caratères est '?????', alors que si j'effectue un 'Enregistrer sous' du fichier Excel en choisissant le format .txt Unicode, je récupère bien ces caractères chinois.
La variable qui récupère le contenu d'une cellule est au format string. J'ai essayé tous les types de variables, mais rien n'y fait. Je vous fais parvenir le code ci-dessous.
Pouvez-vous m'indiquer comment récupérer les vrais caractères dans cette variable ?
Je vous remercie pour votre aide.
Isa
_________________________
Sub Generate_docs(Filename As String)
Const k_strSEPAR_LIGNES As String = '|'
Dim lngNbLignesDonnees As Long
Dim strListeLang As String
Dim NbLig, NbCol As Long
Dim CurLig, CurCol As Long
Dim inNumFichier As Integer
Dim Sheet As Worksheet
Sheets(Filename).Select
ActiveSheet.Range('A1').Select
NbCol = Range('A1', Range('A1').End(xlToRight)).Count
NbLig = Range('A1', Range('A1').End(xlDown)).Count
intNumFichier = FreeFile
Open 'c:\\' & Filename For Output As #intNumFichier
Range('A1').Select
For CurLig = 0 To NbLig - 1
strListeLang = ''
For CurCol = 0 To NbCol - 1
strListeLang = strListeLang & Range('A1').Offset(CurLig, CurCol).Text
If CurCol < NbCol - 1 Then
strListeLang = strListeLang & k_strSEPAR_LIGNES
End If
Next CurCol
Print #intNumFichier, strListeLang
Next CurLig
Close #intNumFichier
J'ai créé une macro qui copie le contenu des colonnes d'une feuille Excel vers un fichier texte. Or, certaines de ces colonnes comprennent des caractères chinois. Le résultat obtenu pour ces caratères est '?????', alors que si j'effectue un 'Enregistrer sous' du fichier Excel en choisissant le format .txt Unicode, je récupère bien ces caractères chinois.
La variable qui récupère le contenu d'une cellule est au format string. J'ai essayé tous les types de variables, mais rien n'y fait. Je vous fais parvenir le code ci-dessous.
Pouvez-vous m'indiquer comment récupérer les vrais caractères dans cette variable ?
Je vous remercie pour votre aide.
Isa
_________________________
Sub Generate_docs(Filename As String)
Const k_strSEPAR_LIGNES As String = '|'
Dim lngNbLignesDonnees As Long
Dim strListeLang As String
Dim NbLig, NbCol As Long
Dim CurLig, CurCol As Long
Dim inNumFichier As Integer
Dim Sheet As Worksheet
Sheets(Filename).Select
ActiveSheet.Range('A1').Select
NbCol = Range('A1', Range('A1').End(xlToRight)).Count
NbLig = Range('A1', Range('A1').End(xlDown)).Count
intNumFichier = FreeFile
Open 'c:\\' & Filename For Output As #intNumFichier
Range('A1').Select
For CurLig = 0 To NbLig - 1
strListeLang = ''
For CurCol = 0 To NbCol - 1
strListeLang = strListeLang & Range('A1').Offset(CurLig, CurCol).Text
If CurCol < NbCol - 1 Then
strListeLang = strListeLang & k_strSEPAR_LIGNES
End If
Next CurCol
Print #intNumFichier, strListeLang
Next CurLig
Close #intNumFichier