Discussion :

[Mimosa777]

Bonjour a tous et a toutes,

j'aurai besoin de votre aide sur un obstacle qi se pose pour moi concernant l'écriture dans un fichier texte a partir de mes feuilles excel. J'arrive sans probleme a exporter le contenu de ma feuille excel vers un fichier texte mais la,je souhaiterai exporter le contenu de mes 2 feuilles excel dans le meme fichier texte.

en effet, j'ai du séparer mes données sur 2 feuilles car elles n'entraient pas toutes dans une seule feuille car mes colonnes etaient superieur a 256, j'ai alors créé une deuxieme feuille excel qui contient la suite de la premiere feuille et maintenant je souhaiterai exporter le tout dans un fichier texte de facon a avoir sur chaque ligne de mon fichier texte les 300 a 400 valeur des colonnes et ainsi de suite pour les 194 lignes que possède.

POur etre plus clair, voici un apercu :

feuille 1 (je vous mets seulement 5 colonnes)
NOM/DESCE/DESCF/SRCRUBP
ASRE4062/Adm sectRE40621/Adm sectRE40621/RE56881
ASRE4057/Adm sect RE40571/Adm sect RE40571/RE40591
ASRE4074/Adm sect RE40741/Adm sect RE40741/RE40771

feuille 2
ADMCIBW4/ADMCIBW5/ADMCIBW6/ADMCIBW7
3285040/3985146/496892/318243
328430/398766/4592/3183
3140/39812/4932/315

Et voila a quoi devrait ressembler mon fichier texte :
ASRE4062{Adm sectRE40621{Adm sectRE40621{RE56881{3285040{3985146{496892{318243
ASRE4057{Adm sect RE40571{Adm sect RE40571{RE40591{328430{398766{4592{3183
ASRE4074{Adm sect RE40741{Adm sect RE40741{RE40771{3140{39812{4932{315

J'espere avoir ete clair et je vous remercie de votre aide d'avance.

[ouskel'n'or]

Pourquoi ne remets-tu pas le code que je t'ai passé avant que tu constates le problème des deux pages ? Le principe reste le même.
Je suppose d'après tes explications que les données situées sur une ligne de feuil1 se poursuivent sur le même N° de ligne dans feuil2.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub FichierTxtEcrire()
Dim i, j, derlig1 as long, dercol1 as integer, dercol2 as integer
Dim FL1 As Worksheet, FL2 As Worksheet
Set FL1 = ActiveSheet
Set FL2 = Worksheets("feuil2")
    derlig1 = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    dercol1 = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Column
    derco21 = FL1.Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Open "D:\txt\LeFichier.txt" For Output As #1
    For i = 1 To derlig1
        'Copie des colonnes de Feuil1
        For j = 1 To dercol1 'jusqu'à dernière colonne sans retour à la ligne
            Print #1, FL1.Cells(i, j).Formula + "{";
        Next j
 
        'Copie des colonnes de feuil2 sur la même ligne
        For j = 1 To dercol2 - 1
            Print #1, FL2.Cells(i, j).Formula + "{";
        Next j
        Print #1, FL2.Cells(i, j + 1).Formula '
    Next i
    Close #1
End Sub

Bonne soirée

[Mimosa777]

Bonjour ouskel'n'or,

le code que tu m'as donné la dernière marche trop bien. je l'utilise bien pour d'autres feuille excel qui sont plus petite et qui ne depasse pas 1 feuille. Je n'ai pas fais attention que j'aurai un fichier qui depasserait une feuille de donnée et la cela m'a complique un peu les choses. Je teste ce que tu me proposes maintenant.

Merci

[Mimosa777]

Merci mon cher. ca marches a merveille.