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 toto,
Après test de ta macro, cette dernière est très interessante. Cela considère bien les deux cellules et enregistre.

Cependant, même si je clique sur Annuler l'enregistrement, il enregistre quand même, et cela ne cible pas le bureau mais mon profil utilisateur.
Une idée de quoi changer pour s'accorder à ces deux derniers points?

Merci pour ton aide!

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

Bonjour à tous

@Guillaume, le mieux eut été de créer ton propre fil, pas top de croiser 2 discussions en une, surtout pour celui qui l'a initiée...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Re,
Bonjour Pierrot 😉

en effet, pas trop le temps aujourd'hui donc je réponds rapidement... et pas trés précisément

Pour le Bureau, le mieux est d'utiliser le code de Pierrot à la place du mien, il manque "Desktop" ou "Bureau" à la fin de mon chemin

essaie ça :

Code: 
Dim chemin As String, AdrEnregistr As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
AdrEnregistr = Application.GetSaveAsFilename(InitialFileName:=chemin & "\" & Range("A1").Value & Range("A2").Value, Filefilter:="Fichier Excel (*.xls), *.xls")
If AdrEnregistr <> "Faux" Then ActiveWorkbook.SaveAs AdrEnregistr
 
Vote positif 0 Vote négatif
Re : Macro Enregistrer sous suivant cellule dans dossier specifique

Et bien, les sujets étant, de base, les même, il est plus correct d'éviter de créer de nouveaux fils concernant le même sujet. Désolé de la gêne occasionnée.

Bonne journée.

Cordialement,
Guillaume A.
 
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…