XL 2019 Enregistrer copie fichier et garder l'orginal ouvert

[duplaly]

Bonjour
J'essaye d'écrire une macro pour enregistrer une copie du fichier en cours sous un autre nom, le fermer ensuite.
En fermant la copie, j'aimerais continuer avec la version originale.
En d'autres termes, je vais avoir 2 fichiers d'ouvert avec des noms diférents à un certain moment donné.

Est-ce que cela se fait?

Merci pour toute aide à l'avance!

 

[job75]

Bonjour duplaly,

Utilisez SaveCopyAs puis ouvrez le fichier ainsi créé.

A+

 

[job75]

Voyez le fichier joint et la macro du bouton :

Sub Creer_copie()
On Error Resume Next
Workbooks("Copie de " & ThisWorkbook.Name & ".xlsm").Close 'si le classeur est ouvert on le ferme
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\Copie de " & ThisWorkbook.Name & ".xlsm"
Workbooks.Open ThisWorkbook.Path & "\Copie de " & ThisWorkbook.Name & ".xlsm"
End Sub

 

[duplaly]

Hello Job
Ton code fonctionne en mode local sur mon ordinateur. Le vrai fichier est dans SharePoint, ce qui change un peu la situation.
Voici le code actuel que je travaille afin que tu l'adaptes pour moi.

Merci!

Sub SavetoCPR()
Dim Path As String

Application.DisplayAlerts = False
ActiveWorkbook.Save

ActiveWorkbook.SaveAs Filename:= _
"https://erm.cpggpc.ca/dept/Operations/Quebec/Etablissement/UVCR/UVCR-EQUIPEMENTS/CPR/Comds Clients-" & " " & Format(Now, "dd mmmm yyyy") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Sheets("Rapport_Transport").Visible = False
Sheets("DataEntry").Visible = False

Application.ScreenUpdating = True

'ActiveWorkbook.Save
ActiveWorkbook.Close , Savechanges = yes

Application.DisplayAlerts = True


End Sub

 

[job75]

Au post #3 j'ai mis la ligne Workbooks(xxx).Close en 3ème position.

 

[duplaly]

hello
Tu n'as pas modifié le code pour moi avec le bon chemin

 

[job75]

Tu n'as pas modifié le code pour moi avec le bon chemin

Dans mon code vous pouvez toujours remplacer ThisWorkbook.Path par un autre chemin.

 

[duplaly]

Merci pour tout, mais cela ne fonctionne pas. Le chemin mène vers un serveur nuagique, c'est la difficulté.

 

[kiki29]

Salut, une recherche ?