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

Enregistrer un fichier en lui donnant le nom d'une cellule

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

rikiko

Guest
Bonjour,

Je souhaite pouvoir "enregistrer sous" mes fichiers en leur donnant pour nom la valeur de la cellule A1.
Est-ce réalisable?

Code: 
 Sub sauvegarde()
 
    ActiveWorkbook.SaveAs Filename:= _
        "D:\Excel\Folder\csv\[I]Range("A1")[/I].csv", _
        FileFormat:=xlCSV, CreateBackup:=False


 End Sub

Un truc du genre en fait.
Ainsi la question c'est: comment lui dire que c'est la valeur de la cellule A1 qui doit être définie comme le nom du fichier?


Bonne journée,
 
Trier par date Trier par votes
Re : Enregistrer un fichier en lui donnant le nom d'une cellule

Bonjour,

Je ne parviens pas à faire fonctionner cette macro lorsque je l'inclus dans un autre projet:

Code: 
Sub CSV()
Dim MyDirectory As String, fso As Object, f As Object, i As Integer
target = "D:\Moi\csv\BAU"


ChDir "D:\Moi\csv\BAU"

Set fso = CreateObject("Scripting.FileSystemObject")
MyDirectory = "D:\Moi\csv\BAU"
For Each f In fso.GetFolder(MyDirectory).Files

If Right(f.Name, 4) = ".csv" Then Workbooks.Open MyDirectory & f.Name
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Range("D2").Select
ActiveCell.FormulaR1C1 = "105"
Range("K2").Select
ActiveCell.FormulaR1C1 = "Z088"
Range("D3").Select

ThisWorkbook.SaveAs Filename:= _
        "D:\Moi\csv\BAU\" & Range("G2") & ".csv", _
        FileFormat:=xlCSV, CreateBackup:=False


Next f
Application.DisplayAlerts = False
Application.quit


L'objectif de cette macro est de modifier tous les fichiers *csv d'un répertoire donné.

Là j'obtiens l'erreur suivante:
"Erreur d'execution 1004 - Erreur définie par l'application ou l'objet"

Auriez-vous une idée sur l'origine du problème?


Bonne journée,
 
Vote positif 0 Vote négatif
Re : Enregistrer un fichier en lui donnant le nom d'une cellule

Selon toute vraisemblance le soucis ne se trouve pas dans la sauvegarde, mais dans la partie suivante, sensée convertir les données :

Code: 
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True

Il s'avère que cette partie semble ne pas fonctionner (donc rien n'apparait en cellule G2, donc la sauvegarde est impossible).
Cela-dit elle fonctionne en "stand alone", la conversion se passe effectivement ...
 
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

S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
598
TooFatBoy
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
687
job75
M
  • Question Question
Microsoft 365 [RESOLU] Enregistrer avec un nouveau nom sans macro et sans le bouton
Réponses
2
Affichages
343
Marboi
M
  • 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
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
3 K
Rheeem
R
  • Question Question
XL 2021 Enregistrer un fichier selon date valeur cellule
Réponses
4
Affichages
224
fenec
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
686
Phil69970
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
1 K
firecarl
F
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
343
job75
D
  • Résolu(e)
Microsoft 365 Récupérer la valeur d'une cellule d'un autre fichier
Réponses
7
Affichages
621
Diane272727
D
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
549
youguybass
Y
  • Question Question
XL 2021 création d'onglets en masse depuis un modele
Réponses
6
Affichages
326
Phil69970
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
711
Phil69970
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
510
job75
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
130
Eric 888
P
  • Résolu(e)
Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom
Réponses
5
Affichages
822
Lolote83
L
J
  • Question Question
XL 2010 définir un nom de cellule en fonction de la valeur d'une autre
Réponses
12
Affichages
1 K
jojo4738
J
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
828
nat54
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…