Discussion :

[wyzer]

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.

[Theze]

Bonjour,

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

Hervé.

[vinc_bilb]

Bonjour,

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 :

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

DestPath = ActiveWorkbook.path

[tamtam64]

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 :

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

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

[clementmarcotte]

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.

[wyzer]

Re,

Alors je viens d'utiliser le code suivant :

Code :

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

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

[vinc_bilb]

Bonjour

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

Code :

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

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

[wyzer]

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.

[vinc_bilb]

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

Code :

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

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

[wyzer]

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 :

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

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

[vinc_bilb]

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

Code :

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

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

[wyzer]

Merci