Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Copier-coller une colonne dans un bloc-notes

BPM

XLDnaute Nouveau
Bonjour je viens à nouveau pour solliciter votre aide,
J'aimerais avoir un programme qui copie toute la colonne F notamment jusqu'à la dernière cellule active
de la colonne F, après qui m'ouvre un bloc note pour coller cette colonne F et que le code enregistre
le bloc-notes sous le nom de la feuille active dans le même le dossier que mon classeur Excel et ferme le bloc-notes
en renvoyant à la fin du message disant "fiche texte créer"
Je joins un classeur exemple.
Merci à vous.
 

Pièces jointes

  • Classeur exemple.xlsm
    9.5 KB · Affichages: 7

job75

XLDnaute Barbatruc
Bonjour BPM, M12,

Une autre solution avec écriture séquentielle du fichier texte créé :
VB:
Sub CreerFichierTexte()
Dim tablo, x%, i&
With ActiveSheet 'à adapter
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    tablo = .Range("F1:G" & .Range("F" & .Rows.Count).End(xlUp).Row) 'matrice, plus rapide, au moins 2 éléments
    x = FreeFile
    Open ThisWorkbook.Path & "\" & .Name & ".txt" For Output As #x 'crée le fichier texte
End With
For i = 1 To UBound(tablo)
    Print #x, tablo(i, 1)
Next
Close #x
MsgBox "Fichier texte créé", vbInformation, "INFORMATION"
End Sub
A+
 

Pièces jointes

  • Classeur exemple(1).xlsm
    17.2 KB · Affichages: 3

BPM

XLDnaute Nouveau
D'accord, je vous remercie je vais le tester
 

BPM

XLDnaute Nouveau
Re,
En étant sur le développeur, menu OUTILS --> Références
il faut ajouter la référence "Microsoft Scripting Runtime"
Bonjour à vous, veillez m'excusez de revenir sur ce sujet le programme que aviez proposé fonctionne très bien, sauf que j'aimerais bien y apporter une modification qui la suivante au lieu d'enregistrer le même dossier que classeur Excel, il faudrait que le programme créé un sous-dossier qui va s'appeler "fichiers" et le fichier texte sera enregistrer dedans. Pour préciser le sous-dossier doit être dans le même dossier que le classeur Excel et si il y a moyen de faire une vérification également si le sous-dossier existe alors ne pas le créer et enregistrer le fichier texte dedans et si il n'existe pas le créer et enregistrer le fichier texte dedans.
Je vous remercie encore pour votre temps.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…