Adresse ou enregistrer mon fichier dans une cellule

[choupi_nette]

Bonjour tout le monde,

A partir d un fichier xlt (modele ou template) j'ai un export de la feuille excel qui se fait automatiquement.
J'aimerai y ajouter deux choses lors de l'export:

Le chemin pour l'export du fichier qui changera de temps en temps et que j entre dans une cellule A1 par exemple

Et ensuite mettre un nom de projet qui s'inscrira dans le nom du fichier xls

Exemple

en A1 je mets : c:/excel/Choupi
En A2 je mets un nom de projet: Blairwitch ( par exemple)

Et lors de l'export:
Le fichier sera exporté dans c:/excel/Choupi
et son nom sera Blairwitch.xls

Pouvez vous m'aider a faire ca en vba ?
Merci

 

[Softmama]

Re : Adresse ou enregistrer mon fichier dans une cellule

Bonsoir,

tu peux essayer cette macro évènementielle à placer dans le module de ton classeur (ThisWorkBook) :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  ThisWorkbook.SaveAs Filename:=Range("A1") & "/" & Range("A2") & ".xls"
  Cancel = True
End Sub

 

[Softmama]

Re : Adresse ou enregistrer mon fichier dans une cellule

Bonsoir,

tu peux essayer cette macro évènementielle à placer dans le module de ton classeur (ThisWorkBook) :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  ThisWorkbook.SaveAs Filename:=Range("A1") & "/" & Range("A2") & ".xls"
  Cancel = True
End Sub

 

[choupi_nette]

Re : Adresse ou enregistrer mon fichier dans une cellule

Merci pour la reponse rapide
Je teste ca demain
Bonne nuit

 

[choupi_nette]

Re : Adresse ou enregistrer mon fichier dans une cellule

Bonjour,
J'ai colle la macro dans this workbook mais rien ne se passe..
n'est il pas possible de l'inclure dans une macro deja existante car je ne sais pas la lancer depuis ThisWorkBook, seulement depuis un module
Merci

 

[choupi_nette]

Re : Adresse ou enregistrer mon fichier dans une cellule

Re,
Voici un fichier
Le but c est d inclure dans la macro lors du save as:
un nom de projet: Blairwitch ( par exemple) cellule B47 dans le nom du fichier
Et l'exporter vers C:\Choupi\

Est ce que qulqu'un saurait faire ca dans mon fichier XLT ?

MERCI

 

[choupi_nette]

Re : Adresse ou enregistrer mon fichier dans une cellule

Re,
Voici un fichier
Le but c est d inclure dans la macro lors du save as:
un nom de projet: Blairwitch ( par exemple) cellule B47 dans le nom du fichier
Et l'exporter vers C:\Choupi\

Est ce que qulqu'un saurait faire ca dans mon fichier XLT ?

MERCI