Comment puis-je lui imposser de proposer l'enregi

[pmfontaine]

Bonjour,
Avec ce code, je veux enregistrer une feuille d'un classeur en donnant le nom 'nomfichier' qui se trouve dans A1.
Mon problème est qu'il me propose systématiquement le dossier 'mes documents' comme dossier d'enregistrement.
Comment puis-je lui imposser de proposer l'enregistrement en partant de 'Poste de travail'
J'ai essayé avec ChDir, mais je ne sais pas l'utiliser.

Sub enregistrement()
ActiveSheet.Copy
nomfichier = Range('A1').Value
Application.Dialogs(xlDialogSaveAs).Show nomfichier
End Sub

Merci
Patrick

 

[Nevil]

Sub enregistrement()
ActiveSheet.Copy
nomfichier = Range('A1').Value
ChDrive ('N:')
ChDir ('N:\\XX\\YY\\ZZ\\AA')
Application.Dialogs(xlDialogSaveAs).Show nomfichier
End Sub

ChDrive ('N:')
ChDir ('N:\\XX\\YY\\ZZ\\AA')

avec ce code tu force l'enregistrement dans le lecteur et le dossier que tu veux.
Par contre pour forcer vers le poste de travail je ne sais pas comment faire. Et la je débauche donc ... bonne soirée et a demin si ta encore ton probleme

 

[pmfontaine]

Bonjour,
Merci ta réponse me donne une solution satisfaisante en attendant le code du chemin de 'Poste de travail'