COPIER DANS NOTEPAD

[damien]

BONJOUR A TOUS
JE VOUDRAI COPIER MES CELLULES B1 A C2 DE MA FEUILLR EXCEL DANS LE BLOC NOTE ET L'ENREGISTRER SUR DISQUETTE A FORMAT TXT
DAMIEN
MERCI A TOUS POUR LE FORUM

 

[@+Thierry]

Bonjour Damien, le Forum

A mon avis tu es nouveau et peu familier des Forums et autres salons de discussion, car écrire en MAJUSCULES signifie implicitement CRIER !

Tu peux faire un tour dans notre Charte où tu trouveras tout ce qu'il faut savoir pour être "XLD-Compliant".

Pour ton problème, si tu fais une recherche tu trouveras plein de méthodes différentes pour faire ce que tu souhaites, en voici une :


Option Explicit

Sub BuildTXT()
Dim TheText As String, TheFile As String
Dim i As Byte

TheFile = "A:\LeFichier.Txt"

With ThisWorkbook
For i = 1 To 2
TheText = TheText & .Sheets("feuil1").Range("B" & i) & vbTab & .Sheets("feuil1").Range("C" & i) & vbCrLf
Next i
End With

Open TheFile For Output As #1
Print #1, TheText
Close

End Sub

(Ici je mets un séparateur "Tabulation" entre les cellules "B" et "C" ainsi qu'un Retour Charriot entre chaque ligne...)

Bon Dimanche
@+Thierry

 

[damien]

merci Thierry
excusez moi pour les majuscules
damien

 

[damien]

rebonjour
ça marche merci
mais un petit probleme pour"For i = 1 To 2" dans ce cas ça copie les 1 et 2 mais en fin de compte je voudrai que ça copie de la ligne 1 a la fin (ça peut être la ligne 2 ou 3 ou 5 ect ) mais je ne veut pas que ça copie les lignes vierge.
merci
damien

 

[@+Thierry]

Re Bonjour Damien,


Essaie comme ceci alors :
Option Explicit

Sub BuildTXT()
Dim TheText As String, TmpText As String, TheFile As String
Dim i As Integer, L As Integer
TheFile = "A:\LeFichier.Txt"

With ThisWorkbook.Sheets("feuil1")
L = .Range("B65536").End(xlUp).Row

For i = 1 To L
TmpText = .Range("B" & i) & vbTab & .Range("C" & i) & vbCrLf
If Len(TmpText) > 3 Then
TheText = TheText & TmpText
End If
Next i
End With

Open TheFile For Output As #1
Print #1, TheText
Close
End Sub


Bon Dimanche
@+Thierry