Bonjour,

J'importe régulièrement des fichiers depuis internet et aimerais que le bon répertoire apparaisse lorsque je les enregistre afin d'éviter de sélectionner le dossier approprié à chaque fois.

La macro suivante me permet de sélectionner le dossier souhaité qui apparaîtra lors de l'enregistrement:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RepParDéfaut()
 
        Dim rep As FileDialog
 
        Set rep = Application.FileDialog(msoFileDialogFolderPicker)
 
        rep.Show
        ChDir rep.SelectedItems(1)
 
'Note:
'Possible aussi: Application.DefaultFilePath = rep.SelectedItems(1)
 
End Sub
Cela fonctionne pour n'importe quel classeur y compris s'il est nouveau et en .xls, mais avec le fichier importé, ouvert sans être enregistré, c'est le répertoire "Bibliothèques\Documents" qui s'ouvre par défaut. Idem en remplaçant ChDir par Application.DefaultFilePath. Je suppose que c'est parce que le fichier importé est en lecture seule, mais au fond je n'en sais rien...

Pensez-vous qu'une solution existe?