XL 2013 Macro export vers .txt

Leché · 25 Janvier 2021

Bonjour,

Je souhaiterai mettre en place une macro permettant de faire ceci :

J’ai un fichier Excel nommée « FDS », dans ce fichier il y a plusieurs onglets dont :

Un onglet nommé « X »
Un onglet nommé « Y »

Pour ces deux onglets, je souhaiterai exporter dans deux fichiers .txt différents , (nommé de la même façon que les noms des onglets) l’ensemble des valeurs de la colonne F (A partir de la ligne 7 jusqu’à la dernière ligne non-vide)

Soit un fichier .txt nommé Y, reprenant l’ensemble des valeurs de la colonne F de l’onglet Y (à partir de la 7eme ligne)

Et un fichier .txt nommé X, reprenant l’ensemble des valeurs de la colonne F de l’onglet X (à partir de la 7eme ligne)

Cette macro sera lancée depuis un fichier Excel « vierge » (juste ouvert pour lancer la macro) ciblant donc le fichier excel « FDS » (qui sera dans le même dossier)
Les deux fichier .txt seront enregistrer dans le même fichier que FDS et le fichier vierge.

Si vous avez un bout de code pour commencer

Merci d'avance pour vos retour,

Bonne journée

dysorthographie · 26 Janvier 2021

VB:

Sub test()
With Workbooks.Open(ThisWorkbook.Path & "\FDS.xlsm")  'Ouvre le Fichier Source à voir
   FichierTxt .Sheets("30x2"), ThisWorkbook.Path & "\30x2.txt"
   FichierTxt .Sheets("35x2"), ThisWorkbook.Path & "\35x2.txt"
   .Close
End With
End Sub
Sub FichierTxt(Onglet As Worksheet, Txt As String)
Dim F As Long
F = FreeFile
  With Onglet
    Enrgt = ""
    For Each C In .Range("F7", .Cells(.Rows.Count, "F").End(xlUp))
     If Not C.EntireRow.Hidden And CStr(C) <> "" Then
        If Enrgt <> "" Then Enrgt = Enrgt & vbCrLf
            Enrgt = Enrgt & C.Value
            End If
    Next C
  End With
Open Txt For Append As #F
    Print #F, Enrgt
Close #F
End Sub

Leché · 26 Janvier 2021

dysorthographie à dit:
Bonjour,
L'extension doit correspondre au format d'enregistrement du fichier !

Tu ne peux pas modifier l'extension à ta guise si tu as enregistré ton fichier en tant que classeur avec macros l'extension est XLSM! Il ne suffit pas de modifier l'extension de XLSX en XLSM pour que le classeur fonctionne !

Pourtant c'est bon ... j'essai de chercher en profondeur..

Leché · 26 Janvier 2021

ChTi160 à dit:
Re
Donc a partir d'un fichier tu ouvres un fichier nommé "FDS" (WkB) et a partir de ses deux feuilles tu récupères les données dans deux fichiers texte.
WkB.Sheets("35x2") etc
tu parles de fichier xlsx et xlsm lors de l'ouverture....
rajouter peut être le chemin complet

VB:

Chemin=ThisWorkbook.Path &"\" Puis Wirkbooks.Open (Chemin & "FDS.xlsx ou xlsm")

A voir pour l'extension

Jean marie

Je ne pourrai pas passer par cette solution, car je copie colle le dossier (avec tout les docs dedans) a plusieurs endroit , donc le chemin n'a jamais le même nom ( a un dossier pret)

ChTi160 · 26 Janvier 2021

Oupssss ?????????????????????????????
jean marie

Leché · 26 Janvier 2021

Avec l'adresse du chemin entière, comme vous m'avez dit de faire, le fichier FDS s'ouvre, mais pas de fichier .txt de crée dans le dossier ..

dysorthographie · 26 Janvier 2021

Si tu ne peux pas savoir où ce trouve toujours fichier sur ton disque dur il faut utiliser une boîte de dialogue pour sélectionner le fichier à traiter

ChTi160 · 26 Janvier 2021

Re
on pourrait faire un truc du genre(non testé)

VB:

Sub test()
  Dim Wkb As Workbook, C As Range
  Dim Chemin$
  Dim FichierNum%
  Dim CheminFichier$
  Application.ScreenUpdating = False
Chemin = ThisWorkbook.Path
Set Wkb = Workbooks.Open(Chemin & "\FDS.xlsm") 'Ouvre le Fichier Source à voir
FichierNum = FreeFile
CheminFichier = Chemin & "\X.txt"
Open CheminFichier For Append As #FichierNum  'le Fichier sera créé si n’existe pas
With Wkb.Sheets("35x2") 'Avec la feuille
For Each C In .Range("F7", .Cells(.Rows.Count, "F").End(xlUp)) 'pour chaque cellules , on pourrait passer par un Tableau temporaire
If C <> "" Then 'si Non vide
Print #FichierNum, C
End If
Next C
Close #FichierNum
Wkb.Close False
Application.ScreenUpdating = True
End With
End Sub

j'ai modifié la présentation
jean marie

ChTi160 · 26 Janvier 2021

Re
j'ai fait un test
voir fichier joint
un dossier Test qui contient pour l'exemple les Fichiers Source (une seule Feuille 35x2 pour le test )et Cible .
on ouvre le fichier où se trouve le Code "TestCreationTxt" et "FDS"
on ouvre le premier "TestCreationTxt" puis on va lancer la procédure "Test" du Module 1 (alt+F11)
et on retourne voir dans le Dossier Test et dans X.txt
jean marie

Leché · 26 Janvier 2021

ChTi160 à dit:
Re
j'ai fait un test
voir fichier joint
un dossier Test qui contient pour l'exemple les Fichiers Source (une seule Feuille 35x2 pour le test )et Cible .
on ouvre le fichier où se trouve le Code "TestCreationTxt" et "FDS"
on ouvre le premier "TestCreationTxt" puis on va lancer la procédure "Test" du Module 1 (alt+F11)
et on retourne voir dans le Dossier Test et dans X.txt
jean marie

Tout marche avec ton fichier. je viens de me rendre compte que les fichiers .txt des essais précédant étaient enfaîte enregistrer dans mes téléchargements..
Je vais garder ton code et essayer de l'adapter pour les deux onglets ^^

Merci beaucoup, ne reste pas loins, je pense avoir besoin d'aide encore ..

Leché · 26 Janvier 2021

Mince, j'ai des cellules qui sont masqués (il y a un filtre) elles sont donc directement copiés avec les valeurs visibles, peut t-on les cachés elles aussi ?

Leché · 26 Janvier 2021

j'ai repris la même syntaxe que ton exemple , j'ai dupliquer les cheminfichier pour créer un autre fichier txt , mais j'ai une erreur

dysorthographie · 26 Janvier 2021

Tu veux dire est il possible de ne pas copier les cellules masquées dans le fichier txt car évidemment il n'est pas possible de masquer dans un fichier txt!

Leché · 26 Janvier 2021

dysorthographie à dit:
Tu veux dire est il possible de ne pas copier les cellules masquées dans le fichier txt car évidemment il n'est pas possible de masquer dans un fichier txt!

Exactement , tu as tout dit ^^

danielco · 26 Janvier 2021

Remplace :

VB:

If C <> "" Then 'si Non vide

par :

Code:

If C <> "" And C.Hidden = False Then 'si Non vide

Daniel

Leché · 26 Janvier 2021

danielco à dit:
Remplace :

VB:

If C <> "" Then 'si Non vide

par :

Code:

If C <> "" And C.Hidden = False Then 'si Non vide

Daniel

Cela me génère une erreur

ChTi160 · 26 Janvier 2021

Re
Peut être avec un truc du genre

VB:

 .Rows(C.Row).Hidden=False

non testé
jean marie

XL 2013 Macro export vers .txt

Leché

XLDnaute Junior

dysorthographie

Leché

XLDnaute Junior

Leché

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Leché

XLDnaute Junior

dysorthographie

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Leché

XLDnaute Junior

Leché

XLDnaute Junior

Leché

XLDnaute Junior

dysorthographie

XLDnaute Accro

Leché

XLDnaute Junior

danielco

XLDnaute Accro

Leché

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

Discussions similaires