Sam Vimaire a couché sur son écran : Merci pour le lien Mon pb etant surtout de connaitre les objets relatifs à excel ... Je vais chercher..
Sam Vimaire
Ok .. Le plus dur est de connaitre la syntaxe
J'ai fait ceci (Ce n'est pas la plus belle façon, mais c'est un coup d'essai)
------------------------------------------------------------------------ Dim FileName As String Set fso = CreateObject("Scripting.FileSystemObject") 'Russian Columns("AF:AF").Select FileName = ThisWorkbook.Path & "" & "Russian_unicode.lng" If fso.FileExists(FileName) Then fso.deleteFile (FileName) Call SaveUnicodeSelection(FileName)
------------------------------------------------------------------------ Private Sub SaveUnicodeSelection(FileName As String) Selection.Copy
ActiveWorkbook.Close False End Sub ------------------------------------------------------------------------
Reste à Convertir le fichier unicode en fichier Ascii en ayant au préalable chargé le bon code de page. Une idée ?
Ok .. Le plus dur est de connaitre la syntaxe
J'ai fait ceci (Ce n'est pas la plus belle façon, mais c'est un coup
d'essai)
------------------------------------------------------------------------
Dim FileName As String
Set fso = CreateObject("Scripting.FileSystemObject")
'Russian
Columns("AF:AF").Select
FileName = ThisWorkbook.Path & "" & "Russian_unicode.lng"
If fso.FileExists(FileName) Then fso.deleteFile (FileName)
Call SaveUnicodeSelection(FileName)
------------------------------------------------------------------------
Private Sub SaveUnicodeSelection(FileName As String)
Selection.Copy
J'ai fait ceci (Ce n'est pas la plus belle façon, mais c'est un coup d'essai)
------------------------------------------------------------------------ Dim FileName As String Set fso = CreateObject("Scripting.FileSystemObject") 'Russian Columns("AF:AF").Select FileName = ThisWorkbook.Path & "" & "Russian_unicode.lng" If fso.FileExists(FileName) Then fso.deleteFile (FileName) Call SaveUnicodeSelection(FileName)
------------------------------------------------------------------------ Private Sub SaveUnicodeSelection(FileName As String) Selection.Copy
ActiveWorkbook.Close False End Sub ------------------------------------------------------------------------
Reste à Convertir le fichier unicode en fichier Ascii en ayant au préalable chargé le bon code de page. Une idée ?
Sam Vimaire
Sam Vimaire avait prétendu :
Difficulté n°2: Le contenu de la colonne contient du texte au format Unicode Merci pour tout exemple de code qui me permette de mettre le pied à l'étrier.
Je me réponds : Les API MultiByteToWideChar et WideCharToMultiByte font le boulot '-----------------------------------------------------------------------
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal l
Et je rebondis sur une autre question dans le même thread. Lorsque je fait fichier, enregistrer sous, format Unicode (.txt) Le contenu de ma colonne est correctement enregistré. (cas 1)
Lorsque je fais FileName="Monfichier.txt" ActiveWorkbook.SaveAs FileName:= _ FileName, FileFormat:=xlUnicodeText, _ Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse
(cas 2)
Je me retrouve avec des guillemets encadrant certaines chaines de caractères (celles avec de la ponctuation notamment) exemple
cas 1: ViewTitles1=(modifiée, cliquer sur Ecrire !)
cas 2: "ViewTitles1=(modifiée, cliquer sur Ecrire !)"
Une idée du pourquoi ?
Sam Vimaire avait prétendu :
Difficulté n°2:
Le contenu de la colonne contient du texte au format Unicode
Merci pour tout exemple de code qui me permette de mettre le pied à l'étrier.
Je me réponds :
Les API MultiByteToWideChar et WideCharToMultiByte font le boulot
'-----------------------------------------------------------------------
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal
CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long,
ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal
cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal
CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long,
ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal
cchMultiByte As Long, ByVal l
Et je rebondis sur une autre question dans le même thread.
Lorsque je fait fichier, enregistrer sous, format Unicode (.txt)
Le contenu de ma colonne est correctement enregistré. (cas 1)
Lorsque je fais
FileName="Monfichier.txt"
ActiveWorkbook.SaveAs FileName:= _
FileName, FileFormat:=xlUnicodeText, _
Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
(cas 2)
Je me retrouve avec des guillemets encadrant certaines chaines de
caractères (celles avec de la ponctuation notamment)
exemple
cas 1:
ViewTitles1=(modifiée, cliquer sur Ecrire !)
cas 2:
"ViewTitles1=(modifiée, cliquer sur Ecrire !)"
Difficulté n°2: Le contenu de la colonne contient du texte au format Unicode Merci pour tout exemple de code qui me permette de mettre le pied à l'étrier.
Je me réponds : Les API MultiByteToWideChar et WideCharToMultiByte font le boulot '-----------------------------------------------------------------------
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal l
Et je rebondis sur une autre question dans le même thread. Lorsque je fait fichier, enregistrer sous, format Unicode (.txt) Le contenu de ma colonne est correctement enregistré. (cas 1)
Lorsque je fais FileName="Monfichier.txt" ActiveWorkbook.SaveAs FileName:= _ FileName, FileFormat:=xlUnicodeText, _ Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse
(cas 2)
Je me retrouve avec des guillemets encadrant certaines chaines de caractères (celles avec de la ponctuation notamment) exemple
cas 1: ViewTitles1=(modifiée, cliquer sur Ecrire !)
cas 2: "ViewTitles1=(modifiée, cliquer sur Ecrire !)"