enregistrer sous un nom repris dans une cell

[Etienne]

loin d'être un expert j'ai bricoler une macro qui devrais enregistrer un nouveau fichier sous un nom qui est contenu dans une cellule et c'est là que ça coince, je en comprends pas pourquoi.

Quelqu'un peut-il me conseiller?

Merci de partager vos connaissances [file name=mamacroplante.zip size=3739]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mamacroplante.zip[/file]

 

[edelweisseric]

Bonjour Etienne

Ne connaissant pas ce qu'il y a dans C9, je te propose cette idée :

Dans c9 il faut qu'il y est du texte entouré de '', et que le chemin soit complet :
'C:\\toto\\mamacro.xls'
et la ligne :
ThisFile = Range('C9').Value
devrait être :
ThisFile = Range('C9').text

J'espère que cela t'aidera et que cela fonctionnera

Cordialement

 

[Blunet]

Salut Etienne,
J'ai pas ouvert ton fichier mais d'après l'objet de ton post, ce fichier joint peut t'aider.

Ciao [file name=Etienne.zip size=15629]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Etienne.zip[/file]

 

[Blunet]

Salut Etienne, edelweisseric,

A priro ton code est bon mais à mon avis le pb vien de ta syntaxe :

ThisFile = Range('C9').Value
ActiveWorkbook.SaveAs Filename:=ThisFile _

Pourquoi le symbole '_' après ThisFile ? Il signifie suite de l'instruction dans la ligne ci dessous, essaye donc sans lui !!!
Tu peux juste ajouter avant: Dim ThisFile pour ne pas définir d'avance le type de variable.

Ciao

 

[Etienne]

Dans la cellule il y a du texte genre 'parc3H2'.

Il m'est impossible de taper chaque fois le cheminement, comment faire pour que le nom du fichier encodé dans la cellule soit utilisé et enregistrer au bon endroit qui est tjrs le même. Si je mets NomClasseur après le cheminement, il me crèe un fichier qui porte le nom 'NomClasseur'...

Voir fichier joint


Merci [file name=enregistrer.zip size=3418]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/enregistrer.zip[/file]

 

[edelweisseric]

Bonjour Etienne

Essaie ce code :

dim nomclasseur
nom = range('E38').text
nomclasseur= nom & '.xls'
ActiveWorkbook.SaveAs Filename:=nomclasseur

Cordialement