XL 2010 enregistrer un fichier par macro

[philmaure]

bonjour,

Je vais utiliser une macro du fichier Personnel pour, entre autre, enregistrer automatiquement des fichiers dans une arborescence donnée.
Il y a plusieurs fichiers avec des noms différents, comment puis je par macro les enregistrer sachant que je connais le chemin ou je veux l'enregistrer mais pas forcément le nom du fichier.
Je suppose qu'il faudrait dans la formule récupérer le nom du fichier actif

par exemple si j'utilise la formule :

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Desktop\temp\test.xls"

le fichier ca à chaque fois s'appeler Test.xls

Merci pour votre aide
Cdlt
Philmaure

 

[Yurperqod]

Bonjour le forum

Essaies ainsi

Dim Chemin As String
Dim Fichier As String
Chemin="C:\Users\Desktop\temp\"
Fichier=ActiveWorkBook.Name
ActiveWorkbook.SaveAs Filename:= Chemin &  "Copie_" & Fichier

 

[Hieu]

quelque chose comme ça, peut etre :

nom = thisworkbook.name
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Desktop\temp\" &  nom

 

[philmaure]

re,

un grand merci à vous deux.
Pour info , j'ai testé les 2 solutions. Seul celle de Yurpergod fonctionne

bon a-m
cdlt
Philmaure