Discussion :

[Victoire 85]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[wilfried_42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

workbooks("nomduclasseur.xls").activate

sinon

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

[Victoire 85]

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?

[wilfried_42]

re:

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

[Victoire 85]

merci beaucoup!