K Kaizers XLDnaute Occasionnel 12 Décembre 2016 #1 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
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
B belkacem_64 XLDnaute Junior 12 Décembre 2016 #2 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 Vote positif 0 Vote négatif
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