Enregistrer excel sous nom d'une cellule

Question

Bonjour, à tous

Je passe depuis tout cette journée a essayer d'enregistrer mon fichier sous le nom d'une cellule a l'aide des macro mais j'ai toujours des erreurs...

Je voudrais donc avoir de l'aide auprès de la communauté CCM qui pourrait m'aider en me fournissant un code s'il vous plait et en m'expliquant comment l'installer?


Merci beaucoup,
Coordialement.


Configuration: Windows Vista / Internet Explorer 7.0

dobo69 · Answer

Bonjour, 

Ce code enregistre le classeur actif sous le nom indiqué en A1. Demande avant par boite de dialogue de choisir le répertoire de destination. 

Public Sub sauversousA1() 
Dim nomfich As String 
nomfich = [A1].Value 
    If nomfich <> "" Then 
        With Application.FileDialog(msoFileDialogFolderPicker) 
           .InitialFileName = ActiveWorkbook.Path & "\" 
           .Show 
            If .SelectedItems.Count > 0 Then 
             choixdossier = .SelectedItems(1) 
            Else 
             choixdossier = "" 
            End If 
         End With 
        nom = choixdossier & "\" & nomfich 
        ActiveWorkbook.SaveAs Filename:=nom, FileFormat:=xlNormal 
    Else 
        MsgBox ("Il n'y a pas de nom de fichier défini !") 
    End If 
End Sub

Pour changer la cellule du nom, modifier [A1] à la 3°ligne. 

A coller simplement dans un module,soit du classeur actif soit dans le fichier des macros personnels.
---
Si vous n'avez besoin de rien, demandez-moi.

Enregistrer excel sous nom d'une cellule

1 réponse

Discussions similaires

Newsletters