Excel Downloads Forums - Afficher un message

dg62 · 19/04/2006, 18h16

Bonjour Chaps

Code:

Sub colB() 'col B en fichier Texte
Dim c As Range
Open 'c:\\test.txt' For Output As 1
For Each c In Range('B:B')
If c > '' Then
    Write #1, c.Value
End If

Next c
    
Close #1
End Sub

Salut Hervé

Message édité par: dg62, à: 19/04/2006 17:19

19/04/2006, 18h16	#3 (permalink)
dg62 XLDnaute Accro Date d'inscription: février 2005 Localisation: Arras Version Excel : Excel 2003 (PC) Messages: 1 422	Re:Export 1 colonne précise en fichier txt Bonjour Chaps Code: Sub colB() 'col B en fichier Texte Dim c As Range Open 'c:\\test.txt' For Output As 1 For Each c In Range('B:B') If c > '' Then Write #1, c.Value End If Next c Close #1 End Sub Salut Hervé Message édité par: dg62, à: 19/04/2006 17:19 __________________ @+