Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment enregistrer le fichier Excel avec la valeur de la cellule?

Lorsque vous utilisez un classeur, avez-vous déjà pensé à enregistrer le fichier Excel en fonction d'un contenu de cellule? Par exemple, vous avez "Prix de vente" dans la cellule A1, et vous souhaitez enregistrer le classeur sous le nom Prix de vente. Bien sûr, vous pouvez taper le nom dans la boîte de dialogue Enregistrer sous, puis l'enregistrer. Mais ce sera une méthode inefficace dans votre quantité de travail. Aujourd'hui, je vais parler d'un truc rapide pour le résoudre.

Enregistrer le fichier Excel avec une valeur de cellule spécifique en utilisant le code VBA


flèche bleue droite bulle Enregistrer le fichier Excel avec une valeur de cellule spécifique en utilisant le code VBA


Le code VBA suivant peut vous aider à enregistrer votre classeur avec une valeur de cellule spécifiée, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour Applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: Enregistrer le fichier Excel avec une valeur de cellule spécifique

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Et puis appuyez sur F5 clé pour exécuter le code, et votre classeur a été nommé comme le contenu de la cellule A1. Voir la capture d'écran:

doc-save-with-cell-value-1

À noter :

1. Vous pouvez spécifier n'importe quelle valeur de cellule comme nom de fichier en modifiant simplement A1 à une autre référence de cellule dans le code ci-dessus.

2. Votre classeur actif sera enregistré dans le dossier de C: \ Users \ dt \ Desktop \ mes informations \ (la dernière barre oblique doit être conservée lorsque vous collez votre emplacement au lieu de l'emplacement), vous pouvez modifier le chemin de votre besoin.


Articles Liés:

Comment enregistrer le fichier avec la date et l'heure dans Excel?

Comment afficher le chemin du fichier dans la barre de titre ou la barre d'outils dans Excel?



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tim · 1 months ago
    Hi, I am trying to use this code but when i try to execute I get a runtime 1004 error and it highlights row 7 as invalid: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
    How can I resolve this? Im using office 365
  • To post as a guest, your comment is unpublished.
    Ahmad · 3 months ago
    Hi friends,
    I have a problem and would be glad if there is someone to help me
    I have a file at drive "F" and folder "ABS" - my filename is "Listdata"
    In an Excel file on my desktop I want cells(4,4) to retieve data from "ABS" sheet(1) and cell (2,2)
    The below code
    Sub Macro1()
    activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
    End Sub
    but it does not work correctly
    Thanks Friends
  • To post as a guest, your comment is unpublished.
    radulus · 6 months ago
    hi all!

    How can save repetitive input in the same cells, in other cells, with a Macro?

    In sheet1, I input data in A1, B1, C1, for n-times in a day. In sheet2, i need save all this records, in A2, B2, C2, A3, B3, C3, etc. Tnx!
  • To post as a guest, your comment is unpublished.
    Rajiv · 7 months ago
    how to create a macro to save multiple sheets as with their cell values as file names
    Thanks,
    Rajiv
  • To post as a guest, your comment is unpublished.
    Bruce McIntyre · 1 years ago
    Ok so i got this working good using an in sheet button. Now i would like it to just save normally after the initial save as. Can this be done? Using the same save button?
    Thanks Bruce