Enregistrer sous sans ouvrir le classeur
Bonjour à tous,
J'ai un formulaire "Fiche", dans lequel j'ai créer un bouton qui permet de faire un enregistrer sous avec le nom du fichier et la date ("Fiche date du jour"), j'ai donc utilisé le code suivant:
ChDir "E:\DOCS\......"
ActiveWorkbook.SaveAs Filename:= _
"E:\DOCS\.....\Fiches " & Day(Date) & "." & Month(Date) & "." & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Ainsi, avec ce code je ferme le fichier "Fiche" et j'ouvre le fichier "Fiche date du jours".
Quel est le code à ajouter pour ne pas ouvrir ce nouveau classeur "Fiche date du jours", et rester dans le classeur initial "Fiche".
Merci pour votre aide.
Bonjour à tous,
J'ai un formulaire "Fiche", dans lequel j'ai créer un bouton qui permet de faire un enregistrer sous avec le nom du fichier et la date ("Fiche date du jour"), j'ai donc utilisé le code suivant:
ChDir "E:\DOCS\......"
ActiveWorkbook.SaveAs Filename:= _
"E:\DOCS\.....\Fiches " & Day(Date) & "." & Month(Date) & "." & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Ainsi, avec ce code je ferme le fichier "Fiche" et j'ouvre le fichier "Fiche date du jours".
Quel est le code à ajouter pour ne pas ouvrir ce nouveau classeur "Fiche date du jours", et rester dans le classeur initial "Fiche".
Merci pour votre aide.
Dernière édition:
