Discussion :

[DenisHen]

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 :

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

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...

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...

[DenisHen]

Bon, après de multiples recherches, c'est en fait tout simple.

Il faut placer le chemin dans le nom du fichier, comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
    'Définition du NOM du nouveau classeur
    NomDuFichierCible = ActiveWorkbook.ActiveSheet.Range("CommuneAffaire").Value & " " & ActiveWorkbook.ActiveSheet.Range("ZNC").Value
    'Définition du Chemin par défaut
    Chemin = "\\BACH\Cerene\21-Detection\DETECTION 2015"
    'Ajoute le chemin par défaut au nom de fichier
    NomDuFichierCible = Chemin & "\" & NomDuFichierCible
    '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

Je note ce sujet comme résolu...

Denis...