E
eric
Guest
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
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