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é.
Merci à tous ceux qui se dévouent pour les âmes en peine qui errent dans les labyrinthes du code vba.
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é.
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 = TrueMerci à tous ceux qui se dévouent pour les âmes en peine qui errent dans les labyrinthes du code vba.