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

Question

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

cs_Le Pivert · Answer

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

Blackjack23 · Answer

FORMIDABLE!

ça marche, merci.

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

2 réponses

Newsletters