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, 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
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 20 avril 2014 à 21:43
"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").