Discussion :

[capi81]

Salut le forum

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

Code :

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

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

[mercatog]

Code :

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

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

[capi81]

Salut Mercatog

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

Code :

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

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?

[nibledispo]

Bonsoir,

Ceci marche bien

Code :

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

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 :

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

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

Cprdialement,

[capi81]

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 :

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

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

[mercatog]

En prenant la date système comme base

Code :

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

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

[nibledispo]

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,