export vers notepad avec ecrasement

[eric]

Bonjour a tous,
je viens de decouvrir ce forum (veritable mine d'or pour moi)..je souhaite faire une macro pour exporter un tableau sous note (pour faire du*.dat) et si le fichier existe ecraser l'existant.
j'ai deja trouve ds ce forum une macro pour exporter ce que je veux mais je ne sais pas comment ecraser le precedent fichier..
ci joint ce que j'ai deja trouve..
merci pour votre aide
eric

'macro écriture données plage A1:F1
'vériland Avril 2003
Sub Exporter_Plage_Dans_Fichier()
Dim Destination$, Selection%
Destination = "c:\windows\bureau\fichier.pnl"
Selection = FreeFile
Open Destination For Append As #Selection
With Range("A1:F1")
For i = 1 To [a65536].End(xlUp).Row
Print #Selection, Cells(i, 1).Value; Chr(32); _
Chr(32); Cells(i, 2).Value; Chr(32); _
Cells(i, 3).Value; Chr(32); Cells(i, 4).Value; Chr(32); _
Cells(i, 5).Value; Chr(32); Cells(i, 6).Value; Chr(32);
Print #1, ""
Next
End With
Close #Selection
End Sub

 

[@+Thierry]

Bonsoir Eric, le Forum

Remplace simplement Append par Output...

Regarde aussi l'aide VBA à "Open"

Bonne Soirée
@+Thierry

 

[eric]

je ne sais que dire, ce forum est tout simplement incroyable..
j'avais un soucis, je trouve une bonnne partie de la solution sur le forum, il me reste un pb je fais un post a + de 22h et dans la foulee j'ai la solution..
merci bcp bcp
bonne continuation a vous et a tres bientot
et encore merci a thierry

 

[@+Thierry]

de rien Eric !!!

Bon Travail (et bonne nuit)
@+Thierry