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
 

Fichiers joints

mapomme

XLDnaute Barbatruc
Supporter XLD
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
 

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
Merci Beaucoup. ça fonctionne parfaitement.

Maud
 

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
 

Fichiers joints

Roblochon

XLDnaute Accro
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,
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas