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

[BPM]

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.

 

[M12]

Bonjour,
A tester

 

[BPM]

Bonjour,
A tester

Merci beaucoup pour votre exemple de code. Je rencontre un problème de compilation, c'est au niveau de la première ligne "Dim fso As Scripting.FileSystemObject" l'erreur est "type défini par l'utilisateur non défini".
Savez-vous comment résoudre cette erreur ?
Merci encore.

 

[M12]

Re,
En étant sur le développeur, menu OUTILS --> Références
il faut ajouter la référence "Microsoft Scripting Runtime"

 

[BPM]

Re,
En étant sur le développeur, menu OUTILS --> Références
il faut ajouter la référence "Microsoft Scripting Runtime"

Parfait, merci beaucoup. En cochant cette case, le code fonctionne correctement.
Je vous remercie pour votre aide, votre temps et votre réactivité.

 

[job75]

Bonjour BPM, M12,

Une autre solution avec écriture séquentielle du fichier texte créé :

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+

 

[BPM]

Bonjour BPM, M12,

Une autre solution avec écriture séquentielle du fichier texte créé :

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+

D'accord, je vous remercie je vais le tester

 

[BPM]

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.