Bonjour,

La procédure ci-dessous me permet de sauvegarder le classeur ouvert dans un autre fichier :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SaveFile()
  Dim Filename As String
 
  If MsgBox("Do you want to save the comparison between TEST and AS on your local drive ?", vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
    Filename = "Compare_TEST_AS_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsm"
    With Application.FileDialog(msoFileDialogSaveAs)
      .Title = "Save File as"
      .InitialFileName = Filename
      .FilterIndex = 2 ' 1 = xlsx, 2 = xlsm, 3 = xlsb
      .Show
      .Execute
    End With
  End If
End Sub
Lorsque j'exécute cette macro le fichier est bien sauvegardé dans le dossier que je lui ai indiqué mais celui-ci n'est pas ouvert.
J'aurais besoin de récupérer le nom du dossier dans lequel j'ai enregistré ce fichier car je dois le re-ouvrir....

Autre question : comment modifier cette macro pour que l'enregistrement ne comporte que l'onglet actif ?

Merci par avance.

Cdlt.
Jérôme.