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

enregistrer un fichier toujours dans le même disque au mois

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

caramelle04

Guest
Bonjour à tous !


J'ai un petit souci (étant donné que je suis novice sous VBA) mais je pense qu'il peut se résoudre assez vite.
Voilà, j'ai réalisé des macros pour extraire des données dans 3 feuilles différentes. Ce fichier, je le reçois tous les mois. Ce que je souhaiterais faire, ce serait réaliser une macro qui me permette d'enregistrer ce fichier sous le même disque (par exemple le D:/) pour le mois en cours et ce tous les mois.
Par exemple, si on est en mai, le fichier aura pour nom Mai_2011, en juin on aura juin_2011 etc
Cela est-il possible ?
Je vous en voie un extrait de mon fichier. Par contre, seules les 3 dernières feuilles (bonbon, gateau et chocolat) sont à prendre en compte.

Je vous envoie le fichier.

Merci de votre aide 🙂
 

Pièces jointes

Trier par date Trier par votes
Re : enregistrer un fichier toujours dans le même disque au mois

Bonjour à tous,

Peux-tu essayer avec (le chemin est à adapter):

Code: 
Sub Enregistre()

Mois = Month(Now)
An = Year(Now)

    Sheets(Array("Bonbon", "Gateau", "Chocolat")).Select
    Sheets(Array("Bonbon", "Gateau", "Chocolat")).Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\JCGL\Downloads\" & Mois & "_" & An & ".xls"
    ActiveWindow.Close
    Sheets("Extraction_Données").Select
End Sub
A + à tous
 
Vote positif 0 Vote négatif
Re : enregistrer un fichier toujours dans le même disque au mois

Bonjour JCGL,

Merci beaucoup pour ton aide ! ça fonctionne à merveille !

@+
 
Vote positif 0 Vote négatif
Re : enregistrer un fichier toujours dans le même disque au mois

Bonjour à tous,

Je souhaite obtenir la même fonction mais avec plus de champs et en cliquant sur un bouton, donc si je comprend bien le principe, en modifiant:

Mois = Month(Now)
An = Year(Now)

par:

Name = "cell B11" 'cellule contenant un nom d'entreprise par exemple
Objet = "cell B13" & "cell bb13" 'données clients
Month = Month (Now)
Year = Year (Now)

je devrais pouvoir obtenir le même résultat que Caramelle04 avec le nom + l'objet + mois + l'année?

Merci pour votre aide.
 
Vote positif 0 Vote négatif
Re : enregistrer un fichier toujours dans le même disque au mois

Bonjour à tous,

Peux-tu essayer :

VB: 
Sub Enregistre()
 
Nom = [B11]
Objet = [B13] & "_" & [BB13]
Mois = Month(Now)
An = Year(Now)
 
Sheets(Array("Bonbon", "Gateau", "Chocolat")).Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\JCGL\Downloads\" & Nom & "_" & Objet & "_" & Mois & "_" & An & ".xls"
ActiveWindow.Close
Sheets("Extraction_Données").Select
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Re : enregistrer un fichier toujours dans le même disque au mois

Super merci pour la modification du code 😉
Je m'interroge sur le code, peux tu m'expliquer:

ligne "1)" Pourquoi doit-on sélectionner les 3 onglets et pas faire une sauvegarde de tout le fichier?

ligne "2)" pourquoi fermer la fenêtre?

ligne "3)" pourquoi revenir sur l'onglet en question? que se passe-t-il si je met autre chose?!

VB: 
1) Sheets(Array("Bonbon", "Gateau", "Chocolat")).Copy 
 
2) ActiveWindow.Close  

3) Sheets("Extraction_Données").Select
End Sub

Merci à toi pour ces précisions.
C4rtoons
 
Vote positif 0 Vote négatif
Re : enregistrer un fichier toujours dans le même disque au mois

A tout hasard, il est possible de lui demander au moment de la sauvegarde qu'il créé en plus un pdf avec le même nom mais avec un chemin d'accès différent? Si oui comment?

Et pour pousser un peu plus loin:
créer un dossier avec [b11] comme "nom" > mais si [B11] existe alors copier dans le dossier existant.

Je ne sais pas si je suis très clair dans mes explications...
Bonne soirée 😉
 
Vote positif 0 Vote négatif
Re : enregistrer un fichier toujours dans le même disque au mois

Bonjour à tous,

Je pense que ce que tu demandes est possible.
Mais il serait temps de déposer un fichier.

A + à tous
 
Vote positif 0 Vote négatif
Re : enregistrer un fichier toujours dans le même disque au mois

Voici le fichier en question
3 onglets = commande, choix de voiture, bdd

Dans choix de voiture
le bouton rouge "Save" me sert à enregistré le classeur avec
l'année / le mois / le nom de la Firm [C3] / .... &".xlsm" dans un dossier défini.

A/ Ma 1ere question est de savoir s'il existe un code qui me permette de:
1) créer un dossier avec le nom de la Firm [C3] (si vide prendre le nom de l'agent [D4])
2) mais si le dossier existe déjà, alors enregistré dans le dossier existant.

B/ Ma 2eme question est de savoir
1) Pour l'onglet commande - avec un autre bouton
2) comment je peux faire pour réaliser un enregistrement en PDF directement sur le bureau (ou ailleurs)? j'ai essayé bettement en indiquant en fin de fichier un & ".pdf" mais cela ne marche pas :s

J’espère que ma demande est compréhensible pour quelqu'un qui n'est pas toute la journée sur le fichier...
Merci pour le coup de main 😉
Bonne journée
 

Pièces jointes

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

P
  • Question Question
XL 2019 Ouvrir un fichier toujours sur le même onglet et cellule
Réponses
9
Affichages
574
job75
V
  • Question Question
XL 2016 ou 2019 - fichier recensant les congés, tickets resto et heures supplémentaires
Réponses
0
Affichages
262
vivi21
V
L
  • Question Question
XL 2021 [Power Query] Appliquer un nettoyage identique sur plusieurs tableaux d'une même documentation
Réponses
1
Affichages
197
chris
M
  • Question Question
Microsoft 365 [RESOLU] Simplifier une formule
Réponses
6
Affichages
295
Gégé-45550
  • Résolu(e)
XL 2021 VBA - Enregistrer en fichier un Embbeded PDF créé en présence d'Adobe Acrobat sur le PC
2 3 4
Réponses
50
Affichages
1 K
Dudu2
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
280
alexga78
A
  • Question Question
XL 2019 Gestion de 4 sources de revenu (A, B, C et D). Et rajout du jour en cours et MEFC qui doit varier selon le mois en cours...
Réponses
8
Affichages
270
sylvanu
U
  • Question Question
Autres automatiser un fichier
2
Réponses
27
Affichages
1 K
Bernard_XLD
  • Résolu(e)
XL 2019 un onglet masqué peut-il servir/être actif même s'il n'apparaît pas dans le classeur ? comment améliorer ce classeur (automatiser) ?
Réponses
14
Affichages
334
sylvanu
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
488
sylvanu
D
  • Question Question
Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2
Réponses
5
Affichages
356
desmonts
D
O
  • Résolu(e)
XL 2013 Formule qui permet d'extraire le mois une date au format en jour/mois/année
Réponses
4
Affichages
511
onyirimba
O
K
  • Question Question
XL 2016 Coup de main pour créer un fichier Excel qui gère le suivi des visites médicales du personnel.
Réponses
4
Affichages
551
dysorthographie
D
  • Question Question
Microsoft 365 Copier avec liaison mais en intégrant les mois de production
Réponses
1
Affichages
229
sioum
S
M
  • Question Question
Microsoft 365 [RESOLU] Enregistrer avec un nouveau nom sans macro et sans le bouton
Réponses
2
Affichages
344
Marboi
M
L
  • Question Question
Microsoft 365 Recherche dans fichier excel dans un répertoire
2 3 4
Réponses
50
Affichages
3 K
Loulou27
L
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
550
youguybass
Y
M
  • Résolu(e)
XL 2021 Copier le texte d’une cellule
Réponses
9
Affichages
662
sylvanu
S
  • Question Question
Microsoft 365 Tableaux Structurées : récupérer des données uniques pour consolider un bilan
Réponses
4
Affichages
420
vgendron
V
  • Question Question
XL 2019 Ajout texte dans le nom de la sauvegarde
Réponses
3
Affichages
137
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…