Sub btnsauvegarder_Click()
' ATTENTION : L doit etre de type Long, car Interger va de -32000 à + 32000
Dim L As Long 'Déclaration de variable "L" pour connaitre la Ligne Numéro
Dim Shp As Shape ' Pour supprimer les boutons
Dim Chemin As String, NomFic As String
'enregistrement dans Base pour pointage annee
'ici je repère la dernière ligne vide pour la Collections des données
L = Sheets("Recap-Fact").Range("a65536").End(xlUp).Row + 1
'Pour voir se qui se passe je bascule sur la feuille
Sheets("Recap-Fact").Activate
'Ici c'est le report de la saisie dans la feuille
With Sheets("Recap-Fact")
'Baker
.Range("a" & L).Value = Worksheets("Facture").Range("g13")
.Range("b" & L).Value = Worksheets("Facture").Range("g15")
.Range("c" & L).Value = Worksheets("Facture").Range("f5")
.Range("d" & L).Value = Worksheets("Facture").Range("f6")
.Range("e" & L).Value = Worksheets("Facture").Range("g46")
End With
' Sauvegarder la facture
Sheets("Facture").Copy
' Supprimer tous les boutons de la facture à sauvegarder
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
' Initialiser les variables Chemin et Nom fichier
Chemin = "F:\starduck\Gestion\FacturesClients\"
NomFic = "Facture n° " & Format(Range("G13"), "00000") & " " & Range("F5").Value & ".xls"
' Sauvegarder et fermer la facture sauvegardée
With ActiveWorkbook
.SaveAs Filename:=Chemin & NomFic
.Close
End With
End Sub