Discussion :

[parp1]

Bonjour, voila je n'es jamais utilisé VBA, hors mon patron ma demander de rendre un volume avec des Donnée excels.

Je dois donc en extraire le contenu. Chaque couche de volume est symbolisé par des feuilles dans mon classeur.

J'ai 13 feuilles donc 13 couches.

Je souhaite lire chacune des feuilles, et les ecrire dans un fichier txt pour commencer. Je ferais le traitement dans un autre language.

Donc est ce que vous avez des idées. Désolé ca fait un peu mec qui n'a pas lu la FAQ etc etc.... mais je dois trouver une solution vite.

Si vous avez des idées, je vous en remercie.

Cordialement Francois Louis.

[ouskel'n'or]

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
Sub FichierTxt()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Set f = ActiveSheet
    DerniereLigne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerniereColonne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Open "D:\txt\LeFichier.csv" For Output As #1
    For i = 1 To DerniereLigne
        For j = 1 To DerniereColonne - 1
            Print #1, f.Cells(i, j).Formula + ";";
            'pour séparateur ";" tu remplaces si ton séparateur est une virgule
        Next j
        Print #1, f.Cells(i, j + 1).Formula
    Next i
    Close #1
End Sub

Te reste plus qu'à le faire pour chaque feuille de chaque fichier
Tu peux modifier l'extension en txt, c'est pareil

[parp1]

Sincerement MERCI Beaucoup,car mon sujet ne respecte la charte de nos forums... Mais j'avais vraiment pas le choix. Des que j'ai eu ce que je veux je mettrais

Merci!