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

Tony44

XLDnaute Junior
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.
 

Pierrot93

XLDnaute Barbatruc
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
@+
 

tototiti2008

XLDnaute Barbatruc
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
 

Paritec

XLDnaute Barbatruc
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
 

stereau2

XLDnaute Nouveau
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…