Bonjour,
comment exporter des datas contenus dans un claseur vers un fichier
texte en UTF8.
Actuellement ma macro cr=E9e le fichier et le remplis mais il est en
ascii et non utf8.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure
ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile sPath ' Loads a File
.Charset SetChar ' sets stream encoding (UTF-8)
.SaveToFile sPath, 2 ' adSaveCreateOverWrite
.Close
End With
End Sub
MP
<campsb@neuf.fr> a écrit dans le message de news:
1150391804.934457.193210@h76g2000cwa.googlegroups.com...
Bonjour,
comment exporter des datas contenus dans un claseur vers un fichier
texte en UTF8.
Actuellement ma macro crée le fichier et le remplis mais il est en
ascii et non utf8.
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
campsb
Bonjour, cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
Bonjour,
cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas
positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure
ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile sPath ' Loads a File
.Charset SetChar ' sets stream encoding (UTF-8)
.SaveToFile sPath, 2 ' adSaveCreateOverWrite
.Close
End With
End Sub
MP
<campsb@neuf.fr> a écrit dans le message de news:
1150391804.934457.193210@h76g2000cwa.googlegroups.com...
Bonjour,
comment exporter des datas contenus dans un claseur vers un fichier
texte en UTF8.
Actuellement ma macro crée le fichier et le remplis mais il est en
ascii et non utf8.
Bonjour, cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
campsb
Bonjour, cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
Bonjour,
cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas
positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure
ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile sPath ' Loads a File
.Charset SetChar ' sets stream encoding (UTF-8)
.SaveToFile sPath, 2 ' adSaveCreateOverWrite
.Close
End With
End Sub
MP
<campsb@neuf.fr> a écrit dans le message de news:
1150391804.934457.193210@h76g2000cwa.googlegroups.com...
Bonjour,
comment exporter des datas contenus dans un claseur vers un fichier
texte en UTF8.
Actuellement ma macro crée le fichier et le remplis mais il est en
ascii et non utf8.
Bonjour, cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
Michel Pierron
Bonjour; Je ne vois pas pourquoi, car pour moi, ça marche sans erreur et donne bien le résultat escompté:
Sub Test() Const sFile = "MonFichier.txt" Dim sPath$: sPath = ThisWorkbook.Path & "" & sFile Call Encode(sPath) End Sub
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath .Charset = SetChar .SaveToFile sPath, 2 .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
Bonjour;
Je ne vois pas pourquoi, car pour moi, ça marche sans erreur et donne bien
le résultat escompté:
Sub Test()
Const sFile = "MonFichier.txt"
Dim sPath$: sPath = ThisWorkbook.Path & "" & sFile
Call Encode(sPath)
End Sub
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile sPath
.Charset = SetChar
.SaveToFile sPath, 2
.Close
End With
End Sub
MP
<campsb@neuf.fr> a écrit dans le message de news:
1150452843.646566.207650@y41g2000cwy.googlegroups.com...
Bonjour,
cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas
positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure
ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile sPath ' Loads a File
.Charset SetChar ' sets stream encoding (UTF-8)
.SaveToFile sPath, 2 ' adSaveCreateOverWrite
.Close
End With
End Sub
MP
<campsb@neuf.fr> a écrit dans le message de news:
1150391804.934457.193210@h76g2000cwa.googlegroups.com...
Bonjour,
comment exporter des datas contenus dans un claseur vers un fichier
texte en UTF8.
Actuellement ma macro crée le fichier et le remplis mais il est en
ascii et non utf8.
Bonjour; Je ne vois pas pourquoi, car pour moi, ça marche sans erreur et donne bien le résultat escompté:
Sub Test() Const sFile = "MonFichier.txt" Dim sPath$: sPath = ThisWorkbook.Path & "" & sFile Call Encode(sPath) End Sub
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath .Charset = SetChar .SaveToFile sPath, 2 .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédure ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
campsb
Ok j'ai trouvé l'erreur. pour pouvoir positionner le charset il faut positionner le type. En effet par défaut on est en binaire.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .Type = adTypeText .LoadFromFile sPath .Charset = SetChar .SaveToFile sPath, 2 .Close End With End Sub
merci de votre aide
Bonjour; Je ne vois pas pourquoi, car pour moi, ça marche sans erreur et donne b ien le résultat escompté:
Sub Test() Const sFile = "MonFichier.txt" Dim sPath$: sPath = ThisWorkbook.Path & "" & sFile Call Encode(sPath) End Sub
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath .Charset = SetChar .SaveToFile sPath, 2 .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédu re ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
merci de votre aide
Ok j'ai trouvé l'erreur.
pour pouvoir positionner le charset il faut positionner le type. En
effet par défaut on est en binaire.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")
With CreateObject("ADODB.Stream")
.Open
.Type = adTypeText
.LoadFromFile sPath
.Charset = SetChar
.SaveToFile sPath, 2
.Close
End With
End Sub
merci de votre aide
Bonjour;
Je ne vois pas pourquoi, car pour moi, ça marche sans erreur et donne b ien
le résultat escompté:
Sub Test()
Const sFile = "MonFichier.txt"
Dim sPath$: sPath = ThisWorkbook.Path & "" & sFile
Call Encode(sPath)
End Sub
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile sPath
.Charset = SetChar
.SaveToFile sPath, 2
.Close
End With
End Sub
MP
<campsb@neuf.fr> a écrit dans le message de news:
1150452843.646566.207650@y41g2000cwy.googlegroups.com...
Bonjour,
cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas
positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédu re
ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8")
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile sPath ' Loads a File
.Charset SetChar ' sets stream encoding (UTF-8)
.SaveToFile sPath, 2 ' adSaveCreateOverWrite
.Close
End With
End Sub
MP
<campsb@neuf.fr> a écrit dans le message de news:
1150391804.934457.193210@h76g2000cwa.googlegroups.com...
Bonjour,
comment exporter des datas contenus dans un claseur vers un fichier
texte en UTF8.
Actuellement ma macro crée le fichier et le remplis mais il est en
ascii et non utf8.
Ok j'ai trouvé l'erreur. pour pouvoir positionner le charset il faut positionner le type. En effet par défaut on est en binaire.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .Type = adTypeText .LoadFromFile sPath .Charset = SetChar .SaveToFile sPath, 2 .Close End With End Sub
merci de votre aide
Bonjour; Je ne vois pas pourquoi, car pour moi, ça marche sans erreur et donne b ien le résultat escompté:
Sub Test() Const sFile = "MonFichier.txt" Dim sPath$: sPath = ThisWorkbook.Path & "" & sFile Call Encode(sPath) End Sub
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath .Charset = SetChar .SaveToFile sPath, 2 .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, cela ne fonctionne pas. En effet il semblerai que l'on ne peut pas positionner le charset (erreur 450)
une autre idée ????
Bonsoir; une fois ton fichier txt créé, traite le avec la procédu re ci-dessous en indiquant le chemin complet de ton fichier text.
Sub Encode(ByVal sPath$, Optional SetChar$ = "UTF-8") With CreateObject("ADODB.Stream") .Open .LoadFromFile sPath ' Loads a File .Charset SetChar ' sets stream encoding (UTF-8) .SaveToFile sPath, 2 ' adSaveCreateOverWrite .Close End With End Sub
MP
a écrit dans le message de news:
Bonjour, comment exporter des datas contenus dans un claseur vers un fichier texte en UTF8. Actuellement ma macro crée le fichier et le remplis mais il est en ascii et non utf8.
