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

[caramelle04]

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 🙂

 

[JCGL]

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

Bonjour à tous,

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

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

 

[caramelle04]

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

Bonjour JCGL,

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

@+

 

[C4rtoons]

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.

 

[JCGL]

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

Bonjour à tous,

Peux-tu essayer :

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

 

[C4rtoons]

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?!

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

 

[JCGL]

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

Bonjour à tous,

1) Sheets(Array("Bonbon", "Gateau", "Chocolat")).Copy

C'est ce que souhaitait notre amie Caramelle04...

2) ActiveWindow.Close

Pour retourner sur le classeur source

Sheets("Extraction_Données").Select

Pour retourner sur la feuille source

A + à tous

 

[C4rtoons]

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 😉

 

[JCGL]

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

 

[C4rtoons]

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