Enregistrer sous selon une cellule

Question

Bonjour, 

Je cherche un code macro qui permet d'enregistrer sous un dossier précis selon la cellule A1.
Par exemple : 
si A1 = 1 => il enregistrer dans le dossier A
si A1 = 2 => il enregistrer dans le dossier B

Je souhaiterai le rajouté à ce code qui enregistrer sous le nom de la cellule H1

Sub rec()
Dim NOM As String
lechemin = ActiveWorkbook.Path & "\"
NOM = Range("H1")
ThisWorkbook.SaveAs lechemin & NOM & ".xls"
End Sub

Merci pour votre aide.

ucfoutu · Answer

Bonjour,
et :
- quels noms portent tes dossiers A et B  ?
- ces dossiers A et B sont-ils présents (ou à créer) dans le répertoire de l'appli ?

Darius · Answer

Les dossiers A et B se nomment "Stephane" et "Eric"  qui sont déjà présent sur le chemin :
C:\Mes documents\Stephane 
C:\Mes documents\Eric 

Si la cellule A1 = "Stephane" il enregistre dans le dossier "Stephane"
Si la cellule A1 = "Eric" il enregistre dans le dossier "Eric"

ucfoutu · Answer

Merci, mais cela ne répond toujours pas à :
"- ces dossiers A et B sont-ils présents (ou à créer) dans le répertoire de l'appli ? "

Si ce message te surprend, essaye d'analyser cette ligne de code (dans ton premier message) !
lechemin = ActiveWorkbook.Path & "\" 
qu'est selon toi ActiveWorkbook.Path ?
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Darius · Answer

Bonjour ucfoutu,

Je pense que ActiveWorkbook.Path veux dire qu'il enregistre sous le dossier source. 

J'ai peut être trouvé comment lui préciser dans quel dossier précis selon la cellule A1

ChDir _ 
"C:\Mes documents\range("A1" ).Value" 

Mais si jamais les dossiers ne sont pas dans les mêmes chemins c'est dire :

C:\Mes documents\dossier1\Stephane 
C:\Mes documents\dossier2\Eric

Alors la je sais pas... :/

Merci pour ton aide, et bonne Pâques !

ucfoutu · Answer

"Je pense que ActiveWorkbook.Path veux dire qu'il enregistre sous le dossier source "
pas "source", mais le dossier de l'application en cours.
Et si autre dossier, non sous-dossier de celui de l'appli en cours,  son chemin, tout simplement (et alors ActiveWorkbook.Path n'a rien à voir dans cette "affaire").

Darius · Answer

Merci ucfoutu !
Je vais tester tout cela !! :)

Enregistrer sous selon une cellule

6 réponses

Votre réponse

Discussions similaires