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

Résolu
Blackjack23 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
Blackjack23 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   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
Réponse 2 / 2
Blackjack23 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
FORMIDABLE!

ça marche, merci.
0

Discussions similaires

additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

6 réponses