Enregistrer Feuille Active dans le répertoire actuel

Bonjour à tous,
Je voudrais exporter les données de ma base (base protégée par mot de passe,
avec une BO spécifique) dans une feuille XL simple (sans mot de passe, avec
barre des menus normale).
J'ai écris ça:
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False

End With

Mon problème: le nouveau classeur est enregistré non pas dans le répertoire
actuel mais dans C:.
Je souhaite que l'enregistrement de cette nouvelle feuille soit fait dans le
même répertoire que la base d'origine.
Que me suggérez-vous?

Mille merci d'avance.

Bonjour,

utiliser Thisworkbook.path pour retouver le répertoire de ta base
d'origine ouisque ta macro est lancée depuis ta base d'origine

With ActiveWorkbook
.SaveAs Thisworkbook.path & "" & "DproTG", PassWord:=""
.Close 'si nécessaire
end with

A+

Bonjour à tous,
Je voudrais exporter les données de ma base (base protégée par mot de
passe, avec une BO spécifique) dans une feuille XL simple (sans mot de
passe, avec barre des menus normale).
J'ai écris ça:
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
End With

Mon problème: le nouveau classeur est enregistré non pas dans le
répertoire actuel mais dans C:.
Je souhaite que l'enregistrement de cette nouvelle feuille soit fait dans
le même répertoire que la base d'origine.
Que me suggérez-vous?

Mille merci d'avance.