Enregistrer fichier dans un répertoire (qui a été déplacé)

Bonjour,

Dans le fichier joint, est-il possible d'adapter la macro, pour qu'elle s'exécute après avoir localisé (sans notre intervention), le répertoire déplacé (exemple : C:\OFFICE\EXCEL\...).

Sub Macro2()
    ChDir "I:\EXCEL"
    ActiveWorkbook.SaveAs Filename:="I:\EXCEL\Classeur1.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Merci pour votre aide.

bonjour,

si j'ai bien compris

essaie ceci

Sub Macro2()
    ChDir "I:\EXCEL"
    ActiveWorkbook.SaveAs Filename:=CurDir & "\Classeur1.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Cela fonctionne parfaitement. Merci pour ton aide. Bon weekend.