Discussion :

[sun19]

Bonjour,
Je suis en train de tester une appli VB6 avec un PC XP Pro Coréen avec Ofiice 2003 US
J'obtiens une réaction bizarre lors de ma fonction de lecture de fichier suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
mnFileNumber = FreeFile
    Open msFilename For Input As #mnFileNumber
    If Not EOF(mnFileNumber) Then
        Line Input #mnFileNumber, msLine
    End If
    l = Len(msLine)

Mon fichier d'entée est un fichier excel comprenant plusieus lignes et lignes.
Ce code avec un PC coréen me renvoie pour 'msline' la valeur 饉胥?
La ligne de commande "Line Input #mnFileNumber, msLine" réagit différemment avec un PC coréen (pas de pb avec PC US,FR,ESP,...)
Avez-vous déjà rencontré ce type de pb ?
Avez- vous une idée ?

Merci d'avance

[ucfoutu]

Bonjour,

j'ai personnellement déjà des difficultés à comprendre que tu lises un fichier Excel avec une instruction Open, normalement utilisée pour lire des fichiers texte.
Qu'y lis-tu de cette manière ?

[sun19]

Désolé,
J'avais oublié de dire que le fichier excel en entrée est enregistré en .tmp
donc msFilename=fichier.tmp

[ucfoutu]

Enregistré comment, en .tmp ? A partir de quoi ?
Et (question posée à nouveau) : qu'y lis-tu ?

[sun19]

enregisté à partie d'un SaveAs
et pour y lire la 1ère ligne du fichier excel (correspondant à une ligne de titres)

[sun19]

en mettant à jour mon saveas, j'ai une erreur au code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wb.SaveAs FileName:=sFileName, FileFormat:=xlTextWindows

, message d'erreur

Method 'Saveas' of object '_workbook' failed

[ucfoutu]

Euh...

on commence à tout mélanger, là ....
Ce n'est plus du tout l'objet de ta question première !

[sun19]

en effet..
en fait, je me suis aperçu que j'enregistrais au format xls au lieu de tmp donc j'ai modifié l'extension de mon fichier (msfilename) et modifié la fonction saveas pour enregistrer au format texte d'où ma nouvelle erreur.

[sun19]

J'ai résolu mon pb de saveas.
Donc mon fihcier d'entrée est un fichier tmp avec les bons caractères mais "LineInput" me renvoie des caractères coréen (voir premier post)

Qqun a une idée?

[OhMonBato]

Bonjour,

c'est quoi un fichier tmp ? Je connaissais csv ou txt pour le format texte avec Excel mais pas tmp.
Peux tu nous montrer ce que donnes ton meme fichier sous le bloc note ou un editeur comme Notepad++ ? Que sont ces fameux "bons caractères " au début de ton fichier ?

[sun19]

c'est un fichier temporaire que je supprime à la fin de ma procédure.
Effectivement, après avoir enlevé la suppression, j'ouvre mon fichier tmp avec Excel j'obtiens les bonnes données mais quand j'ouvre avec Bloc Notes, j'obtiens des caractères coréens.
Alors qu'vae cun PC FR ou US, les données s'affaichent bien avec Bloc Notes.
Le problème doit donc se situer au niveau du SaveAs.
Le code suivant (wb est un objet Excel.Workbook)ne fonctionne pas avec PC Coréen mais fonctionne avec FR,US,GE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sFileName="C:\fichier.tmp"
wb.SaveAs sFileName, xlTextWindows, CreateBackup:=False, AddToMru:=False

alors que celui fonctionne en coréen mais j'ai le pb des données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sFileName="C:\fichier.tmp"
wb.SaveAs sFileName