Bonjour a tous
Sub Dipllication()
Sheets("ventes ciments").Select
Sheets("ventes ciments").Copy After:=Sheets(1)
Range("A6:G33,E40:E48").ClearContents
ActiveSheet.Name = "Ventes Ciments " & Format(Date, "dd-mmm-yyyy")
End Sub
J'ai un probleme de mon code quand je l'execute j'ai cette erreur suivante
erreur de compilation projet ou bibliotheque introuvable
svp aidez moi.
Sub Dipllication()
Sheets("ventes ciments").Select
Sheets("ventes ciments").Copy After:=Sheets(1)
Range("A6:G33,E40:E48").ClearContents
ActiveSheet.Name = "Ventes Ciments " & Format(Date, "dd-mmm-yyyy")
End Sub
J'ai un probleme de mon code quand je l'execute j'ai cette erreur suivante
erreur de compilation projet ou bibliotheque introuvable
svp aidez moi.