XL 2013 Copier cellule vers Bloc Note

[Kaizers]

Bonjour à tous,

J'aimerai Copier coller les cellules A1:A10 de mon onglet "COMMENTAIRE"
Ouvrir un nouveau bloc note
Et les coller

J'ai trouver des solutions sur le net, mais aucune ne fonctionne ou je ne comprends pas les codes donnés...

Merci pour votre aide

 

[belkacem_64]

Salut
voila la réponse

Sub CoptText()

Dim MyRange As Range, I As Integer

For I = 1 To 10
Set MyRange = Cells(I, 1)
Open ActiveWorkbook.Path & "\test.txt" For Append As 1
Print #1, MyRange
Close 1
Next

End Sub