VBA Enregistrer classeur à un endroit défini
Bonjour
Je rencontre un problème lorsque j'essaye d'enregistrer le classeur que ma macro vient de créer et de modifier.
Malgré toutes les propositions trouvés je n'arrive pas à choisir le chemin de destination. Le fichier s'enregistre donc à l'endroit ou excel enregistre ses fichiers temporaires etc se qui n'est pas une fin en soit si je suis le seul à utiliser le programme mais ce n'est pas le cas je dois pouvoir déplacer mon fichier et que chaque macro enregistre le fichier qu'elle créé dans le fichier de mon choix
Je vais glisser ma macro, je sais pas si ça ne va pas vous embrouiller plus qu'autre chose mais bon je test
Voilà donc la macro la plus simple:
Sub ExportGrdf()
Dim Cl As Workbook
Dim Fe As Worksheet
Set Fe = Worksheets("Secteur NANCY")
Application.ScreenUpdating = False
Set Cl = Workbooks.Add
With Cl
.SaveAs ("Suivi CICM" & " " & "extrait le" & " " & Format(Date, "dd.mm.yyyy") & " " & "- Oti France" & ".xls")
Windows("Suivi CICM extrait le 04.04.2017 - Oti France.xls").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Gestion BRC.xlsm").Activate
Fe.Copy .Worksheets("Feuil1")
Application.DisplayAlerts = False
.Worksheets("Feuil1").Delete
Windows("Suivi CICM extrait le 04.04.2017 - Oti France.xls").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Gestion BRC.xlsm").Activate
Application.DisplayAlerts = True
.Save
.Close
End With
Application.ScreenUpdating = True
Set Fe = Nothing
Set Cl = Nothing
End Sub