Excel Downloads Forums - Afficher un message - Comment puis-je lui imposser de proposer l'enregi

Nevil · 22/03/2006, 17h49

Code:

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

22/03/2006, 17h49	#2 (permalink)
Nevil XLDnaute Occasionel Date d'inscription: décembre 2005 Localisation: limoges Version Excel : Excel 97 (PC) Messages: 223	Re:Comment puis-je lui imposser de proposer l'enregi Code: 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 __________________ Force Et Honneur Ombre Et Poussière