Robmachine
XLDnaute Nouveau
Bonjour à tous,
je suis en train de coder une macro VBA qui dois écrire sur une ligne précise (ligne numéro 79 ,354 et 425 par exemple) d'un fichier txt, l'enregistré et le fermé.
Pour ce faire j'utilise la fonction suivante pour ouvrir le fichier texte
Workbooks.OpenText Filename:=FNAME, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, local:=True, Other:=False
qui ouvre le fichier txt sous excel
Puis j'insère une nouvelle ligne;
Rows(79).Insert Shift:=xlDown
Cells(79, 2) = "texte à insérer"
Rows(354).Insert Shift:=xlDown
Cells(354, 2) = "texte à insérer"
Rows(425).Insert Shift:=xlDown
Cells(425, 2) = "texte à insérer"
Puis je sauve et ferme le fichier
Workbooks("Fonction_extraction_IBES.sql").Save
Workbooks("Fonction_extraction_IBES.sql").Close False
Lorsque je rouvre manuellement le fichier txt afin de voir le résultat, je remarque que pour toutes les données de chaque lignes sont entre guillemets comme suit:
"11,"
"5075,"
"5947,"
"2482,"
"308389,"
"107121,"
"351,"
"25,"
"306435,"
"101700,"
"65,"
"231039,"
"6052
comment faire pour exécuter les même macro sans avoir ces guillemets à chaque lignes
merci d'avance
je suis en train de coder une macro VBA qui dois écrire sur une ligne précise (ligne numéro 79 ,354 et 425 par exemple) d'un fichier txt, l'enregistré et le fermé.
Pour ce faire j'utilise la fonction suivante pour ouvrir le fichier texte
Workbooks.OpenText Filename:=FNAME, Origin:=xlWindows, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, local:=True, Other:=False
qui ouvre le fichier txt sous excel
Puis j'insère une nouvelle ligne;
Rows(79).Insert Shift:=xlDown
Cells(79, 2) = "texte à insérer"
Rows(354).Insert Shift:=xlDown
Cells(354, 2) = "texte à insérer"
Rows(425).Insert Shift:=xlDown
Cells(425, 2) = "texte à insérer"
Puis je sauve et ferme le fichier
Workbooks("Fonction_extraction_IBES.sql").Save
Workbooks("Fonction_extraction_IBES.sql").Close False
Lorsque je rouvre manuellement le fichier txt afin de voir le résultat, je remarque que pour toutes les données de chaque lignes sont entre guillemets comme suit:
"11,"
"5075,"
"5947,"
"2482,"
"308389,"
"107121,"
"351,"
"25,"
"306435,"
"101700,"
"65,"
"231039,"
"6052
comment faire pour exécuter les même macro sans avoir ces guillemets à chaque lignes
merci d'avance