Discussion :

[Dédé6621]

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?

[unparia]

Bonjour
Pas vraiment clair ...
Que veux-tu ? Que la boîte de dialogue s'ouvre sur un dossier particulier par défaut ?
C'est la propriété InitialFileName de ton objet rep, qu'il faut alors utiliser.
Ainsi (exemple) :

Code :

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

1
2
3
Set rep = Application.FileDialog(msoFileDialogFolderPicker)
rep.InitialFileName = "c:\"
rep.Show

[Dédé6621]

Ta macro avec InitialFileName affiche une boîte de dialogue permettant de choisir un répertoire à partir d'un chemin d'accès défini dans la procédure. Sauf erreur, ça ne fait pas de ce répertoire un dossier par défaut pour un autre usage, c'est-à-dire dans une autre boîte de dialogue. Ou Est-ce que je me trompe?

La macro ne doit servir qu'une fois, au début de ma session, pour définir un dossier particulier par défaut. Ce répertoire s'ouvre automatiquement ensuite lorsque je veux enregistrer un classeur et en particulier lorsque je veux enregistrer un fichier importé d'internet.

Si tu regardes ma macro, tu peux en déduire ce que je veux faire. Elle fonctionne lorsqu'il s'agit d'enregistrer un classeur non importé d'internet. Elle permet seulement de choisir un répertoire par défaut. Ensuite, lorsque j'enregistre un classeur, c'est ce répertoire par défaut qui s'affiche dans la boîte de dialogue d'enregistrement.

Est-ce suffisamment clair?

[unparia]

Toujours pas vraiment très clair
A tout hasard :
- on se réfère au répertoire courant par CurDir
- J'appelle ton attention sur ce que tu peux lire dans ton aide interne VBA :

L'instruction ChDir change le dossier par défaut mais pas le lecteur par défaut. Par exemple, si C est le lecteur par défaut, l'instruction ci-dessous change le dossier par défaut sur le lecteur D, mais C reste le lecteur par défaut :

- le lecteur par défaut se spécifie par l'instruction ChDrive

Je n'ai pas bien compris quel était ton problème, mais tu devrais pouvoir te servir de tout cela.