XL 2013 Macro export vers .txt

[Leché]

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

 

[danielco]

Bonjour ,
moi j'ai pas compris ça !

alors que Leché dit :

que viennent faire les

Bonne journée
jean marie

Bonjour @ChTi160 ,

La plage à traiter débute en F7. Ce qui n'empêche pas qu'il peut y avoir des cellules non vides en F1:F6 et qu'il est donc incorrect d'utiliser Cells.Count, quand bien même on mettrait "Cells.Count + 6".

Daniel

 

[danielco]

Lors de l’exécution , j'ai cette erreur pour commencer .. :

Regarde la pièce jointe 1092991

Bonjour,

La ligne en erreur cherche ouvrir le fichier "FDS.xlsx". Apparemmeent, elle ne le trouve pas dans le même dossier que celui contenant la macro.

Daniel

 

[ChTi160]

??????????

 

[danielco]

@ChTi160 : A quel message ou partie de message réponds-tu ?

 

[Leché]

Bonjour,

La ligne en erreur cherche ouvrir le fichier "FDS.xlsx". Apparemmeent, elle ne le trouve pas dans le même dossier que celui contenant la macro.

Daniel

Pourtant c'est tout dans le même dossier ...

 

[danielco]

??????????

Je viens de comprendre mon erreur. désolé.

Daniel

 

[danielco]

Je ne suis pas agressif mais tu parles par énigme au lieu de dire les choses clairement !

Ceci dit je ne comprends toujours pas tes explications désolé.
Je vais suivre ton conseil !

Je viens (enfin) de comprendre mon erreur. Désolé d'avoir mis ton code en question, à tort.

Daniel

 

[danielco]

Pourtant c'est tout dans le même dossier ...

Pour une fois,, le message est assez explicite. Vérifie bien le nom du classeur.

Daniel

 

[Leché]

Pour une fois,, le message est assez explicite. Vérifie bien le nom du classeur.

Daniel

Oui , nom + extension ok , toujours la même erreur

 

[Leché]

Vous m'avez un peu perdu niveau code a vrai dire ^^
J'ai ceci :

Sub test()
  Dim Enrgt As String, Wbk As Workbook, C As Range
  Close #1
  Set Wbk = Workbooks.Open("FDS.xlsm")
  With Sheets("35x2")
    Enrgt = ""
    For Each C In .Range("F7", .Cells(.Rows.Count, "F").End(xlUp))
        If Enrgt <> "" Then Enrgt = Enrgt & vbCrLf
        Enrgt = Enrgt & C.Value
    Next C
    Open "X.txt" For Output As #1
        Print #1, Enrgt
   Close #1
End With

 With Sheets("30x2")
    Enrgt = ""
    For Each C In .Range("F7", .Cells(.Rows.Count, "F").End(xlUp))
        If Enrgt <> "" Then Enrgt = Enrgt & vbCrLf
        Enrgt = Enrgt & C.Value
    Next C
    Open "Y.txt" For Output As #1
        Print #1, Enrgt
   Close #1
End With
End Sub

 

[ChTi160]

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

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

A voir pour l'extension

Jean marie

 

[Leché]

Tu parles de fichier xlsx et xlsm lors de l'ouverture......

Dans le code macro l'extention est xlsx , j'ai remplacé par xlsm comme c'est l'extention de mon fichier .. cela change quelque chose ?

 

[danielco]

Dans le code macro l'extention est xlsx , j'ai remplacé par xlsm comme c'est l'extention de mon fichier .. cela change quelque chose ?

L'extension doit correspondre à celle de ton classeur.

Daniel

 

[ChTi160]

Voir #26
Jean marie

 

[dysorthographie]

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 !