Re : Facture et gestion stock
hum, ok, j'ai mis ce code, mais j'ai encore un bug
une erreur de compilation : Next sans for
là:
' Sauvegarder la facture
Sheets("Facture").Copy
' Empècher les erreurs d'arrêter la macro
On Error Resume Next
' Enlever la protection de la feuille
ActiveSheet.Unprotect
' Supprimer tous les boutons de la facture à sauvegarder
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
' Re-protéger la feuille
ActiveSheet.Protect
' Ré-activer le gestionnaire d'erreur
On Error GoTo 0
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
Et le début du code se met en jaune