Enregistrement dans répertoire courant

papypog

XLDnaute Occasionnel
Bonjour,

Dans le code ci-dessous j'aimerais remplacer « G:\toto\ » par le répertoire dans lequel se trouve le document actif, j’ai bien cherché mais j’ai point trouvé.:mad:

Code:
Dim D As String
D = Day(Now) & Month(Now) & Year(Now)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="G:\toto\test_" & D & ".xlsm"
Application.DisplayAlerts = True

Merci à tous ceux qui se dévouent pour les âmes en peine qui errent dans les labyrinthes du code vba.
 

papypog

XLDnaute Occasionnel
Re : Enregistrement dans répertoire courant

Re bonjour,

Mille MERCIS, :eek:

J'ai toutefois remplacé "ThisWorkbook" par "ActiveWorkbook"

Code:
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\test_" & D & ".xlsm"

encore une fois MERCI pour la rapidité de la réponse.
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 924
Membres
101 841
dernier inscrit
ferid87