"Save as" dans une location autre que le fichier où est enregistré le code

Bonjour,

je n'arrive pas à obtenir le path d'un fichier autre que celui où la macro est enregistrée.

En effet, j'ai fait un code dans un fichier particulier (fichier aa, dans mon drive C: ), code que je veux utiliser pour mettre à jour toute une série de fichiers 1 à N qui eux sont sur un drive B: partagé. (je ne sais pas si ce détail compte).

Avec le code suivant, le fichier est enregistré sur mon disque C:, plus précisément à l'endroit où est situé le fichier aa; pourtant je lance la macro depuis le fichier 1, c'est donc celui -ci qui devrait être "active"...?

Code:

---

1 2 3 4 5 6 7 8

'saving as new file:   1. ChDir ActiveWorkbook.Path 2. xxx = ActiveSheet.Range("J3") 3. filename = xxx & "-0607.xls" 4. ActiveWorkbook.SaveAs filename:=filename

---

J'espère que ma question est assez claire, merci beaucoup par avance de votre aide !

bonjour

Ce n'est pas parceque tu lances une macro d'un classeur que celui-ci restera actif.........

je m'explique, si au cours de ta macro, tu actives ou tu selectionnes un autre classeur, ta macro continuera à fonctionner et pourtant à la fin le classeur actif, n'est pas celui que tu penses

je te conseil d'ajouter

Code:

---

workbooks("nomduclasseur.xls").activate

---

sinon

Citation:

---

Thisworkbook.saveas filename:="C:\chemin\" & nomfichier

---

de plus tu risques d'avoir des problemes a force d'utiliser des mots resevés comme nom de variable : filename

bon apres midi

je vois! Merci de ta réponse.

d'abord je vais changer ma variable filename dans ce cas;

l'ennui par rapport à ta solution, c'est que je veux justement pouvoir appliquer cette macro à de nombreux classeurs, sans avoir à retaper le nom du classeur à chaque fois à l'intérieur du code. Cela n'est peut-être pas possible?

re:

Citation:

---

thisworkbook.saveas filename = thisworkbook.path & "\" & ActiveSheet.Range("J3") & "-0607.xls"

---

Cette commande sauvegardera sur le repertoire du classeur actif le fichier sous le nom qui se trouve dans la feuille active à la cellule J3 + "-0607"

bonne journée

merci beaucoup!