Discussion :

[puresprit]

Bonjour !

J'ouvre un fichier Excel quelconque.
Je teste le "répertoire courant" par une macro d'une ligne :

Code :

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

1
2
3
Sub test()
debug.print CurDir
end Sub

J'obtiens le path correspondant au fichier.
Je reviens dans Excel et je fais : "Enregistrer sous..."
J'obtiens un AUTRE répertoire, qui est le tout dernier dans lequel j'ai opéré une sauvegarde.
Ma question : ce "répertoire_de_sauvegarde_par_défaut" est-il identifié par une variable contextuelle d'un niveau quelconque (Excel, Appli...) ? Il me faudrait une soluce qui fonctionne sur PC et sur Mac....

Merci à tous !

[Philippe Tulliez]

Bonjour,
Parles-tu de cette propriété ?

Code :

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

msgbox Application.DefaultFilePath

[puresprit]

Yes ! Sauf qu'il s'agit d'une propriété... 2013 et que mes clients ont des versions allant de 2003 à 2010 !

Merci quand même.

[Philippe Tulliez]

Bonjour,
Ce n'est peut-être pas la propriété que tu attendais mais je peux te certifier que c'est une propriété qui existe dans les versions 2003, 2007 et 2010.

[puresprit]

Bonjour,
Ce n'est peut-être pas la propriété que tu attendais mais je peux te certifier que c'est une propriété qui existe dans les versions 2003, 2007 et 2010.

Sur le site de l'homme-le-plus-riche-du-monde, c'est donné comme une propriété 2013 :
http://msdn.microsoft.com/fr-fr/libr.../ff835839.aspx

Je l'ai testé sur 2003 (sur Mac) et sur 2007 (sur PC) : elle ne plante pas, mais elle ne donne... rien.

C'est vraiment c..., car c'est vraiment utile quand on pilote un process qui gère plein de fichiers différents ! Je me suis rabattu sur une rustine qui lit et sauve dans le fichier lui-même son répertoire-courant lors de l'Open et du Close. Mais si un autre fichier est ouvert et qu'un "Save as" est déclenché via cet autre fichier, le premier n'en sait rien, évidemment...... C'est vraiment une propriété "Application".

Merci de ton aide !

[Philippe Tulliez]

Bonjour,

Je me suis rabattu sur une rustine qui lit et sauve dans le fichier lui-même son répertoire-courant lors de l'Open et du Close. Mais si un autre fichier est ouvert et qu'un "Save as" est déclenché via cet autre fichier, le premier n'en sait rien, évidemment...... C'est vraiment une propriété "Application".

Si c'est le répertoire courant du fichier que tu ouvres alors c'est une autre propriété

Code :

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

MsgBox ThisWorkbook.Path

Ou

Code :

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

MsgBox Workbooks("Nom").Path

[Marc-L]

@ puresprit :

Cela ne veut pas dire que c'est exclusivement une propriété de la version 2013 !

La preuve : http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx …



______________________________________
L'expérience, c'est une connerie par jour, mais jamais la même …

[PMO2017]

Bonjour,

Si cela peut éclairer, je suis sous PC et possède les versions Excel 2003 et 2007.
J'ai testé la proposition de Philippe Tulliez

Code :

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

1
2
3
Sub aa()
MsgBox Application.DefaultFilePath
End Sub

J'obtiens le résultat attendu.

[Marc-L]

Bonjour.

Je viens de tester sur une version 2003 SP3 sous Seven : malgré la modification de la propriété DefaultFilePath,

la commande Enregistrer sous... du menu Fichier n'en tient pas compte !

[Philippe Tulliez]

Bonjour Marc,

Bonjour.
Je viens de tester sur une version 2003 SP3 sous Seven : malgré la modification de la propriété DefaultFilePath,
la commande Enregistrer sous... du menu Fichier n'en tient pas compte !

Effectivement, je travaille encore avec des versions Windows XP. Je ne peux donc pas en dire plus.
As-tu forcé la propriété avec un code VBA ou avec la boîte de dialogue des options ?
Pour ma part et avec la version 2003, Excel conservait l'ancienne adresse lorsque j'ai changé l'option à l'aide de la boite de dialogue. J'ai dû effectuer ce changement avec du code VBA.