Nommer un fichier selon la valeur d'une cellule

porcinet82

XLDnaute Barbatruc

• 27 Septembre 2007

• #2

Re : Nommer un fichier selon la valeur d'une cellule

Salut,

Pour sauvegarder ton fichier, tu peux utiliser le code suivant :
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\inserm22\Bureau\" & Range("A1").Value & ".xls"

@+

 

Vote positif 0 Vote négatif

Christophe

XLDnaute Occasionnel

• 27 Septembre 2007

• #3

Re : Nommer un fichier selon la valeur d'une cellule

Porcinet,

Merci de ta réponse rapide et utile.
Voilà qui répond parfaitement à mon besoin. Bonne journée

 

Vote positif 0 Vote négatif

Christophe

XLDnaute Occasionnel

• 27 Septembre 2007

• #4

Re : Nommer un fichier selon la valeur d'une cellule

Porcinet,

J'ai essayé de transposer ton code. Mais j'ai un bug !
Voilà ce que j'ai écrit dans le code :

ActiveWorkbook.SaveAs Filename:="C:\My Documents\toto\" & Range("=+[Source.xls]Sheet1!A1") & ".xls"

Où me suis-je trompé ?

Merci par avance de ton coup de mains.

 

Vote positif 0 Vote négatif

Christophe

XLDnaute Occasionnel

• 28 Septembre 2007

• #5

Nommer un fichier selon la valeur d'une cellule (pb dans le code)

Bonjour le Forum,

Je reste bloqué sur ce problème de code pour lier le nom du fichier à sauvegarder à la valeur d''une cellule d'un autre fichier. Qqun aurait-il une idée ?

Par avance merci. Bonne journée.

Christophe

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 28 Septembre 2007

• #6

Re : Nommer un fichier selon la valeur d'une cellule

Salut,

Je ne suis pas sur de ce que tu veux faire. Lle toto a la fin de du chemin, il s'agit d'un répertoire, ou de la base du nom du fichier que tu veux sauvegarder (ex : toto28-09-2007) ?

Sinon, le soucis est également que tu lui mets une formule, pourquoi ne mets tu pas simplement quelque chose du genre : & Sheets("Sheet1").Range("A1") & ".xls"

A moins que tu ailles chercher la valeur d'une cellule d'un autre classeur ouvert, que celui actif, alors il faut utiliser :
& Workbooks("Source.xls").Sheets("Sheet1").Range("A1") & ".xls"

@+

 

Vote positif 0 Vote négatif

Christophe

XLDnaute Occasionnel

• 28 Septembre 2007

• #7

Re : Nommer un fichier selon la valeur d'une cellule

Porcinet,

Il s'agissait bien d'un lien avec un autre classeur.
1.000 fois merci d'avoir pris à nouveau le temps de me répondre.

Bonne journée. Bon WE.

Christophe

 

Vote positif 0 Vote négatif