VBA Excel coller presse-papier

[Great.J]

Bonjour à tous,
N’étant pas initié au VBA, je cherche désespérément sur internet depuis quelques heures de quoi m’aider dans mon projet … en vain.
Je souhaiterais créer une macro qui copie l’intégralité d’une colonne (« A » dans l’onglet « output ») dans un fichier .txt, ceci lors de l’enregistrement du fichier Excel, et réactive la page consultée lors de l’enregistrement du fichier.

Pour cela j’ai trouvé ceci :
Dans ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Macro1
End Sub

Dans Module (code trouvé ici)

Sub Macro1()
    On Error GoTo Erreur

    Dim Chaine As String

    Dim Fichier As String

    CurrentSheet = ActiveSheet.Name
   
    Sheets("output").Activate
    
    Columns("A:A").Select
    
    Selection.Copy

    Chaine = "texte à copier"

    Fichier = "C:\texte.txt"
    
    Dim f As Integer

    f = FreeFile

    Open Fichier For Output As #f

    Print #f, Chaine

    Close #f

    MsgBox "Le texte a été sauvegardé dans: " & Fichier
    
    Sheets(CurrentSheet).Activate

    Exit Sub
Erreur:

    MsgBox "Le fichier de sortie est inaccessible"
End Sub

Le souci réside dans le fait que je n’arrive pas à indiquer dans la commande « print #f » le contenu du presse-papier qui a été copié lors de l’instruction "Chaine = "texte à copier"" …
De l’aide svp ?
-----

[vande545]

Bonjour

Le souci réside dans le fait que je n’arrive pas à indiquer dans la commande « print #f » le contenu du presse-papier qui a été copié lors de l’instruction "Chaine = "texte à copier"" …

Il y a des années que je ne pratique plus VBA mais ce dont je suis sûr c'est de n'avoir jamais "collé" dans un simple fichier texte.
Je pense que VBA ne peut copier-coller qu'à l'intérieur d'un document M$-Office.
A ta place, je chercherais à mettre ce qui est à copier dans un array (variable tableau). Il faudra ensuite parcourir ce tableau ligne à ligne et écrire ainsi son contenu dans le fichier txt.

Remarque :

Columns("A:A").Select
Selection.Copy

Est une très mauvaise pratique sauf si tu es sûr que la colonne est totalement remplie ou presque.

[Great.J]

Est une très mauvaise pratique sauf si tu es sûr que la colonne est totalement remplie ou presque.

Peux-tu développer stp ?

Je pense que VBA ne peut copier-coller qu'à l'intérieur d'un document M$-Office.

Il faudra ensuite parcourir ce tableau ligne à ligne et écrire ainsi son contenu dans le fichier txt.

Ce n'est pas contradictoire du coup ?

[vande545]

Peux-tu développer stp ?

La partie de plage de cellules vides copiées mobilise malgré tout un espace non négligeable de la RAM. La répétition de ces mauvaises pratiques finit par provoquer des plantages.

Ce n'est pas contradictoire du coup ?

Non mais je me suis mal exprimé. En fait, tu n'as pas à utiliser le copier-coller. Tu parcours ligne à ligne la colonne et tu écris le contenu de chaque cellule dans le fichier txt.
Exemple :

Range("A1").Select
Do while Activecell.Value<>""
     Open Fichier For Output As #f
              Print #f, Activecell.Value
      Close #f
      Activecell.Offset(0,1).Select
loop

code non testé et écrit de mémoire malgré une décennie au moins de non pratique

[A voir en vidéo sur Futura]

[umfred]

ça doit marcher, mais perso, je n'aime pas trop utiliser les select dans les macro VBA

Dim c as Range
Dim ligne as Integer, f as Integer
Dim fichier as String
fichier=Fichier = "C:\texte.txt"
set c=ThisWorkBook.Sheets("output").Range("A1")
f=FreeFile
Open fichier For Ouput as #f
ligne=0 'pour commencer sur la 1ère ligne
While(c.Offset(ligne,0).Value<>"")
    Print #f, c.Offset(ligne,0).Value
    ligne=ligne+1
WEnd
Close #f

et pour la relecture dans WorkBook_Open()
relire le fichier avec Line Input

[vande545]

perso, je n'aime pas trop utiliser les select dans les macro VBA

Entièrement d'accord mais pour un débutant, le mode pas à pas avec vue sur ce qui se passe est rassurant !

[Great.J]

Bonjour et désolé pour le temps de réponse !
Merci à vous pour votre aide précieuse.
Je n'ai malheureusement pas eu le temps de tester ce que vous m'avez dit.
Je reviens vers vous rapidement si je n'y arrive pas ou pour poster le code qui fonctionne.
Merci !