XL 2010 enregistrer un fichier par macro

philmaure · 2 Août 2016

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 · 2 Août 2016

Bonjour le forum

Essaies ainsi

VB:

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

Hieu · 2 Août 2016

quelque chose comme ça, peut etre :

Code:

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

philmaure · 2 Août 2016

re,

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

bon a-m
cdlt
Philmaure

XL 2010 enregistrer un fichier par macro

philmaure

XLDnaute Impliqué

Yurperqod

XLDnaute Occasionnel

Hieu

XLDnaute Impliqué

philmaure

XLDnaute Impliqué

Discussions similaires