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

Résolu/Fermé
Signaler
Messages postés
7
Date d'inscription
samedi 5 décembre 2015
Statut
Membre
Dernière intervention
17 janvier 2016
-
Messages postés
7
Date d'inscription
samedi 5 décembre 2015
Statut
Membre
Dernière intervention
17 janvier 2016
-
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

2 réponses

Messages postés
7615
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
5 décembre 2021
671
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
7
Date d'inscription
samedi 5 décembre 2015
Statut
Membre
Dernière intervention
17 janvier 2016

FORMIDABLE!

ça marche, merci.