Sub CreationFichiercomptable()
'
' Creation du fichier comptable avec le numéro de facture
'
Dossier = "Z:\COMPTABILITE\sociétéxxx\Factures d'achats\Factures xxx Intégration en compta\"
Application.ScreenUpdating = False
' on copie la feuille dans un nouveau classeur
With Worksheets("Ecriture comptable")
.Select
.Copy
Application.CutCopyMode = False
No_Fact = .[C2]
End With
' on travaille la feuille dans le nouveau classeur
With ActiveSheet
Dim Cell As Range
' On cherche le dernier mot TOTAL en colonne E
Set Cell = Columns("E").Find("TOTAL", Cells(Rows.Count, "E"), xlValues, xlWhole, xlByColumns, xlPrevious)
' On détruit toutes les lignes "en-dessous" de ce mot
If Not Cell Is Nothing Then Rows(Cell.Row + 1 & ":" & Rows.Count).Delete
' On sauvegarde le nouveau classeur en Csv
Application.DisplayAlerts = False
.Parent.SaveAs Filename:=Dossier & "Facture xxx n° " & No_Fact & ".csv", _
FileFormat:=xlCSV, CreateBackup:=False, local:=True
' On ferme le nouveau classeur
.Parent.Close False
End With
Worksheets("Sommaire").Select
End Sub