Enregistrer sous à l'aide d'une macro

[hassan.zer]

Bonjour à tous,

Je souhaiterai enregistrer mon classeur excel dans un repertoire du disque dur contenu dans une cellule et sous un nom contenu dans une autre cellule, est-ce possible, sous forme d'une macro ?

Merci à vous

 

[Pierrot93]

Re : Enregistrer sous à l'aide d'une macro

Bonjour,

regarde peut être le code ci-dessous si il peut t'aider :

ThisWorkbook.SaveAs Range("D10").Value & Range("C10").Value & ".xls"

bonne soirée
@+

 

[hassan.zer]

Re : Enregistrer sous à l'aide d'une macro

Bonjour Pierrot, merci cela fonctionne mais je m'aperçois que je dois créer avant le dossier correspondant, c'est possible de le faire a partir d'excel ? si c'est trop compliqué ne vous embêté pas je le ferai en manuel,

 

[Pierrot93]

Re : Enregistrer sous à l'aide d'une macro

Re

essaye ainsi, test si le dossier existe, si ce n'est pas le cas le créé :

If Dir(Range("D10").Value, vbDirectory) = "" Then MkDir Range("D10").Value
ThisWorkbook.SaveAs Range("D10").Value & Range("C10").Value & ".xls"

@+

 

[hassan.zer]

Re : Enregistrer sous à l'aide d'une macro

Génial! ça marche ! merci pierrot.