Création fichier txt à partir tableau excel
rem81
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je suis nouveau sur le forum et également totalement novice en création de macro.
J'ai un tableau sous excel. Certaines colonnes m'intéressent d'autres non .
J'aimerai pouvoir choisir les colonnes qui m'intéressent et les regrouper dans un fichier .txt via une macro. Cela m'éviterai de créer un nouveau fichier exel avec que les colonnes qui m'intéressent et ensuite enregistrer ce fichier exel en .txt . Me comprenez vous ?
Voila les colonnes que je voudrais incorporer dans le fichier macro sachant que les autres colonnes de mon tableau ne m'intéressent pas.
- Colonne de E9 à E104
- Colonne de H9 à H104
- Colonne de I9 à I104
- Colonne de J9 à J104
- Colonne de K9 à K104
- Colonne de L9 à L104
- Colonne de M9 à M104
Mon fichier excel se nomme France 1. Quelqu'un aurait-il une macro toute prête pour se genre de données?
Merci pour votre aide
Je suis nouveau sur le forum et également totalement novice en création de macro.
J'ai un tableau sous excel. Certaines colonnes m'intéressent d'autres non .
J'aimerai pouvoir choisir les colonnes qui m'intéressent et les regrouper dans un fichier .txt via une macro. Cela m'éviterai de créer un nouveau fichier exel avec que les colonnes qui m'intéressent et ensuite enregistrer ce fichier exel en .txt . Me comprenez vous ?
Voila les colonnes que je voudrais incorporer dans le fichier macro sachant que les autres colonnes de mon tableau ne m'intéressent pas.
- Colonne de E9 à E104
- Colonne de H9 à H104
- Colonne de I9 à I104
- Colonne de J9 à J104
- Colonne de K9 à K104
- Colonne de L9 à L104
- Colonne de M9 à M104
Mon fichier excel se nomme France 1. Quelqu'un aurait-il une macro toute prête pour se genre de données?
Merci pour votre aide
A voir également:
- Fichier txt en excel
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide
3 réponses
Bonjour,
Un exemple de code :
Un exemple de code :
Sub CreerTxt()
Dim Donnees(95)
Dim Lig As Integer
Dim Chemin As String, NomFic As String
Chemin = ThisWorkbook.Path & "\"
NomFic = ThisWorkbook.Name & " " & Format(Now, "ddmmyyyyhhmmss") & ".txt"
With ActiveSheet
For Lig = 9 To 104
Donnees(Lig - 9) = .Cells(Lig, 5) & " ; " & .Cells(Lig, 8) & " ; " & .Cells(Lig, 9) & " ; " & .Cells(Lig, 10) & " ; " & .Cells(Lig, 11) & " ; " & .Cells(Lig, 12) & " ; " & .Cells(Lig, 13)
Next Lig
End With
Open Chemin & NomFic For Output As #1
For Lig = LBound(Donnees) To UBound(Donnees)
Print #1, Donnees(Lig)
Next
Close #1
End Sub