Nommer un fichier à partir de 2 cellules

[abeg1966]

Bonjour,

Je voudrais sauvegarder un fichier par une macro, jusque là ça va...

mais je voudrais que la macro aille me chercher le résultat de 2 cellules variables

par exemple :

en A2 = tartampion et en B2 = 24072011 et sauvegarder "tatampion24072011.xls"

c'est possible ?

merci d'avance

 

[Pierrot93]

Re : Nommer un fichier à partir de 2 cellules

Bonjour,

essaye ceci, l'enregistrement sera effectué dans le répertoire courant :

ThisWorkbook.SaveAs Range("A2").Value & Range("B2").Value

bon après midi
@+

 

[Victor21]

Re : Nommer un fichier à partir de 2 cellules

Bonjour, abeg1966.

Comme ça ?

Sub Macro1()

i = Range("A2").Value
j = Range("b2").Value
    ActiveWorkbook.SaveAs Filename:="C:\Users\HP\Desktop\" & i & j & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

en remplaçant "C:\Users\HP\Desktop\" par ton chemin

Edit : Bonjour, Pierrot, Masterdisco. Un peu à la bourre sur ce coup

 

[abeg1966]

Re : Nommer un fichier à partir de 2 cellules

Bon ça marchait super, j'étais un Homme heureux et Vlan, il faut que ça tourne sur la version 2003 d'excel et je sais pas pourquoi mais la proposition de Victor21 ne fonctionne plus....Gasp

des idées ?

 

[Pierrot93]

Re : Nommer un fichier à partir de 2 cellules

Bonjour,

et les autres propositions, cela donne quoi ??

bon après midi
@+

 

[abeg1966]

Re : Nommer un fichier à partir de 2 cellules

Comme je sauvegarde déjà la fichier dans le répertoire courant (merci Pierrot) comment lui faire comprendre après que je veux que la macro sauvegarde sous le même nom dans un fichier différent ?

arhhhhh

 

[abeg1966]

Re : Nommer un fichier à partir de 2 cellules

pas dans un fichier différent mais dans un répertoire different...

 

[Pierrot93]

Re : Nommer un fichier à partir de 2 cellules

Bonjour,

tu peux utiliser la méthode "SaveCopyAs" cela créera une copie de ton classeur :

ActiveWorkbook.SaveCopyAs "C:\mesdocs\excel\monfichier.xls"

@+

 

[Victor21]

Re : Nommer un fichier à partir de 2 cellules

Bonjour, abeg1966.

... ça marchait super, ... et je sais pas pourquoi mais la proposition ... ne fonctionne plus

Il t'appartient peut-être de tenter de te remémorer ce qui a changé dans ton environnement, ta manière de procéder entre le "ça marchait super" et le "la proposition ... ne fonctionne plus". Car de là, je ne vois pas !

Edit : Bonjour, Pierrot.

 

[abeg1966]

Re : Nommer un fichier à partir de 2 cellules

Merci Pierrot,

Code :
ActiveWorkbook.SaveCopyAs "C:\mesdocs\excel\monfichier.xls"

mais en fait, ça me crée un fichier appelé mon fichier alors que je voulais qu'il utilise le nom variable avec lequel il avait précédement sauvegardé.

Tu as raison Victor21, c'est que je suis un peu pris par le temps, en fait ma macro fonctionne sur mon PC en 2007 mais pas sur le PC des utilisateurs en 2003...

 

[Pierrot93]

Re : Nommer un fichier à partir de 2 cellules

Re, bonjour Victor

bah... tu adaptes la fin...

ActiveWorkbook.SaveCopyAs "C:\mesdocs\excel\" & mavariable  & ".xls"

 

[abeg1966]

Re : Nommer un fichier à partir de 2 cellules

mais je la connais pas la variable, elle se crée dans les premières lignes de la macro

 

[Victor21]

Re : Nommer un fichier à partir de 2 cellules

RE,

ma macro fonctionne sur mon PC en 2007 mais pas sur le PC des utilisateurs en 2003...

Très probablement donc un problème de chemin...

 

[Pierrot93]

Re : Nommer un fichier à partir de 2 cellules

Re,

mais je la connais pas la variable, elle se crée dans les premières lignes de la macro

euh... vois mal comment une variable peut se créer.... s'initialiser tu veux dire... dans ce cas son nom est connu (de la variable, pas du contenu)...

 

[Victor21]

Re : Nommer un fichier à partir de 2 cellules

Re,

Dommage que cette macro soit tellement confidentielle qu'il est impensable de la publier ici ...