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

BPM · 29 Juin 2021

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 · 29 Juin 2021

Bonjour,
A tester

BPM · 29 Juin 2021

M12 à dit:
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 · 29 Juin 2021

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

BPM · 29 Juin 2021

M12 à dit:
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 · 29 Juin 2021

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+

BPM · 29 Juin 2021

job75 à dit:

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+

D'accord, je vous remercie je vais le tester

BPM · 1 Juillet 2021

M12 à dit:
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.

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

BPM

XLDnaute Nouveau

Pièces jointes

M12

XLDnaute Accro

Pièces jointes

BPM

XLDnaute Nouveau

M12

XLDnaute Accro

BPM

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

BPM

XLDnaute Nouveau

BPM

XLDnaute Nouveau

Discussions similaires