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

Macro Enregistrer sous suivant cellule dans dossier specifique

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion thom02
  • 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 !

S'inscrire

thom02

XLDnaute Junior
Bonjour.


Je souhaite créer un macro qui liée à un bouton permet à l’utilisateur d’enregistrer sous.

- Dans un dossier spécifique C:\blablabla
- Avec un nom de fichier spécifique (d’après la cellule (Feuil7 D4))

Pour l’instant j’ai :

Application.Dialogs(xlDialogSaveAs).Show CStr(Feuil7.Range("D4").Value)


Qui me permet bien d’enregistrer avec le nom voulu mais dans le dossier où se trouve le fichier source, à moi d’aller ensuite naviguer jusqu’au dossier C:\blablabla.

Comment faire pour que « l’enregistrer sous » s’ouvre déjà dans C:\blablabla

D’avance merci pour votre aide !!

T.
 
Trier par date Trier par votes
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

en effet, ça a fonctionné sur un exemple chez moi puis ça ne fonctionne plus...

peut-être :

Code: 
ChDrive "C"
ChDir "C:\blablabla"
Application.Dialogs(xlDialogSaveAs).Show "C:\blablabla\" & CStr(Feuil7.Range("D4").Value)
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique


Snif :-(

Ca ne fonctionne pas non plus. Merci pour ton aide.
Aurais tu encore une idée?
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour,

Je suis aussi intéressé par cette macro.
Juste:
- est ce possible de cibler le bureau, malgré des Users différents
- est ce possible que le nom donné au fichier soit basé sur 2 cellules et si oui, comment?


Merci à vous 🙂
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

Bonjour GuillaumA, si tu permet on va commencer par essayer de répondre à thom

visiblement, difficile de demander d'enregistrer sur un autre lecteur avec Dialogs

essaie comme ça (ça n'enregistre pas mais ça stocke le chemin d'enregisrement choisi par l'utilisateur)

Code: 
AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:="C:\blablabla\" & Feuil7.Range("D4").Value, Filefilter:="Fichier Excel (*.xls), *.xls")
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique


Si on s'y met à plusieurs on va trouver 🙂

- Est ce que cela change qqch si le dossier est sur le reseau? A première vue je ne penses pas.
@ Guillaume, demande à google sur base de 2 cellule c'est possible je me souviens avoir vu un exemple. au pire, tu crèes dans ton fichier une 3ème cellule qui agrège tes 2 cellules

Si tu trouves la solution pour le dossier, pourrais tu stp la partager.
Merci
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique



Wouuuuuuu un tout grand merci !!!!

Ca fonctionne super merci!!!😀
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,

- est ce possible de cibler le bureau, malgré des Users différents
Cliquez pour agrandir...

à priori oui :

Code: 
Environ("HOMEDRIVE") & Environ("HOMEPATH")

devrait donner le chemin du bureau

- est ce possible que le nom donné au fichier soit basé sur 2 cellules et si oui, comment?
Cliquez pour agrandir...

sans doute, mais je ne comprend pas bien, tu peux préciser ?
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour à tous,

une autre solution pour cibler le bureau :
Code: 
Dim chemin As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique


C'est a n'y rien comprendre.... la fenetre s'ouvre correctement, dans le bon dossier, avec la bonne proposition de nom d'enregistrement mais lorsque je clicque "Enregistrer" rien ne se passe 😱

Avez vous une idée?
Merci
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re-bonjour à tous!

à priori oui :

Code: 
Environ("HOMEDRIVE") & Environ("HOMEPATH")

devrait donner le chemin du bureau
Cliquez pour agrandir...

Comment le rajouter à la macro?

Code: 
- est ce possible que le nom donné au fichier soit basé sur 2 cellules et si oui, comment?

sans doute, mais je ne comprend pas bien, tu peux préciser ?
Cliquez pour agrandir...

Et bien dans la cellule A1 j'ai un nom générique : nom-
dans la cellule A2, l'utilisateur tape le nom qu'il souhaite: GEORGE
Le résultat est que lorsqu'il enregistre par le bouton de macro, cela ouvre le bureau et le nom suivant s'affiche: nom-GEORGE

Cordialement,
Guillaume A.
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour thom02,

C'est a n'y rien comprendre.... la fenetre s'ouvre correctement, dans le bon dossier, avec la bonne proposition de nom d'enregistrement mais lorsque je clicque "Enregistrer" rien ne se passe
Cliquez pour agrandir...

Dans mon message j'avais mis

essaie comme ça (ça n'enregistre pas mais ça stocke le chemin d'enregisrement choisi par l'utilisateur)
Cliquez pour agrandir...


ce qui signifie qu'il faut enregistrer le fichier ensuite, avec un truc du genre :

Code: 
AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:="C:\blablabla\" & Feuil7.Range("D4").Value, Filefilter:="Fichier Excel (*.xls), *.xls")
 
ActiveWorkbook.SaveAs AdrEnregistr
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Bonjour GuillaumA,

Comment le rajouter à la macro?
Cliquez pour agrandir...

à quelle macro ? pour la ligne de thom, ça donnerait, avec "nom-" en A1 et "GEORGE" en A2

Code: 
AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:= Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\" & Range("A1").Value & Range("A2").Value, Filefilter:="Fichier Excel (*.xls), *.xls")
 
ActiveWorkbook.SaveAs AdrEnregistr
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

L
  • Résolu(e)
XL 2016 Enregistrer sous? Pourquoi mon code ne fonctionne pas?
Réponses
5
Affichages
891
Linda42
L
S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
C
  • Question Question
Microsoft 365 enregistrer sous vba un classeur avec valeur cellule et non sur le lien
Réponses
3
Affichages
1 K
Chapichapo
C
M
  • Question Question
Microsoft 365 Macro enregistrement PDF avec nom dans une cellule
Réponses
2
Affichages
1 K
kiki29
M
  • Question Question
Microsoft 365 Enregistrer un nom de fichier Excel à partir d'une cellule et pouvoir "Parcourir" pour l'enregistrement
Réponses
5
Affichages
2 K
maxime.dlv
M
S
  • Résolu(e)
Microsoft 365 Save dans un dossier & Titre = Cellule et date
Réponses
4
Affichages
821
Syb59
S
B
  • Question Question
Microsoft 365 enregistrer sous avec nom classeur suivant cellule
Réponses
3
Affichages
1 K
laurent950
  • Question Question
XL 2016 Export PDF dans sous dossier
Réponses
6
Affichages
1 K
KTM
M
  • Question Question
XL pour MAC Macro simple Enregistrer sous PDF dans Bureau avec même nom
2
Réponses
29
Affichages
6 K
kiki29
C
  • Résolu(e)
XL 2010 Enregistrer sous (dans le même répertoire)
Réponses
2
Affichages
3 K
cgpa
C
T
  • Question Question
XL 2010 Macro enregistrer sous sur le bureau
Réponses
8
Affichages
2 K
Staple1600
W
  • Question Question
XL 2016 Macro "Enregister sous" au format PDF avec nom prédéfini
Réponses
4
Affichages
2 K
kiki29
R
  • Question Question
VBA > Créer un dossier nom variable et y enregistrer un fichier portant le même nom
2
Réponses
18
Affichages
15 K
MarieVT
M
H
  • Question Question
Enregistrer sous + cellule
Réponses
1
Affichages
1 K
Matheop
N
  • Question Question
Macro enregistrement feuille excel en PDF dans un dossier avec nom prédéfini
Réponses
8
Affichages
6 K
kiki29
B
  • Question Question
Macro pour enregistrer un fichier dans un répertoire variable
2
Réponses
17
Affichages
5 K
benadry
B
M
  • Question Question
Fenêtre "Enregistrer sous" AVEC type fichier "XLSM" prérempli
Réponses
5
Affichages
6 K
micapilote
M
C
  • Question Question
macro sauvegarder sous
Réponses
1
Affichages
794
Compte Supprimé 979
C
L
  • Question Question
Enregistrer en pdf dans un dossier portant la nom d'une cellule.
Réponses
10
Affichages
4 K
lioneldu47
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…