Enregistrer un fichier à un autre emplacement

Bonjour,

Je suis débutant en VBA (j'y suis depuis 5 jours), et je cherche à enregistrer mon fichier à un autre emplacement, sans qu'il n'y ait de copie de ce fichier comme c'est le cas avec le "enregistrer sous".

Je vous remercie de votre aide.

Bonjour

De même que manuellement, tu ne peux enregistrer un fichier ouvert qu'en copie (enregistrer sous)

Bonjour dcnc2022

Une piste, faire un fichier enregistrer sous et supprimer l'existant

A tester

Sub EnregistrerAilleurs()
  Dim sPathIni As String, sPathD As String
  Dim sFicIni As String, sFicD As String
  ' Chemin et nom du fichier d'origine
  sPathIni = ThisWorkbook.Path & "\": sFicIni = ThisWorkbook.Name
  ' Chemin et nom du fichier de destination
  sPathD = "C:\":   sFicD = "NouveauNom.xlsm"
  ' Enregistrer le classeur au nouvel endroit
  ThisWorkbook.SaveAs Filename:=sPathD & sFicD
  ' Si aucune erreur ne s'est produite
  If Err.Number = 0 Then
    ' Supprimer l'ancien fichier
    Kill sPathIni & sFicIni
  End If
End Sub

Attention !
Conserver une copie du fichier source au cas ou

A+