Récupérer dossier courant avant l’exécution de la Macro

Bonjour à vous,

Voilà, j'ai développé une Macro qui permet de remettre en forme un fichier Excel pour mes collègues.

Pour le remettre en forme, la Macro utilise un modèle de Trame qui est stocké sur le réseau (disons T:\MODELES\)

Une fois le résultat généré, l'utilisateur enregistre ce nouveau fichier dans le dossier qu'il désire.

Or, lorsque la boîte de dialogue apparaît, c'est le dossier T:\MODELES\ qui s'affiche par défaut.

Comment faire pour récupérer le dernier dossier utilisé par l'utilsateur avant de lancer la Macro, pour qu'il puisse s'afficher par défaut lorsqu'il voudra enregistrer le fichier s'il vous plaît ?

Merci par avance.

Cordialement.

Bonjour,

Regarde du coté de "CurDir" (voir l'aide)

Hervé.

Bonjour,

Citation:

---

Voilà, j'ai développé une Macro qui permet de remettre en forme un fichier Excel pour mes collègues.

---

=> Donc, sauf incompréhension, vous pouvez à ce moment là sauver le chemin du fichier de votre collègue, par

Code:

---

DestPath = ActiveWorkbook.path

---

Moi je dirais plutot thisworkbook non? car il yaurais peut etre confusions justement car ce n'est pas le workbook actif , si tu utilise thisworkbook.path je pense que la confusion est impossible pour vba

Code:

---

save as thisworkbook.path & \" nom de fichier"

---

Bonjour,

Il faut toujours être prudents quand on veut utiliser ThisWorkbook et ActiveWorkbook. Il ne faut jamais oublier que toute macro d'un classeur ouvert peut agir sur n'importe quel autre classeur ouvert dans la même session d'Excel.

ThisWorkbook désigne toujours le classeur qui contient la macro en cours.

ActiveWorkbook désigne le classeur actif. Sauf si on utilise Activate pour le désigner explicitement, c'est plus souvent qu'autrement le dernier classeur ouvert. (C'est un des cas ou Activate devrait être utilisé, pour être sûr de viser à la bonne place.)

Généralement, c'est plutôt recommandable d'utiliser le nom du classeur, ou un objet workbook spécifique, et c'est la même chose pour les objets sheet et Worksheet, dans les instructions VBA.

Re,

Alors je viens d'utiliser le code suivant :

Code:

---

1 2 3 4 5 6

' Début de la Macro sCurDir = CurDir     ' Fin de la Macro ChDir (sCurDir)

---

Mais lorsqu'on enregistre le fichier généré par la Macro, le dossier par défaut est celui du Modèle utilisé par le Macro, et non celui de l'utilisateur avant le lancement :(

Bonjour

Voir ci-dessous si ça peut vous aider ....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub SaveAs()   Dim SavPath As String Dim FName As String   SavPath = "C:\Users\bremondv\Documents\tmp\" FName = Application.GetSaveAsFilename(SavPath, "Excel files (*.xlsx), *.xlsx)", , "Sauvegarde ....")     ActiveWorkbook.SaveAs Filename:=FName   End Sub

---

Bonjour,

Merci pour ton aide.

En fait la Macro ne doit pas effectuer l'enregistrement, c'est l'utilisateur qui enregistre le résultat où il le souhaite.

Ben oui ..... d'où l'utilité du:

Code:

---

1 2 3

FName = Application.GetSaveAsFilename(SavPath, "Excel files (*.xlsx), *.xlsx)", , "Sauvegarde ...."   End Sub

---

ça positionne juste le path par défaut et laisse l'utilisateur en choisir un autre via l'interface graphique ....

Bon j'ai fait comme tu m'as dit ;)

Pour ceux que ça intéresse, ChDir ne modifie que le dossier par défaut lors de l'ouverture d'un fichier, et non pour l'enregistrement.

Voici le code final :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

' Début de la Macro sCurDir = CurDir sCurDrive = Left(sCurDir, 2)   .....   ' Fin de la Macro ChDrive sCurDrive ChDir sCurDir sTemp = Application.GetSaveAsFilename(SavPath, "Excel files (*.xls), *.xls)", , "Sauvegarde ....") ActiveWorkbook.SaveAs Filename:=sTemp

---

Bonjour
Proposition d'amélioration (si l'utilisateur presse 'Esc'):

Code:

---

1 2 3 4

if sTemp <> "" Then ActiveWorkbook.SaveAs Filename:=sTemp Else: '...' End If

---

Merci ;)