Bonjour le forum!
J'ai un petit problème:
Dans un classeur Excel, j'ai un bouton qui permet à un utilisateur de sauvegarder son fichier au format .xlsx (sans macros) mais une fois cette sauvegarde réalisée, je veux qu'on soit de nouveau sur le fichier initial.
Voici le code que j'avais:
Le problème c'est que quand la copie est enregistrée, mon classeur sur lequel j'étais a été modifié: il porte le nom de la sauvegarde, en fait c'est un sauvegarder sous et du coup je ne suis plus sur le fichier du début...
ce que je souhaite en fait c'est:
1) nous sommes sur notre fichier avec macros "TEST.XLSM"
2) On créer une sauvegarde de ce fichier appelée "ANALYSIS 1.XLSX" mais on ne l'ouvre pas
3) On est de nouveau sur "TEST.XLSM" et on peut continuer notre travail
4) et ainsi de suite..
Merci de votre aide!
J'ai un petit problème:
Dans un classeur Excel, j'ai un bouton qui permet à un utilisateur de sauvegarder son fichier au format .xlsx (sans macros) mais une fois cette sauvegarde réalisée, je veux qu'on soit de nouveau sur le fichier initial.
Voici le code que j'avais:
Code:
'Récupération du chemin contenant le répertoire où on enregsitrera les analyses:
chemin_sauvegarde = LireIni("SAVING", "dir") 'On récupère le chemin du répertoire où seront stockées les analyses
On Error Resume Next
ChDir chemin_sauvegarde 'test de l'existence du répertoire renseigné dans fichier de config.
If err Then
MsgBox ("The path specified in the configuration file is empty or doesn't exist")
'On met en place une applcation pour que l'utilisateur puisse choisir le répertoire ici même:
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Title = "Select the directory where you want to save a copy" 'Titre de la fenêtre
Repertoire.Show 'On affiche la fenêtre
chemin_sauvegarde = Repertoire.SelectedItems(1) 'Nouveau chemin!
ChDir chemin_sauvegarde
'Si il annule:
If Repertoire.SelectedItems(1) = "" Then Exit Sub
End If
On Error GoTo 0
'----------------------------------- On enreigstre la copie----------------------------------------------------
nb = nbfich(chemin_sauvegarde, "xlsx") 'On compte le nb de fichiers déjà sauvegardés
nb = nb + 1
nom1 = "Analysis (" & nb & ") of " & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
ActiveWorkbook.SaveAs chemin_sauvegarde & "\" & nom1, FileFormat:=xlOpenXMLWorkbook 'Sauvegarde
ActiveWindow.Close
rep = MsgBox("Your analysis is saved under the name : " & nom1, vbYes + vbInformation, "Copy of analysis") ' message d'info
Le problème c'est que quand la copie est enregistrée, mon classeur sur lequel j'étais a été modifié: il porte le nom de la sauvegarde, en fait c'est un sauvegarder sous et du coup je ne suis plus sur le fichier du début...
ce que je souhaite en fait c'est:
1) nous sommes sur notre fichier avec macros "TEST.XLSM"
2) On créer une sauvegarde de ce fichier appelée "ANALYSIS 1.XLSX" mais on ne l'ouvre pas
3) On est de nouveau sur "TEST.XLSM" et on peut continuer notre travail
4) et ainsi de suite..
Merci de votre aide!