Sauvegarde classeur (VBA et Userform)"laisser ouvert"

Bonjour aux pro,

J'ai un pti bout de code qui me sert à sauvegarder un classeur entier ds un dossier crée auparavant par une autre macro bref...

lorsque je lance la macro tout se passe bien mais ca ferme le fichier d'origine alors que je voudrais qu'il reste ouvert !

Une petite idées svp ?

merci d'avance et bonne journée.

Private Sub CommandButton3_Click()

Dim FileExtStr As String

Dim FileFormatNum As Long

Dim Sourcewb As Workbook

Dim destwb As Workbook

Dim TempFilePath As String

Dim TempFileName As String

Dim OutApp As Object

Dim OutMail As Object

Dim S As Shape

Dim sNomFic As String, sRep As String, WshShell As Object

With Application

.ScreenUpdating = False

.EnableEvents = False

End With

' retrouver le chemin du bureau

ChDir ObtenirCheminBureau() & "\Projet"

' Definit le nom du fichier a enregistrer

sNomFic = Sheets("Devis").Range("A1").Value & ".xlsm"

' Enregistrer la feuille sous excel

ActiveWorkbook.SaveAs Filename:=sNomFic, FileFormat:=52, CreateBackup:=False

ActiveWorkbook.Close

'Workbooks.Open Filename:= sNomFic

MsgBox "the file has been saved"

End Sub

Bonjour sad006, bonjour le forum,

C'est "ActiveWorkbook.Close" qui ferme ton classeur,

Mets la ligne en commentaire ou supprime-là.

Joseph

Bonjour et MErci pour la reponse mais lorsque je met cette ligne en com c'est le fichier créer qui s'ouvre et celui d'origine se ferme !?

Bonjour sad006, bonjour le forum,

Dans le code fourni dans ta demande "CommandButton3", lequel correspond au bouton "Sauvegarde excel" du formulaire, si je mets en commentaire la ligne ''ActiveWorkbook.Close". La copie du fichier créé dans le dossier "Projet" sur le bureau "Amo.xlsm" se ferme et le fichier de départ reste ouvert. C'est le comportement observé sur ma machine.

Mais, je n'ai peut-être pas bien compris ta demande.

Joseph

bonjour,

tu as bien compris c'est exactement ca , ca fait bien ce que tu décrit à la seule différence que: (en ayant la ligne en com) lorsque j'appuie sur le bouton ds l'userform pour lancer la macro la fenêtre de l'superforme reste affiché et lorsque je la ferme ca ouvre le fichier crée et le fichier de départ se ferme !

En étant débutant, la je comprend plus rien...

Bonjour sad006, bonjour le forum,

Désolé ... rendu à mon âge, je comprends vite, mais il faut m'expliquer longtemps

Toujours en gardant la ligne ActiveWorkbook.Close en commentaire, change la ligne précédente pour :

ActiveWorkbook.SaveCopyAs Filename:=sNomFic ... sans le Fileformat ni le Createbackup.

Remarque que j'ai changé SaveAs pour SaveCopyAs.

Ça fonctionne bien mieux.

Joseph dure de la comprenure