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

Aide Macro sauvegarde automatique

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

nicolo

Guest
Bonjour,

J'essaie de faire un macro qui me permet de sauvegarder automatiquement avec un nom voulu ( selon des cellules, la date,...)
J'ai fait la macro suivante :

Public Sub CommandButton1_Click()
Dim nom As String
nom = Range("M1") & " - Outillage " & Range("B19") & " - " & Range("H13") & " - " & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub

J'y suis presque mais mon problème est que le nom du fichier original apparait toujours à la fin du nouveau.
J'ai ce que je veux au début du nom du nouveau fichier mais il me rajoute "Essai 2" à la fin (le nom du fichier mère)

Pour info, si je supprime : "ActiveWorkbook.Name" dans le nom, le fichier n'est plus reconnu comme un fichier excel...

Merci!

Nico
 
Trier par date Trier par votes
Re : Aide Macro sauvegarde automatique

bonjour nicolo

A tester:

Code: 
nom = Range("M1") & " - Outillage " & Range("B19") & " - " & Range("H13") & " - " & Month(Date) & "-" & Year(Date) &[COLOR=blue] ".xls"[/COLOR]
 
Vote positif 0 Vote négatif
Re : Aide Macro sauvegarde automatique

Re-bonjour,

J'ai encore un petit problème, j'aimerais qu'une fois que j'ai fait fonctionner ma macro, j'arrive sur la nouvelle feuille enregistrée. ( Et non, rester sur la feuille originale)

Comment je peux faire?
Merci
 
Vote positif 0 Vote négatif
Re : Aide Macro sauvegarde automatique

Disons que je commence sur la feuille 1, je lance la macro pour sauvegarder la feuille en feuille 2 (avec les info souhaitées) mais je voudrais ensuite directement pouvoir travailler sur la feuille 2 ( Et non fermer la feuille 1 et ouvrir manuellement la feuille 2)
 
Vote positif 0 Vote négatif
Re : Aide Macro sauvegarde automatique

Re

teste:

Code: 
Public Sub CommandButton1_Click()
Dim nom As String
nom = Range("A1") & " - Outillage " & Range("B19") & " - " & Range("H13") & " - " & Month(Date) & "-" & Year(Date) & "_" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & nom
[COLOR=blue]Workbooks.Open ActiveWorkbook.Path & "\" & nom
[/COLOR]rep = MsgBox("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur")
End Sub
 
Vote positif 0 Vote négatif
Re : Aide Macro sauvegarde automatique

J'aurai encore besoin d'un peu d'aide... je débute vraiment. 🙂

Je cherche à faire la même chose pour sauvegarder mais en PDF.

Pour le moment, j'ai mis :
-------------
Sub PDF4()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("M1"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
--------------

Ca me donne un pdf avec le nom que je veux mais celui-ci s'enregistre dans mes documents... Je préfèrerai qu'il s'enregistre dans le dossier ou il est.

Merci!
 
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
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
968
Nounours4173
N
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
666
Phil69970
N
  • Question Question
XL 2021 Sauvegarde onglet
Réponses
10
Affichages
863
nano33320
N
D
  • Résolu(e)
Outlook Macro Outlook 365-Création sous-dossier suivant contenu et sauvegarde pièces jointes lien zip
4 5 6
Réponses
79
Affichages
4 K
DELATTE
D
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
779
Phil69970
B
  • Résolu(e)
Autres fonction heure et minute dans macro VBA
Réponses
6
Affichages
1 K
Staple1600
P
  • Question Question
Microsoft 365 supprimer bouton lors de l'enregistrement
2
Réponses
28
Affichages
2 K
Staple1600
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
637
JJ69
J
Y
  • Question Question
Microsoft 365 Publipostage automatique de plusieurs fichiers word à partir d'excel
Réponses
6
Affichages
1 K
yannlion
Y
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
B
  • Résolu(e)
XL 2016 Ajouter la formule de date "=AUJOURDHUI()" dans une macro copie et sauvegarde d'écran
Réponses
5
Affichages
615
berru76
B
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
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
807
un internaute
U
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
J
  • Question Question
Microsoft 365 Macro excel spécifier chemin de sauvegarde one drive
Réponses
4
Affichages
1 K
.jakob@gmail.com
J
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
768
job75
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
945
GADENSEB
B
  • Question Question
XL 2016 Envoyer PDF depuis Excel
Réponses
3
Affichages
1 K
benito87
B
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
3 K
dysorthographie
E
  • Question Question
Microsoft 365 associer la valeur d'une cellule à ma macro en sélectionnant la bonne extension année
Réponses
5
Affichages
844
Hasco
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…