Ouvrir un répertoire à l’aide d’une valeur dans une cellule

Résolu
Blackjack23 Messages postés 7 Statut Membre -  
Blackjack23 Messages postés 7 Statut Membre -
Bonjour, je suis novice en programmation Vb excel, si vous pouviez m’aider, voici mon problème

Je souhaite enregistrer une feuille excel dont la destination (le dossier final) et le nom du fichier xlsm sont renseignés séparément dans une cellule (infos dans cette même feuille)
Ex: "C:\dossier1\dossier2\ « Nom du dossier dans cellule N8 »\ « Nom du fichier dans cellule Q11 ».xlsm"

Merci
A voir également:

2 réponses

cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

comme ceci:

Sub Save_classeur()
Dim chemin, nom As String
chemin = "C:\dossier1\dossier2\" &  Range("N8").Value & "\"
nom = Range("Q11").Value

   'xlsm
    ActiveWorkbook.SaveAs Filename:=chemin & nom & ".xlsm", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

1
Blackjack23 Messages postés 7 Statut Membre
 
FORMIDABLE!

ça marche, merci.
0