Private Sub Workbook_Open()
Sheets("Facture").Cells(5, 4) = Sheets("Facture").Cells(5, 4) + 1
End Sub
Sub Sauvegarde()
Dim chemin, nom As String
chemin = "C:\" 'dossier à changer selon le souhait
nom = "facture_" & Sheets("Facture").Cells(5, 4)
ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Sheets("Facture").Cells(5, 4) = Sheets("Facture").Cells(5, 4) + 1
End Sub
Ca suffit, vous ne comprenez rien à ma demande !
Ca suffit, vous ne comprenez rien à ma demande !
Certainement.Bonjour tout le monde,
Pourquoi tant de haine ,le fichier de Legolas correspond à votre demande.
C'est surtout vous qui comprenez rien au fichier proposé.
Cdt
j'ai demandé une réponse plus simple et pédagogique via un exemple, ou carrément une correction sur mon fichier pour comprendre.