XL 2013 Renommer Fichier Excel a partir de valeur de plusieurs Cellules

Moireau

XLDnaute Nouveau
Bonjour à tous,

J'ai un Bon de commande et je souhaite lorsque que l'on va cliquer sur le bouton Enregistrer la commande que celle-ci s'enregistrer dans le dossier indiquer mais surtout en associant les cellules B14 - B15 - B21
EX : Bon de Commande Mr Lacy 2019 - B14 - B15 -B21.xlsm

Je n'y arrive malheureusement pas. Je n'y arrive qu'avec une seule cellule mais celle-ci se met après l’extension .xlsm et je souhaiterais que se positionne avant l'extension .xlsm

Par avance merci pour votre aide et en espérant avoir été claire.

Maud
 

Pièces jointes

  • Bon de Commande Mr Lacy 2019 -.xlsm
    92.9 KB · Affichages: 7

Moireau

XLDnaute Nouveau
Bonjour @Moireau,

Essayez:
VB:
Sub Enregistre()
Dim NouveauNom
   NouveauNom = "P:\Commercial\Gestion des commandes\Bon de Commande Mr Lacy 2019"
   NouveauNom = NouveauNom & " - " & [B14] & " - " & [B15] & " - " & [B21] & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=NouveauNom
End Sub


Bonjour,
je souhaite modifier et renommer avec le code client et la date que j'ai ajouté en D2 mais cela ne fonctionne pas et je trouve pas pourquoi ?
Merci pour votre aide.

Maud
 

Pièces jointes

  • Bon de Commande Mr Lacy 2019 -.xlsm
    93.8 KB · Affichages: 6

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

1 - les '/' sont interdits dans les noms de fichier windows.=> formatage de la date
2 - s'il y a quelque chose en B15 ça va très bien.

Le code ci-dessous fonctionne chez moi avec un autre chemin bien entendu.
VB:
Sub Enregistre()
Dim NouveauNom As String
   NouveauNom = "P:\Commercial\Gestion des commandes\Bon de Commande Mr Lacy 2019"
   NouveauNom = NouveauNom & " - " & [B15] & " - " & Format([D2], "dd-mm-yyyy") & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=NouveauNom
End Sub
Bonne soirée
 

Moireau

XLDnaute Nouveau
Bonjour,

1 - les '/' sont interdits dans les noms de fichier windows.=> formatage de la date
2 - s'il y a quelque chose en B15 ça va très bien.

Le code ci-dessous fonctionne chez moi avec un autre chemin bien entendu.
VB:
Sub Enregistre()
Dim NouveauNom As String
   NouveauNom = "P:\Commercial\Gestion des commandes\Bon de Commande Mr Lacy 2019"
   NouveauNom = NouveauNom & " - " & [B15] & " - " & Format([D2], "dd-mm-yyyy") & ".xlsm"
   ActiveWorkbook.SaveAs Filename:=NouveauNom
End Sub
Bonne soirée

Bonjour,

Merci beaucoup c'est parfait et surtout je comprends mon erreur.
Bonne journée,