Enregistrer sous avec nom fichier et chemin établi

Bonjour à tous,

Je vous explique mon probleme,

Je possède un fichier de type template en XLSM.

A l'ouverture du fichier, celui-ci demande automatiquement d'introduire des données via userform.

Une fois les données validées, je souhaiterai que ce fichier soit enregistrer automatiquement en XLSX (sans macro) à un autre endroit

  • avec un nom de fichier se trouvant dans une cellule (ex A1)
  • le chemin dans une cellule A2.

Merci d'avance pour vos réponses

Bonjour et bienvenue sur le forum

Essaie avec ça :

Private Sub CommandButton1_Click() 'Bouton Valider
     ...
    ...
    ActiveWorkbook.SaveAs ActiveSheet.Range("A2") & ActiveSheet.Range("A1")
End Sub

Attention : l'adresse du dossier doit se terminer par un anti slash. Ex : C:\Users\...\Desktop\mferaux\

Bye !

Bonjour,

bon en évitant les Active.... et en masquant les alertes :

 Application.DisplayAlerts = False
    ThisWorkbook.SaveAs ThisWorkbook.Sheets(1).Range("A2") & ThisWorkbook.Sheets(1).Range("A1"), XlFileFormat.xlOpenXMLWorkbook
    Application.DisplayAlerts = True

Super !!! Merci pour vos réponses. cela m'enleve une fameuse épine hors du pied.

Rechercher des sujets similaires à "enregistrer nom fichier chemin etabli"