Enregistrement dans répertoire courant

[papypog]

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

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.

 

[Dull]

Re : Enregistrement dans répertoire courant

Salut papypog, le Forum

Essaye avec ThisWorkbook.Path & "\" & D &".xlsm"

Bonne Journée

 

[papypog]

Re : Enregistrement dans répertoire courant

Re bonjour,

Mille MERCIS, 😱

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

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

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