Export partiel

bonjour

j'exporte une grille calculée avec excel sous CSV

L'export s'effectue correctement .

La grille que j'exporte peux au minimum etre d'une ligne et au maximum de 360 lignes

comment peut-on faire en sorte que l'export de xls vers csv ne prenne que les lignes remplies.

ci joint la macro

Sub exporttrapluskgs()

Sheets("traplus kgs").Visible = True

Sheets("traplus kgs").Select

Range("A1:AD361").Select

Selection.Copy

Sheets("traplus kgs").Visible = False

Workbooks.Add

Cells.Select

ActiveSheet.Paste

Columns("A:AD").Select

Application.CutCopyMode = False

Selection.Copy

Columns("A:AD").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Application.Dialogs(xlDialogSaveAs).Show xFileName, xlCSV

End Sub

Merci de vos répnses

Lionel

Salut Lionel

Regarde du côté de CureentRegion

Range("A1").CurrentRegion.Select

Mytå

Merci j'avais oublié cette fonction

Lionel