gourdin
XLDnaute Impliqué
Bonjour,
Ci dessous le code qui me permet d'ouvrir le fichier "tablo.txt" et de l'alimenter avec les 3 premières cellules de la colonne D de mon fichier excel.
Comment éviter de répéter le code "Range("")" pour chaque différentes cellules de ma colonne D (sachant qu'il peut y avoir de très nombreuses cellules dans la colonne D)
Sub fichier_text()
Filename = ThisWorkbook.Path & "\tablo.txt"
Open Filename For Output As #1
Print #1, Range("D1")
Print #1, Range("D2")
Print #1, Range("D3")
Close #1
End Sub
Merci
Ci dessous le code qui me permet d'ouvrir le fichier "tablo.txt" et de l'alimenter avec les 3 premières cellules de la colonne D de mon fichier excel.
Comment éviter de répéter le code "Range("")" pour chaque différentes cellules de ma colonne D (sachant qu'il peut y avoir de très nombreuses cellules dans la colonne D)
Sub fichier_text()
Filename = ThisWorkbook.Path & "\tablo.txt"
Open Filename For Output As #1
Print #1, Range("D1")
Print #1, Range("D2")
Print #1, Range("D3")
Close #1
End Sub
Merci