Ajout de guillemets lors de l'ecriture dans un fichier txt en vba

Re : Ajout de guillemets lors de l'ecriture dans un fichier txt en vba

Bonjour,
As tu essayé : Cells(79, 2) = Clng(texte à insérer) ?
BH

Re : Ajout de guillemets lors de l'ecriture dans un fichier txt en vba

Bonjour,

Cela ne résout malheureusement pas mon problème...

Pour être plus précis, chaque ligne de mon fichier txt ne contenait aucune guillemet avant exécution de la macro, c'est a dire que mon fichier ressemble ) cela:

REM *********************************************
alter session set nls_date_format = 'DD/MM/YYYY';
REM *********************************************

set pagesize 0
SET LINESIZE 290
SET SPACE 0
SET VERIFY OFF
SET ECHO OFF


REM *****************************************************************
REM *****************************************************************

spool V:\ETUDES\Olivier\Params\Reponses\IBES\EBIT.txt

PROMPT IFCFIN;IFNOM;SEF_MEASURE;EXERCICE;SEF_MEAN;SEF_NB_EST;SEF_MEAN_4WKS_AGO;SEF_NB_EST_4WKS_AGO;SEF_NB_EST_RAISED_4WKS;SEF_NB_EST_LOWERED_4WKS;SEF_DATE_MAJ;

select distinct
IFCFIN,';',
IFNOM,';',
SEF_MEASURE,';',
SEF_FISCAL_PERIOD_MONTH||'/'||SEF_FISCAL_PERIOD_YEAR EXERCICE,';',
SEF_MEAN,';',
SEF_NB_EST,';',
SEF_MEAN_4WKS_AGO,';',
SEF_NB_EST_4WKS_AGO,';',
SEF_NB_EST_RAISED_4WKS,';',
SEF_NB_EST_LOWERED_4WKS,';',
SEF_DATE_MAJ
from instruments,produits,codes ibes, analyse.ibes_summary_estimates_file
where ifcfin in
(
278,
2481,
364,
5,
2490,
9,
11,
5075,
5947,
2482,
308389,
107121,

après exécution , voici ce que j'obtient:

REM *********************************************
alter session set nls_date_format = 'DD/MM/YYYY'
REM *********************************************

set pagesize 0
SET LINESIZE 290
SET SPACE 0
SET VERIFY OFF
SET ECHO OFF


REM *****************************************************************
REM *****************************************************************

spool V:\ETUDES\Olivier\Params\Reponses\IBES\EBIT.txt

PROMPT IFCFIN IFNOM SEF_MEASURE EXERCICE SEF_MEAN SEF_NB_EST SEF_MEAN_4WKS_AGO SEF_NB_EST_4WKS_AGO SEF_NB_EST_RAISED_4WKS SEF_NB_EST_LOWERED_4WKS SEF_DATE_MAJ

select distinct
"IFCFIN,'" "',"
"IFNOM,'" "', "
"SEF_MEASURE,'" "',"
"SEF_FISCAL_PERIOD_MONTH||'/'||SEF_FISCAL_PERIOD_YEAR EXERCICE,'" "', "
"SEF_MEAN,'" "',"
"SEF_NB_EST,'" "',"
"SEF_MEAN_4WKS_AGO,'" "',"
"SEF_NB_EST_4WKS_AGO,'" "',"
"SEF_NB_EST_RAISED_4WKS,'" "',"
"SEF_NB_EST_LOWERED_4WKS,'" "',"
SEF_DATE_MAJ
"from instruments,produits,codes ibes, analyse.ibes_summary_estimates_file"
where ifcfin in
(
"278,"
"2481,"
"364,"
"5,"
"2490,"
"9,"
"11,"
"5075,"
"5947,"
"2482,"
"308389,"
"107121,"

Des guillemets ce sont ajouté partout....

Après navigation sur certains forum, j'ai lu que lorsque l'on utilise la fonction "Write" au lieu de "Print" on pouvait avoir ce genre de problème...

Mais me concernant ,j'ouvre le fichier texte comme un fichier excel, et je n'utilise donc pas de code basé sur FileSystemObject.

Re : Ajout de guillemets lors de l'ecriture dans un fichier txt en vba

Bonjour,

Je ne suis pas un pro mais pour avoir déjà ouvert des fichiers autre que .xls(x,m) dans Excel, je sais que j'avais eu des problèmes à cause des séparateurs. De mémoire, en version française, le séparateur c'est le ";". Mais pour la version anglaise (et c'est ce qui est appliqué en VBA pour moi), le séparateur c'est la virgule "," !

On voit en effet que tu as des problèmes (tes guillemets) à toutes les lignes où tu as des virgules.

Malheureusement, je ne connais pas la solution (surement dans les arguments du Workbooks.OpenText) mais je pense que le problème vient de là !

Si je trouve, je te dis 😛