Microsoft 365 sauvegarde puis fermeture fichier

[gilles37]

Bonjour le Forum,

Avec le commandbutton1, je souhaite qu'il valide des données , ca c'est ok grâce a Job75, mais aussi que le fichier s'enregistre et se ferme a l'issue
ci dessous code en bleu, mais cela ne fonctionne pas

Private Sub CommandButton1_Click()

F.Cells(lig, 1) = Nom
F.Cells(lig, 2) = CDate(Label4)
If Label5 <> "" Then F.Cells(lig, 3) = CDate(Label5)
Unload Me 'ferme l'UserForm

activeWorkbook.save. close true

End Sub

merci pour votre aide

 

[sylvanu]

Bonjour Gilles,
Essayez :

Workbooks(Nom_Classeur).Close True 'False si sans sauvegarde

ou dans votre cas :

activeWorkbook.Close True

 

[gilles37]

Impeccable
Je n'étais pas loin de la solution
Merci