Bonjour à tous,
Voilà, j'ai une macro qui, depuis un tableau général, ouvre un autre XLS, qui est en fait un déboursé, rempli ce classeur puis demande une sauvegarde avec un nom de proposé.
Elle se présente comme ça :J'aimerais juste "proposer", en plus du nom, un emplacement. Car le fichier XLS se trouve très loin de sa destination d'enregistrement, et il faut, à chaque fois, se refaire toute l’arborescence pour désigner le bon chemin...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 'Définition du NOM du nouveau classeur NomDuFichierCible = ActiveWorkbook.ActiveSheet.Range("CommuneAffaire").Value & " " & ActiveWorkbook.ActiveSheet.Range("ZNC").Value 'Définition de l'extension du Classeur à enregistrer FichierComplet = Application.GetSaveAsFilename(InitialFileName:=NomDuFichierCible, fileFilter:="Classeur Excel (*.xls), *.xls") 'Si "Annule" -> Exit If FichierComplet = False Then Exit Sub ''Enregistrement du Fichier ActiveWorkbook.SaveAs FichierComplet
Excel me propose systématiquement "Bibliothèques\Documents", ce qui est normal, mais j'aimerai le remplacer par un autre chemin (ex : B:\21-Detection\DETECTION 2015\...).
Je n'ai rien trouvé dans l'aide...
Merci à vous,
Denis...
Partager