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

ActiveWorkbook.SaveAs

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

jpajob

Guest
Bonjour à tous,
Je débute avec les macros excel, voici ma question :
Je n'arrive pas à sauvegarder un classeur excel(classeur1) avec un nom contenant une date contenue dans une cellule d'un autre classeur excel (classeur2). Voici ce que j'ai esssayé (ce qui ramène la valeur de la cellule A1 du classeur actif) :

ActiveWorkbook.SaveAs Filename:="Planning du" & Range("A1").Value & ".xlsx", FileFormat:=51, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close

Si A1 a pour valeur 12-12-2011, alors le fichier sauvegardé doit avoir pour nom "planning du 12_12_2011.xlsx".
Comment insérer cette valeur de cellule dans le nom du fichier ?
Merci de votre aide.
 
Trier par date Trier par votes
Re : ActiveWorkbook.SaveAs

Bonjour et bienvenue sur le forum

Code: 
Dim Str as string
Str=Format(WorkBooks("Machin.xlsx").Sheets("FeuilleTruc").Range("A1"),"dd_mm_yyyy")
ActiveWorkbook.SaveAs Filename:="Planning du" & Str & ".xlsx"....................
A+
 
Vote positif 0 Vote négatif
Re : ActiveWorkbook.SaveAs

Re.

J'ai pas réussi ...

En fait, j'ai un dossier qui contient 1 classeur " machin.xlsx "(qui est actif au moment de lancer la sauvegarde) + 1 autre classeur "truc" avec 1 feuille "feuil1" qui contient la fameuse cellule "A1" dont le contenu doit être intégré dans le nom du nouveau fichier sauvegardé.
Lorsque je lance le code que tu m'a donné, je ne vois pas de nouveau fichier sauvegardé. Je dois faire une erreur quelque part.
 
Vote positif 0 Vote négatif
Re : ActiveWorkbook.SaveAs

Bonjour,

As-tu vérifié le contenu de la variable Str? As-tu vérifié de répertoire d'enregistrement?
ActiveWorkBook.SaveAs FileName:= ActiveWorkBook.Path & "\Planning du" & Str & ".xlsx .... Etc.....
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Question Question
XL 2021 Sauvegarde onglet
Réponses
10
Affichages
866
nano33320
N
L
  • Question Question
Microsoft 365 ActiveWorkbook.SaveAs Filename:= _
Réponses
7
Affichages
826
lesoldat9
L
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
638
JJ69
J
C
  • Question Question
XL 2019 Coller valeur dans autre classeur
Réponses
14
Affichages
785
carlos
C
I
  • Résolu(e)
Microsoft 365 Enregistrer sous sans boite de dialogue enregistrer et oui
Réponses
3
Affichages
946
iliess
I
  • Question Question
XL 2016 Transfert feuilles vers nouveau classeur - Activation du contenu ?
Réponses
11
Affichages
1 K
job75
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
878
Zon
Z
C
  • Résolu(e)
XL 2016 Séparer un classeur en plusieurs classeurs
Réponses
8
Affichages
1 K
soan
S
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
775
loreak
L
I
  • Question Question
XL 2016 MACRO LENTE
Réponses
2
Affichages
968
ImNotJésus
I
Y
  • Résolu(e)
XL 2019 Enregistrer un classeur en supprimant une formule
Réponses
8
Affichages
858
YohanSC
Y
L
  • Résolu(e)
XL 2016 VBA : Copier des valeurs entre deux fichiers
Réponses
4
Affichages
975
Leché
L
  • Question Question
envoyer un mail depuis excel
2
Réponses
27
Affichages
3 K
Zon
Z
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
1 K
MONTREAL2020
M
M
  • Résolu(e)
Microsoft 365 VBA - RECHERCHEV multiples dans un autre classeur sélectionné
Réponses
1
Affichages
842
M4x1m3
M
Y
  • Question Question
XL 2010 besoin d'aide
Réponses
3
Affichages
754
TooFatBoy
M
  • Résolu(e)
Microsoft 365 Afficher et débloquer un onglet masqué et protégé pour faire la macro
Réponses
10
Affichages
2 K
MOA_Excel
M
M
  • Résolu(e)
Microsoft 365 Générer automatiquement un fichier CSV et non pas XLSX
Réponses
1
Affichages
1 K
MOA_Excel
M
  • Question Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
  • Question Question
XL pour MAC Vba - Macro enregistrer sous...
Réponses
7
Affichages
6 K
ArnaudSi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…