B
bruno
Guest
bonjour
voila je souhaite pouvoir consulter mon fichier txt (cree avec une autre routine) en simultane avec les modifications que je lui apporte entre autre avec cette routine, cela permetrait de savoir en direct si ou non j'ai oublie des choses a exporter.
Mon fichier excel comporte plusieurs fois cette routine sur d'autres plages de cellules.
merci encore a vous que je ne connais pas, mais qui mon deja depanne.
A+
Private Sub CommandButton2_Click()
Dim Destination$, Selection%
Destination = "c:\V626\cuisines.txt"
Selection = FreeFile
Open Destination For Append As #Selection
With Range("R12:R15")
For c = 1 To .Columns.Count
For r = 1 To .Rows.Count
Print #Selection, .Cells(r, c).Text
Next r
Next c
End With
Close #Selection
End Sub
voila je souhaite pouvoir consulter mon fichier txt (cree avec une autre routine) en simultane avec les modifications que je lui apporte entre autre avec cette routine, cela permetrait de savoir en direct si ou non j'ai oublie des choses a exporter.
Mon fichier excel comporte plusieurs fois cette routine sur d'autres plages de cellules.
merci encore a vous que je ne connais pas, mais qui mon deja depanne.
A+
Private Sub CommandButton2_Click()
Dim Destination$, Selection%
Destination = "c:\V626\cuisines.txt"
Selection = FreeFile
Open Destination For Append As #Selection
With Range("R12:R15")
For c = 1 To .Columns.Count
For r = 1 To .Rows.Count
Print #Selection, .Cells(r, c).Text
Next r
Next c
End With
Close #Selection
End Sub