Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrer classeur avec nom d'une cellule

  • Initiateur de la discussion Initiateur de la discussion Tony44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Tony44

XLDnaute Occasionnel
Bonjour,

Je voudrais savoir s'il est possible d'enregistrer un classeur avec un chemin et un nom de fichier inscrit dans des cellules de la feuille Excel.
Je m'explique :

Dans la cellule A1, est écrit par exemple : "C:\Divers\Nouveau dossier"
Dans la cellule A2, est écrit par exemple : "Nombre de ligne par opérateur"

Je voudrais que mon fichier soit enregistrer dans le répertoire "C:\Divers\Nouveau dossier" et s'appelle "Nombre de ligne par opérateur.xls"

==> ce qui donnerait l'arborescence suivante :
C:\Divers\Nouveau dossier\Nombre de ligne par opérateur.xls"

Merci de voter aide.
 
Re : Enregistrer classeur avec nom d'une cellule

Bonjour Tony

essaye ainsi, les données sont sur la feuille active :

Code:
ActiveWorkbook.SaveAs Range("A1").Value & "\" & Range("A2").Value & ".xls"

bonne journée
@+
 
Re : Enregistrer classeur avec nom d'une cellule

Bonjour Tony,

Code:
Dim Chemin as string
Chemin = range("A1") & iif(right(range("A1"),1) = "\", "", "\") & range("A2") & ".xls"
Thisworkbook.SaveAs Chemin

Edit : Bonjour Pierrot
 
Re : Enregistrer classeur avec nom d'une cellule

Bonjour Tony44
oui c'est possible
sub sauve()
fichier = Range("A1") & "\" & range("A2") & ".xls"
activeworkbook.saveas (fichier)
end sub
a+
Papou 🙂

EDIT bonjour Pierrot, Bonjour Tototiti j'avais pas rafraichi bonne journée à tous
 
Re : Enregistrer classeur avec nom d'une cellule

Bonjour j'ai un problème similaire,
Je voudrais enregistrer le fichier avec le nom d'une cellule(ca c'est déjà expliqué)
mais aussi pouvoir spécifier le chemin de l'enregistrement
Merci
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
791
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…