[macro VBA] enregistrer classeur nom cellule [Résolu/Fermé]

Question

[macro VBA] enregistrer classeur nom cellule [Résolu/Fermé]

Signaler

BastienP

Messages postés: 4
Date d'inscription: vendredi 11 juillet 2008
Statut: Membre
Dernière intervention: 28 juillet 2008

- 28 juil. 2008 à 18:50
FAB - 9 juil. 2016 à 15:29

Bonjour,

Je cherche comment coder pour enregister mon classeur avec un nom qui serait la valeur d'une cellule (nombre ou texte) ou même plutôt le nom d'une feuille dans ce classeur.

Je pensais définir une variable mais ceci ne marche pas dans le code:

ActiveWorkbook.SaveAs Filename:= _
"nom.xls"

Si quelqu'un a une idée pour moi..
Merci et bonne soirée!!

Afficher la suite

A voir également:

[macro VBA] enregistrer classeur nom cellule
[macro VBA] enregistrer classeur nom cellule ✓ - Forum - VB / VBA
Excel vba enregistrer sous + nom cel + date ✓ - Forum - Excel
Enregistrer sous le nom de 2 cellules - MACRO VBA ✓ - Forum - Excel
Macro enregistrer sous pdf nom cellule ✓ - Forum - Excel
Macro enregistrer sous PDF + Renommer avec contenu de cellules ✓ - Forum - Excel

10 réponses

Réponse 2 / 10

michel_m

Messages postés: 16171
Date d'inscription: lundi 12 septembre 2005
Statut: Contributeur
Dernière intervention: 9 juillet 2020

2 989
28 juil. 2008 à 20:11

salut Bastien

Option Explicit
Sub enregistrer_classeur()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Range("B2") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
End Sub

enregistre dans le répertoire du fichier source

Michel

Signaler

FAB
9 juil. 2016 à 15:29

Super la formule. Merci Michel

Réponse 3 / 10

vince_nus
9 juin 2011 à 10:30

c'est bon j'avais un espace en trop !!^^
les mystères d'excel !!!!!!!

Réponse 4 / 10

BastienP

Messages postés: 4
Date d'inscription: vendredi 11 juillet 2008
Statut: Membre
Dernière intervention: 28 juillet 2008

1
28 juil. 2008 à 20:36

Merci à tous pour ces réponses si rapides,
En plus j'ai le choix!!

A+

Réponse 5 / 10

Albatros 30

Messages postés: 4
Date d'inscription: mardi 23 novembre 2010
Statut: Membre
Dernière intervention: 6 décembre 2010

1
24 nov. 2010 à 03:05

Bonjour à tous,
La même demande sous Open Calc quelqu'un connaitrait-il car vb n'est pas pour Open.
Je vous remercie par avance

Réponse 6 / 10

Celas
30 déc. 2011 à 14:37

Merci pour cette macro :
Sub enregistrer_classeur()
Dim chemin As String, fichier As String
chemin = ThisWorkbook.Path
fichier = chemin & "\" & Range("B2") & ".xls"
ActiveWorkbook.SaveAs Filename:=fichier
End Sub
Qui fonctionne parfaitement pour changer le nom du fichier sauvegardé !

Signaler

Shades
25 janv. 2012 à 17:14

Bonsoir à tous,

Avec ce code cela marche bien, seul PB ça plante avant de sauvegarder, où serait le PB ?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

A = Range("S2").Value
B = Range("B3").Value
C = Range("B4").Value
ChDir ActiveWorkbook.Path
Repertoirefinalperso = Application.ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=Repertoirefinalperso & "\" & "Recapaie " & A & " " & B & " " & C & ".xls"

End Sub

Merci,

Signaler

Shades
26 janv. 2012 à 11:08

bonjour,

Alors voilà une nouvelle question sur le sujet.

J'ai réussis à faire en sortes que cela ne plante plus, mais ...

Pourquoi en changeant :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

par :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Et bien cela ne plante plus ?

Cela aurait été plus pratique d'activer la macro sur enregistrement et non pas sur fermer, car à chaque fermeture cela me créera un fichier "Recapaie 2012 .xls" ....

Cordialement,

Réponse 7 / 10

algoplus
28 juil. 2008 à 20:07

ca devrait marcher comme tu veux

nomfic = "C:\Documents and Settings\Agoplus\Bureau\" & Range("A1").Value & Sheets(2).Name & ".xls"

ActiveWorkbook.SaveAs Filename:=nomfic

Réponse 8 / 10

Albatros 30

Messages postés: 4
Date d'inscription: mardi 23 novembre 2010
Statut: Membre
Dernière intervention: 6 décembre 2010

1
24 nov. 2010 à 09:09

Bonjour,
Je te remercie vivement alogplus et te souhaite une excellente journée.

Réponse 9 / 10

Albatros 30

Messages postés: 4
Date d'inscription: mardi 23 novembre 2010
Statut: Membre
Dernière intervention: 6 décembre 2010

1
6 déc. 2010 à 23:39

Merci beaucoup algoplus
Au plaisir

Réponse 10 / 10

vince_nus
9 juin 2011 à 09:03

bonjour à tous

j'ai ce code pour enregistrer un fichier en fonction de la valeur d'une cellule. Je me suis inspiré des infos au dessus mais j'ai un beuf !!???

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\k004418\Bureau\DVI" \ Range("A1").Value & ".xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

peut être que les " ne sont pas au bon endroit

merci

Posez votre question

Bonsoir à tous,

Avec ce code cela marche bien, seul PB ça plante avant de sauvegarder, où serait le PB ?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

A = Range("S2").Value
B = Range("B3").Value
C = Range("B4").Value
ChDir ActiveWorkbook.Path
Repertoirefinalperso = Application.ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=Repertoirefinalperso & "\" & "Recapaie " & A & " " & B & " " & C & ".xls"

End Sub

Merci,
bonjour,

Alors voilà une nouvelle question sur le sujet.

J'ai réussis à faire en sortes que cela ne plante plus, mais ...

Pourquoi en changeant :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

par :
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Et bien cela ne plante plus ?

Cela aurait été plus pratique d'activer la macro sur enregistrement et non pas sur fermer, car à chaque fermeture cela me créera un fichier "Recapaie 2012 .xls" ....

Cordialement,

eriiic · Accepted Answer · 2008-07-28T20:09:06+0200

Réponse 1 / 10

eriiic

Messages postés: 23381
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 10 juillet 2020

6 231
28 juil. 2008 à 20:09

Bonjour,

ActiveWorkbook.SaveAs Filename:=[A1].Value
marche très bien avec test.xls en A1.
Si tu as un nombre ou un texte sans .xls dans A1 il faut le rajouter :
ActiveWorkbook.SaveAs Filename:=[A1].Value & ".xls"
Tu peux compléter le nom avec le chemin du répertoire...

eric

Afficher les 16 commentaires

Signaler

Creatif911

Messages postés: 1
Date d'inscription: jeudi 4 février 2010
Statut: Membre
Dernière intervention: 4 février 2010

> eriiic

Messages postés: 23381
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 10 juillet 2020

4 févr. 2010 à 21:45

Bonjour à toi,
Est-ce possible lorsqu'on donne le chemin d'accès pour l'enregistrement, qu'on puisse déterminer une partie de ce chemin d'accès à partir d'une variable dans une cellule de ton tableur excel ....

Dim chemin As String
chemin = "C:\Users\Louis\Desktop\Louis Nadeau\Travail\Entreprises\Matrixcel\Clients\resiver\Diagnostiques\"
ActiveWorkbook.SaveAs Filename:=chemin & Worksheets("diagnostique").[c2] & [" "] & [c4].Value

Exemple : Mes clients se retrouvent tous dans le même dossier du nom de "client"

client a
client b
client c

Dans mon tableur j'ai un endroit ou j'inscrit le nom du client ....j'aimerais pourvoir à partir de cette cellule lui indiquer l'endroit exacte ou aller enregistrer le document...
ex: C:\Users\Louis\Desktop\Louis \Travail\Entreprises\Matrixcel\Clients\ ???? \ diagnostique \"

j'ai fait des tentatives en nomant une variable ...mais je suis vraiment pas un programmeur ...alors si tu as 2 secondes pour m'aider se serait très apprécié.

Signaler

eriiic

Messages postés: 23381
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 10 juillet 2020

6 231
22 juil. 2010 à 23:40

Ah, ok, j'au rais appris qcq chose... :-)
De rien, et bonne continuation :-)
u se prononce ou ?

Signaler

Florie
27 juil. 2010 à 23:30

oui, à prononcer maourourou ;)

Signaler

KMPrimpin

Messages postés: 25
Date d'inscription: lundi 2 février 2015
Statut: Membre
Dernière intervention: 20 mars 2015

20 mars 2015 à 19:24

bonjour eric,
voila, j'ai créé un fichier Factures et enregistré dans le dossier Modèle Excel. le facturier fera une facture par client en appelant un modèle. cependant il ne devra pas renommer le fichier Factures1 par exemple qui s'ouvre, parce que je veux un code qui renomme automatiquement le fichier en considérant les valeurs dans Feuil1!L1;J1;K1. et stp où écrire cette macro, car j'ai testé en vain tes soluces ici qui ont satisfait tout le monde.
merci eric

Signaler

eriiic

Messages postés: 23381
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 10 juillet 2020

6 231
20 mars 2015 à 19:53

Bonjour,

Clic-droit dans le projet (à gauche) et 'Insertion / Module'
Mettre le code dans ce Module1. Ensuite tu peux mettre un bouton lié à cette macro sur ta feuille.

eric

Signaler

KMPrimpin

Messages postés: 25
Date d'inscription: lundi 2 février 2015
Statut: Membre
Dernière intervention: 20 mars 2015

20 mars 2015 à 20:38

merci eric, j'ai repéré Module.
au final, quel est le code que j'écris:
-With Sheets("Feuil1")
nomFich=[L1] & [J1] & [K1]
End With
ou
-ActiveWorkbook.SaveAs Filename:=[L1] & [J1] & [K1] & ".xltx"
merci du temps que tu m'accordes, merci bcp!!!

Votre réponse