Macro pour enregistrement

Salut le forum

J'ai essayé de réaliser un code via "Enregistrer macro" (voir code ci-dessous).

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Enreg() ' ' Enreg Macro '   ' Range("I45").Select ChDir "C:\" ActiveWorkbook.SaveAs Filename:="C:\essai.xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub

---

Je souhaite que le nom du fichier soit la valeur d'une cellule.
Comment adapter mon code dans ce sens?
Merci

Code:

---

...Filename:="C:\" & Range("A1"),...

---

Salut Mercatog

merci pour votre solution.
J'ai testé mais y'a debogage sur cette partie du code :

Code:

---

1 2	ActiveWorkbook.SaveAs Filename:="C:\" & Range("A1").Value.xlsm, FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---

Pouvez-vous voir pour moi?
Aussi dois-je rester dans une feuille précise pour que la macro fonctionne?

Bonsoir,

Ceci marche bien

Code:

---

1 2 3 4 5 6

Sub Enreg()   ActiveWorkbook.SaveAs Filename:="c:\" & Feuil1.Range("A1") ', FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ne semblent pas indispensables End Sub

---

Selon moi, c'est ton .xlsm qui pose problème. Outre qu'il n'est pas utile, si tu y tiens il faut je pense écrire: (pas essayé)

Code:

---

1 2 3

ActiveWorkbook.SaveAs Filename:="C:\" & range("a1") & ".xlsm", FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---

Cprdialement,

Salut nibledispo et le forum

C'est super.
Ca marche bien.
J'ai essayé de changer la gestion des dossiers dans lesquels mes fichiers devront être enregistrés.
Voici la nouvelle donne:
dans le disque local C, j'aurai un dossier intitulé "Commercial".
dans ce dossier, j'ai un sous dossier intitulé "EXERCICE 2013".
dans ce dossier (Exercice 2013) j'ai un sous dossier intitulé PROFORMA 2013.
C'est dans ce dernier sous dossier que mes fichiers seront enregistrés.
2013 représente l'année en cours.
Si on venait à changer d'année, il faudra crée dans "Commercial" un sous dossier "EXERCICE + l'année en cous"(exemple :EXERCICE 2014) et dans ce sous dossier un autre sous dossier qui s'intitulera "PROFORMA + l'année en cours (PROFORMA 2014).
Autrement dit, il faudra définir une condition comme par exemple :si le dossier dans lequel l'enregistrement devra être fait n'existe pas (ce qui signifie que y'a eu changement d'année), qu'un dossier soit crée en respectant la logique déjà décrit ci-dessus.
Comment adapter le code ci-dessous:

Code:

---

1 2 3 4 5

Sub Enreg()   ActiveWorkbook.SaveAs Filename:="c:\" & Feuil1.Range("A1") ', FileFormat:= xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False ne semblent pas indispensables End Sub

---

Merci

En prenant la date système comme base

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Enregistrer() Dim Dossier As String, Exercice As String, Proforma As String   Dossier = "C:\Commercial"   Exercice = Dossier & "\EXERCICE " & Format(Date, "yyyy") If Dir(Exercice, vbDirectory) = "" Then MkDir Exercice   Proforma = Exercice & "\PROFORMA " & Format(Date, "yyyy") If Dir(Proforma, vbDirectory) = "" Then MkDir Proforma   ThisWorkbook.SaveAs Filename:=Proforma & "\" & Feuil1.Range("A1") ', FileFormat:=xlOpenXMLWorkbookMacroEnabled End Sub

---

Bonsoir,

Première chose à savoir : comment VBA (ou toi) décide-t-il actuellement que le contenu de A1 (nom fichier) sera enregistré dans un répertoire plutôt qu'un autre ?

Soit ce contenu (nom du fichier) contient l'année et alors la détermination du répertoire est claire.

Soit il ne le contient pas et VBA décide que l'enregistrement du fichier se fait dans le repertoire correspondant à l'année de l'enregistrement.

Soit autre critère qui ne me vient pas à l'esprit.

Cordialement,

Salut à tous

Merci pour vos contributions.
Mercatog: ta solution est ingéniale. Elle fait exactement ce que je souhaitais.
nibledispo:Il faut dire que dans A1, j'ai mis cette formule

Code:

---

GAUCHE(H17;5)&"_"&TEXTE(H18;"jj mm aaaa")&"_"&C27

---

.
Elle permet en fonction des informatons entrées pour la facturation, me faire ressortir le nom du fichier souhaité qui est de la sorte :"Nom du client_datedujour_Objet de la fature".
Jespère avoir répondu.
Encore merci à tous et que DIEU vous bénisses.